Ingolf

Forumthread: Ingolf
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Ingolf

Ingolf

20.10.2004 19:26:01

Erich

Hallo,
Du hast mit einem Makro heute nachmittag "Leere zeilen per Makro einfügen" beantwortet.
Wie lautet das Makro, das in diesem Fall die Leerzeilen wieder verschwinden lässt ?
Gruß Erich Müller

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ingolf

René
Danke Rene

20.10.2004 19:57:59

Erich

AW: Ingolf

René


Sub leere_loeschen()
i=activesheet.usedrange.rows.count
Set aktuelleZelle = Range("A1")
for a=1 to i
Set nächsteZelle = aktuelleZelle.Offset(1, 0)
If aktuelleZelle.Value = "" Then
aktuelleZelle.EntireRow.Delete
End If
Set aktuelleZelle = nächsteZelle
next
End Sub