Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leere Zeile (Spalte A) finden und Zeile löschen

Leere Zeile (Spalte A) finden und Zeile löschen
29.12.2003 19:55:07
Michael
Hallo alle zusammen
Vielleicht kann mir jemand helfen. Ich möchte Leere Zeilen (in Spalte A) finden, und die zugehörige Zeile löschen. Ich habe schaffe es nur das nur eine wirklich leere Zeile gelöscht wird. In dem angeführten Beispiel soll nur die Zeile 4 (leere Zeile in Spalte) gelöscht werden.

---A------------B-----------C
1 Meier.....Thomas....Buxtehude
2 Hofer.....Andreas...Neuss
3 Weber....Carina
4 ................Alois........München
5 Abt.........Josef........Tirol

Ich hoffe es kann mir jemand helfen
Danke
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeile (Spalte A) finden und Zeile löschen
29.12.2003 19:58:29
Hajo_Zi
Hallo Michael


Sub Leerzeilen_Löschen2()
'   Zeilen löschen wo Spalte A leer
Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


AW: Leere Zeile (Spalte A) finden und Zeile löschen
29.12.2003 20:07:25
Michael
Danke Hajo
Vielleicht lern' ich es ja noch. Es klappt wunderbar
Gruß
Michael
Anzeige
AW: Leere Zeile (Spalte A) finden und Zeile löschen
29.12.2003 20:04:54
Josef Ehrensberger
Hallo Michael,

schreib diesen Code in ein allgemeines Modul
und weise ihm eine Schaltfläsche zu.



Sub leereZeile()
Dim rng As Range
With ActiveSheet
Set rng = Range("A:A").Cells.SpecialCells(xlCellTypeBlanks)
rng.EntireRow.Delete
End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Sepp
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige