Makro zu langsam
18.11.2014 17:01:33
Frank
Auf einer UF befinden sich 3 TextBoxen, in TextBox1 steht das Datum zu Beginn, in TextBox2 steht das Datum für das Ende, also Einträge werden von bis vorgenommen, aber da die Wochenenden ausgespart wereden sollen wird das Makro sehr langsam.
Hier das Makro:
With frmUrlaubserfassung
If ComboBox1.ListIndex = 1 Then
For lng = 6 To 6579
If Cells(lng, 1).Value > CDate(.TextBox2) Then Exit For
If Cells(lng, 1).Value >= CDate(.TextBox1) Then
Sheets("Urlaubsdaten").Cells(lng, 10) = .TextBox3
End If
If Weekday(Cells(lng, 1)) = 1 Or Weekday(Cells(lng, 1)) = 7 Then
Sheets("Urlaubsdaten").Cells(lng, 10) = ""
End If
Next lng
End If
End With
Kann damit jemand was anfangen und helfen, bitte!
Danke und Gruß Frank H.