Spalten in formatierter Tabelle entf
20.07.2020 11:19:59
Fabiolas
ich würde gerne ein Makro schreiben, mit dem sich Spalten in einer formatierten Tabelle entfernen lassen, wenn die Überschrift einen gewissen Namen hat.
Das Makro werde ich dann auf einen Button legen und jedes Mal, wenn der Button geklickt wird, soll eine Spalte mit dem Namen verschwinden. Wenn keine Spalte mehr mit dem Namen vorhanden ist, soll eine Message-Box mit Fehlermeldung erscheinen.
Mein Vorschlag dazu sieht so aus.
Sub spalten1_entfernen()
Dim i As Integer
For i = 1 To 100
If Range("i") = "Spalte 1" Then
Range("Tabelle2[[#Headers],[Spalte 1]]").Select
Selection.ListObject.ListColumns(2).Delete
End If
If Range("i") = "Spalte 2" Then
MsgBox "Es sind keine Spalten 1 mehr vorhanden."
End If
Next i
End Sub
Klappt leider nicht wie erhofft. Ich bin noch immer recht neu in der VBA-Welt, aber ich denke, dass mein Problem im Verständnis der Range-Definition liegt.
Danke im Voraus!
Fabiolas