ich habe ein Problem mit einem Makro, aber ich komme irgendwie nicht dahinter woran es liegt.
Das Ziel ist es in mehreren Tabs Werte in den letzten vier beschrifteten Spalten zu löschen, wenn es keine Zahlenwerte sind. Aber irgendwie klappt es nur in einem Tab. Bim Sprung ins zweite Tab, kommt folgender Fehler: "Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler"
Der Code den ich benutze ist:
Sub Löschen()
Dim Blatt1 As Long
Dim Zeile1 As Long
Dim Spalte As Long
For Blatt1 = 1 To Sheets.Count
If Sheets(Blatt1).Name = "Cockpit" Or Sheets(Blatt1).Name = "ABC_Summary" Then
Else
For Zeile1 = 1 To Sheets(Blatt1).Cells(Rows.Count, "B").End(xlUp).Row
For Spalte = -3 To 0
If IsNumeric(Sheets(Blatt1).Cells(Zeile1 + 29, Columns.Count).End(xlToLeft).Offset(0, Spalte). _
_
Value) = False Then
Sheets(Blatt1).Cells(Zeile1 + 29, Columns.Count).End(xlToLeft).Offset(0, Spalte).ClearContents
End If
Next Spalte
Next Zeile1
End If
Next Blatt1
End Sub
Die Schleife mit "Blatt1" habe ich schon in anderen Anwendungen so genutzt und da hat es einwandfrei funktioniert, deswegen stehe ich jetzt etwas auf dem Schlauch...
Vielen Dank schon einmal für die Hilfe!
beste Grüße
Ben