Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ingolf

Ingolf
20.10.2004 17: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
Anzeige
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

Danke Rene
20.10.2004 17:57:59
Erich
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige