Anwendungs- objektdef. Fehler- Lösung gesucht
drKnilch
Beim Debuggen ergibt sich in der Zeile "Worksheets("Burger_Alarme").Range(Cells(Zeile, 2), Cells(Zeile, 7)).Select" folgender Fehler: "Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler"
Ich kann aber einfach nicht finden, was hier falsch ist. Warscheinlich ist´s eh wieder nur ein Punkt oder sonstiges... :-/
Wäre super, wenn mir jemand weiterehlfen kann!
Private Sub Sortierung()
Dim X, i As Double
Dim Zeile, ZeileSPS As Double
Zeile = 4
ZeileSPS = 3
Do While Zeile "" Then
Worksheets("Burger_Alarme").Range(Cells(Zeile, 2), Cells(Zeile, 7)).Select
Selection.Copy
Worksheets("SPS-Störung").Range(Cells(ZeileSPS, 2), Cells(ZeileSPS, 7)).Select
ActiveSheet.Paste
ZeileSPS = ZeileSPS + 1
End If
Zeile = Zeile + 1
Loop
End Sub
Anzeige