Hallo Community,
ich habe eine Codezeile aus einem meiner Subs in einen anderen übernommen und dabei mur zeile und Spalte vertauscht (Vorher sollten Zeilen gelöscht werden, jetzt sollen Spalten gelöscht werden...) und plötzlich klappts nicht mehr... Ich bin leuder Anfänger und völlig ratlos was ich falsch gemacht haben könnte...
'Alle Spalten löschen, in denen Daten stehen, die nach dem gewünschten Zeitraum erfasst wurden
With Sheets("RohTN1")
'Letzte Spalte herausfinden
LastCol = Sheets("RohTN1").Cells(2, Sheets("RohTN1").Columns.Count).End(xlToLeft).Column
spalte = LastCol
Do While BisJ < Val(Right(.Cells(2, spalte).Value, 4))
spalte = spalte - 1
Loop
Do While BisM < Val(Mid(.Cells(2, spalte).Value, 4, 2))
spalte = spalte - 1
Loop
'###########Die folgende Zeile schmeißt eine Error#############'
.Range(Cells(1, (spalte + 1)), Cells(1, LastCol + 1)).EntireColumn.Select
Selection.Delete
End With
Ich habe einen "Laufzeitfehler'1004' Anwendungs- oder objektdefinierter Fehler.... Beide Variablen (LastCol und spalte) sind Integer...
Vielleicht kann mir ja jemand weiterhelfen? :)
Hier noch der Code aus dem andern Sub, wo es funktioniert:
'Alle Zeilen löschen, in denen Daten stehen, die nach dem gewünschten Zeitraum erfasst wurden
With Sheets("Rohdaten")
'Letzte Zeile herausfinden
LastRow = .Cells(Sheets("Rohdaten").Rows.Count, 1).End(xlUp).Row
zeile = LastRow
Do While BisJ < Val(Right(.Cells(zeile, 1).Value, 4))
zeile = zeile - 1
Loop
Do While BisM < Val(Mid(.Cells(zeile, 1).Value, 4, 2))
zeile = zeile - 1
Loop
.Range(Cells((zeile + 1), 1), Cells(LastRow, 1)).EntireRow.Select
Selection.Delete
End With
Vielen Dank im Voraus :)
|