am liebsten arbeite ich mit listobjects in meinen VBA's. Allerdings komme ich nun an einer Stelle nicht weiter. Mein listobject heißt "OrderLines". Nun möchte ich alle Spalten in diesem Object löschen, die den Namen "Column" enthalten.
Sub SpaltenLoeschen()
Dim vLetzteSpalte%, i%
vLetzteSpalte = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Application.ScreenUpdating = False
For i = vLetzteSpalte To 1 Step -1
If Not Cells(1, i) "Column*" Then
Cells(1, i).EntireColumn.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Allerdings funktioniert das ganze irgendwie nicht, weil ich sicher noch irgendwie das Listobject bezeichnen muss.Hat irgendjemand von Euch eine Idee, wie ich das einbauen muss.
Vielen Dank
Annette