Hallo,
ich bin leider vba laie und versuche in einem Excel Tabellenblatt Spalten zu löschen über eine inputbox in der ich angebe, welche Spalten nicht gelöscht werden sollen.
Hier würde ich gerne Spalte C und D behalten und den Rest per
habe folgenden VBA Code der leider nicht funktioniert.Sub Spalten_löschen()
Dim x As String
Dim varr As Variant
Dim i As Long
Dim k As Long
Dim z As Long
x = Application.InputBox("Bitte die Spalten kommagetrennt eingeben die sie behalten wollen", ",")
varr = Split(x, ",")
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
For k = 0 To UBound(varr)
If Columns(i).Column = CDbl(varr(k)) Then z = z + 1
Next
If z = 0 Then Columns(i).EntireColumn.Delete
z = 0
Next i
End Sub
Möchte also in eine Inputbox eingeben >Spalte C und D> und den rest gerne gelöscht haben.
Vielleicht kann mir jemand helfen.
Danke
|