Liebes Forum,
ich hoffe ihr könnt mir bei meinem Problem weiterhelfen.
Und zwar habe ich ein Tabellenblatt, dass enorm viele Spalten enthält.
Nun sollen alle Spalten, die die Spaltenüberschrift "Gesamtergebnis"oder "Dummy"enthalten gelöscht werden.
Dafür das unten stehende Makro.
Dies dauert recht lang.
Die Struktur der Spalten ist allerdings immer gleich. Ich könnte daher sagen:
"lösche alle Spalten zwischen Wert A und B" (somit würde ich auf die Schleife
verzichten).
Funktioniert so etwas?
Vielen Dank für Eure Hilfe.
Beste Grüße
Diana
' Spalten_löschen Makro
'
'
Dim spalte1 As Integer
Dim spalte2 As Integer
Dim spalte3 As Integer
For spalte1 = 255 To 1 Step -1
If Cells(2, spalte1).Value = "Gesamtergebnis" Then
Columns(spalte1).Select
Selection.Delete Shift:=xlToLeft
End If
Next spalte1
For spalte2 = 255 To 1 Step -1
If Cells(2, spalte2).Value = "Dummy" Then
Columns(spalte2).Select
Selection.Delete Shift:=xlToLeft
End If
Next spalte2
End Sub