wenn in Zeile 1 nicht der Wert x steht, wird die Spalte gelöscht.
Das funktioniert auch prima. Allerdings bedeutet das auch eine gewisse rechenzeit, da diese Aktion 255 mal ausgeführt wird.
so sieht es bisher aus:
....
range ("a1").select
For i = 1 To 255 Step 1
If ActiveCell.Value = "x" Then
ActiveCell.Offset(0, 1).Range("A1").Select
Else
Selection.EntireColumn.Delete
End If
Next i
...
meine frage:
geht das auch schneller?
Also erst alle entsprechenden Spalten markieren und dann diese löschen?
Vielen Dank schonmal.
Grüße
Michael