Weiterrutschen beim Löschen von Spalten verhindern
04.02.2004 09:57:18
Michi
ich habe folgendes Problem: ich exportiere Daten in eine Excel-Tabelle und lösche dann alle Spalten, bei denen in der ersten Zeile nichts bzw. nicht benötigte Daten stehen. Das geht folgendermaßen:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set spalten = Range("A1:AN1")
loeschung = False
For Each zelle In spalten
Spaltenwiederholung:
loeschung = False
If Not (zelle = "Attributes" Or zelle = "Qty") Then
' ... Variable "loeschspalte" im Format "A:A" erstellen ...
Columns(loeschspalte).Select
Selection.Delete Shift:=xlToLeft
loeschung = True
End If
If loeschung = True Then
' ??????
GoTo Spaltenwiederholung
End If
Next
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Das Problem ist, dass die Schleife ja jedes Mal eine Spalte weiterrutscht, also von A zu B zu..., aber dabei nicht erkennt, dass wenn z.B. Spalte B:B gelöscht wurde, die restlichen Spalten nach links rutschen und B:B nochmal geprüft werden muss. Mit der Bool-Variable "loeschung" und dem "GoTo"-Befehl will ich nun genau dieses Weiterrutschen verhindern, aber eine Lösung hab ich noch nicht.
Hat jemand von Euch eine Idee?
Vielen Dank für jede Hilfe!!!
Michi