Hallo Hajo,
danke!!
Mit Match hat es jetzt funktioniert.
Ein kleineres Problem habe ich momentan noch. Ich füge die Termine mit
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ein. Es kann jetzt aber vorkommen, dass 2 Termine am selben Tag sind. Dann überschreibt der zweite den ersten. Das PasteSpecial benutze ich weil die Schriftart/Größe/... nicht mit kopiert werden sollen.
Beim normalen einfügen kam man das ganze verketten. Hast du mir da auch noch einen Tipp?
Die Select und Activate habe ich jetzt so gelassen. Da war ich zu faul um es umzuschreiben. Aber für das nächste mal wenn ich etwas mit VBA mache versuche ich es dann wie vorgeschlagen.
Gruß Steffen