Fehler in Code - Zellen einfügen
16.09.2005 10:26:35
Carmen
ich möchte per Makro in einer Spalten bei allen nichtleeren Zellen Zellen einfügen, die Zellen sollen dabei nach rechts verschoben werden.
Bei folgendem Code kommt immer die Meldung:
"Die FindNext-Eigenschaft des Range-Objekts kann nicht zugeordnet werden"
Sub zellen_verschieben()
With Worksheets(1).Range("a1:a200")
Set c = .Find("*", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Selection.Insert Shift:=xlToRight
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Hat jemand eine Idee?
Ich habs auch schon mit "For each" versucht, das funktioniert auch,
aber dauert ewig.
Danke
Carmen