|
Hallo liebe Forenmitglieder,
Ich habe einem Freund dabei geholfen ein Makro zu erstellen, dass zuerst die erste Spalte eines Arbeitsblatts löscht und danach die letzten beiden. Den Code dazu habe ich hier gepostet.
Nun zu meinem Problem: Wenn ich den Code zum ersten Mal laufen lasse funktioniert alles ohne Probleme und der Code macht genau was er soll. Wenn ich allerdings unter die neue letzte Zeile (sagen wir Zeile 10) in die Zeilen 11,12,13 die Zahlen 1, 2 und 3 Schreibe (um das Makro zu testen), tritt nach ein paar Mal Probieren auf diese Art eine Problem auf.
Das Problem: Plötzlich wurde als letzte genutze Zeile 15 erkannt. Ich dachte zuerst, dass es vielleicht an einer Formatierung liegt oder Änlichem denn die Zelle in Zeile 15 war leer. Ich habe also alle Zeilen von 14 bis 65000 (ca.) gelöscht und das Makro nochmal gestartet --> Zeile 15 wird immernioch als letzte Zeile erkannt.
Hat jemand eine Idee woran es liegen könnte? Vielen Dank im Voraus!
Thomas
Hier der Code:
Sub Macro1()
Rows("1:1").Delete Shift:=xlUp 'erste Zeile Löschen
Dim Letzte_Zeile As Variant
Letzte_Zeile = Sheets("On-Prem Details").UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox (Letzte_Zeile)
Rows(Letzte_Zeile - 1 & ":" & Letzte_Zeile).Delete Shift:=xlUp ' Die letzte und vorletzte Zeile löschen
End Sub
|