Laufzeitfehler 13
15.10.2013 11:30:20
Leo
ich habe da nochmal eine Frage zu einem Code. Aus einer großen, chronologisch sortierten Liste, sollen alle Montage rauskopiert werden.
Als Fehlermeldung bekomme ich "Laufzeitfehler 13" in Z15 (fett), allerdings schreibt er alle Montage untereinander, nur geht es eben nicht weiter, zum nächsten Befehl. Dazu kommt noch, dass er auch Dienstage in die Liste schreibt, was ich überhaupt nicht nachvollziehen kann.
Kann mir da jemand helfen?
Sub Tage_sortieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim ZeileMaxT2 As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
For Zeile = 2 To ZeileMax
ZeileMaxT2 = Tabelle2.UsedRange.Rows.Count
If Weekday(.Cells(Zeile, 3).Value) = vbMonday Then
.Cells(Zeile).EntireRow(Zeile).Copy Destination:=Tabelle2.Cells(ZeileMaxT2 + 1, 1)
End If
Next Zeile
End With
End Sub