Re: Suche: Wenn Zelle leer dann lösche Zeile
03.06.2003 10:53:10
Felix Staab
Hallo Frank,
habe dafür mal ein Makro geschrieben gehabt:LÖSCHEN: Alle leeren Zellen sollen entfernt werden. Darum wird jetzt Zelle für Zelle verglichen, ob es sich um eine ""-Zelle (leere Zelle) handelt.
WICHTIG: Man beachte, dass wenn eine Zelle gelöscht wird rutschen die anderen Zellen von unten nach. Darum muss der Zeilen-Zähler (also die Variable "Zeile") wieder um 1 vermindert werden.
Dim Zeile As Integer, Spalte As Integer, Zeile2 As Integer, Spalte2 As Integer
' In dieser Spalte wird gesucht
Spalte = 2
For Zeile = 1 to 500
' Entweder einen Bereich markieren:
' Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Select
' Oder nur eine einzige Zelle:
Cells(Zeile, Spalte).Select
If Cells(Zeile, Spalte) = "" Then
Selection.Delete
Zeile = Zeile - 1
End If
Next Zeile
Ich hoffe dieser Code funktioniert so noch :) Man weiß ja nie - Bin auch nur ein "Anfänger" - Für Korrekturen bin ich auch dankbar.
Beste Grüße
Felix Staab