Makro beschleunigen
08.02.2018 10:33:03
Frank
Da die Datei zum posten zu groß ist, hoffe ich das auch der Code ausreichend ist um für euch Experten zu erkennen, ob und wie man das Makro beschleunigen kann?
Private Sub CommandButton7_Click()
Application.ScreenUpdating = False
If ComboBox2 = "" Then
MsgBox "Sie müssen erst einen Monatsersten auswählen!"
Exit Sub
End If
Sheets("Urlaubsplanung").Cells(7, 9) = CDate(ComboBox2)
Range("I8").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C="""","""",IF(MONTH(R[-1]C+1)MONTH(R[-1]C),"""",R[-1]C+1))"
Range("I8").Select
Selection.AutoFill Destination:=Range("I8:I37"), Type:=xlFillDefault
Dim lng, lng1 As Long
Dim i As Integer
For lng = 7 To 5850
For lng1 = 7 To 37
For i = 2 To 7
If Sheets("Urlaubsplanung").Cells(lng, 1) > Sheets("Urlaubsplanung").Cells(3, 9) _
Then Exit For
If Sheets("Urlaubsplanung").Cells(lng1, 9) = Sheets("Urlaubsplanung").Cells(lng, 1) _
Then
Sheets("Urlaubsplanung").Cells(lng1, i + 8) = Sheets("Urlaubsplanung").Cells( _
lng, i)
End If
Next i
Next lng1
Next lng
Application.ScreenUpdating = True
Sheets("Urlaubsplanung").Range("A7").Select
End Sub
Ich bedanke mich schon jetzt für eure Hilfe!L. G. Frank H.