Laufzeitfehler 13: Typen unverträglich
16.10.2018 09:12:26
Georg
ich bekomme bei diesem Code immer die Fehlermeldung Typen unverträglich: der Code bleibt in der Zeile
if weekday(.cells....
stehen.
ich verstehe nicht warum? Danke für die Tipps!!
Sub TEST()
For Each wsh In Worksheets
With wsh
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = lngZeileMax To 7 Step -1
If Weekday(.Cells(lngZeile, 2), vbMonday) > 5 Then
.Rows(lngZeile).Copy
.Rows(lngZeile + 1).Insert Shift:=xlDown
End If
Next lngZeile
End With
Next wsh
MsgBox "Bitte Datei UNTER NEUEM NAMEN ABSPEICHERN: _2019"
Application.Dialogs(xlDialogSaveAs).Show
End Sub