Löschen der "" Zellen
08.11.2016 17:22:58
Fabi
mein Problem ist, dass ich aufgrund eines SVerweises, der bei einer Fehlermeldung einfach nur "" in die Zelle schreibt, meine darauffolgenden Daten nicht mehr richtig verarbeiten kann. Ich muss die "" Zellen aus der kompletten Spalte löschen, soweit eigentlich kein Problem, ich habe auch schon ein Code gefunden der diese Zellen löscht, jedoch viel viel zu lange. Dabei handelt es sich um diesen Code:
Sub DeleteCells()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End Sub
Ich hoffe, dass mir jemand eine schnellere Möglichkeit zeigen kann, damit meine komplette Makro nicht durch das simple Löschen von Zellen so ewig dauert. Ansonsten muss ich diese Verzögerung in Kauf nehmen.
Schonmal Danke.
Viele Grüsse,
Fabi