Spalten löschen funktioniert nicht sauber
16.12.2015 11:06:32
Walter
Hi,
ich stehe mal wieder auf dem Schlauch.
Ich habe eine Tabelle in der ich bestimmte Spalten anhand der Überschrift ermitteln und dann löschen will.
Wenn ich meine Prozedur das 1. mal laufen lasse werden nicht alle definierten Spalten gelöscht, sondern nur die Spalten mit Text1, Text3, Text5, Text7.
Lasse ich die Prozedur noch einmal laufen dann werden die Spalten mit Text2, Text4, Text8 gelöscht.
Beim 3. Durchgang dann die Spalte mit Text6
Ich hoffe es ist verständlich beschrieben.
An was kann das liegen? Hat jemand eine Idee?
Gruß
Walter
Sub Spalte_löschen()
Dim i As Long
For i = 1 To 256
Select Case Cells(4, i).Text
Case "Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8"
Columns(i).Delete
Case Else
End Select
Next i
End Sub
Anzeige