Oberschlumpf zur Kenntnis
12.07.2018 14:41:06
Steve
nochmals Danke für deine Hinweise und Hilfe. Ich habe das Leeren der Zeilen auf wahrscheinlich _ umständlichen Wege beendet:
Sub InhaltLeeren()
Range("A2:K1500").Select
With Selection
.MergeCells = True
End With
Selection.UnMerge
Range("A2:K1500").Select
Selection.ClearContents
Dim i As Integer
For i = 3 To 1022 Step 4
Sheets("Termine").Rows(i).ClearContents
Next
End Sub
Hier war der VBA Editor mein alleiniger Hinweis. Ich frage mich jedoch, warum bei deinem Script bei Terminen 20+ ggf. mehrfach das Makro ausgeführt werden muss und weiß nicht, wo der notwendige Hebel dafür ist. Ich schätze auch, dass daher bei mir stets Mitarbeiter z.T. mehr Termine erhalten, als sie sollten.
So Du Zeit hast, wäre ich für deine Hilfe sehr dankbar.
Lieben Gruß
Steve