sub column_delete()
dim x as workbook
dim sht1 as worksheet
dim currentColumn as integer
dim columnHeader as String
Set x = Workbooks.Open("Path to the file")
Set sht1 = x.Sheets("Page 1")
*For currentColumn = sht1.UsedRange.Columns.Count To 1 Step -1*
*columnHeader = shtl.UsedRange.Cells(1, currentColumn).Value*
Select Case columnHeader
Case "Date", "Time", "Header"
"Nothing"
Case Else
*shtl.Columns(currentColumn).Delete*
End Select
Next
End Sub
Für alle oben hervorgehobenen Schritte erhalte ich einen Fehler als Laufzeitfehler '424': Objekt benötigt.
Aber ich glaube, dass ich das erforderliche Objekt erklärt habe. Manchmal, wenn ich Excel wieder öffne, geht der Fehler und anderes Mal erscheint es.
Können Sie mir bitte bei diesem Problem helfen?
P.S: Ich bin ein Anfänger in Excel VBA.
Antworten:
2 für die Antwort № 1Schreib immer Option Explicit auf der Oberseite Ihres Moduls.
Also, Fehler wie sht1 und shtl wird vermieden, sofern Sie einen Fehler bei der Kompilierungszeit mit der hervorgehobenen nicht definierten Variable erhalten:
