Spalten löschen
08.04.2005 15:16:53
Thorsten
versuche mit untenstehender Prozedur in einem Sheet mit ca. 100 Spalten bestimmte Spalten zu löschen, und zwar diejenigen, bei denen in der ersten Zeile eines der Wörter steht, die in Spalte G im Sheet "Zeichen" aufgeführt sind. Hat bei kleineren Bsp auch funktioniert. Nun werden aber nur knapp die Hälfte der eigentlich zu löschenden Spalten entfernt. Erkennt jemand den Grund?
Sub Spalten_löschen()
Dim Bereich As Range
Set Bereich = Worksheets("Zeichen").Range("G1:G75")
For i = 1 To Range("IV1").End(xlToLeft).Column
If Bereich.Find(what:=Cells(1, i), lookat:=xlWhole) Is Nothing Then
Else
Columns(i).Delete
End If
Next i
End Sub
MfG, Thorsten