Zeilen entfernen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Zeilen entfernen
von: Patrik
Geschrieben am: 21.05.2002 - 17:53:21

Hallo,

ich habe 5 Zeilen in excel mit Inhalt,
dann wieder zwei ohne Inhalt.
Die ohne Inhalt möchte ich weg haben.

Wer kann mir helfen


nach oben   nach unten

Re: Zeilen entfernen
von: WernerB.
Geschrieben am: 21.05.2002 - 18:01:33

Hallo Patrik,

wenn sich in der Spalte A ermitteln lässt, ob die jeweilige Zeile einen Inhalt hat, dann ist dieses Makro genau richtig:


Option Explicit
Sub LeerZeilenKiller()
Dim As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = laR To Step -1
      If IsEmpty(Cells(i, 1)) Then
        Cells(i, 1).EntireRow.Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Zeilen entfernen
von: Patrik
Geschrieben am: 21.05.2002 - 18:24:44

und was ist wenn man es erst in Zeile B ermitteln kann ???

Vielen Dank


nach oben   nach unten

Re: Zeilen entfernen
von: WernerB.
Geschrieben am: 21.05.2002 - 18:29:22

Hallo Patrik,

dann eben so:


Option Explicit
Sub LeerZeilenKiller()
Dim As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 2).End(xlUp).Row
    For i = laR To Step -1
      If IsEmpty(Cells(i, 2)) Then
        Cells(i, 2).EntireRow.Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Zeilen entfernen
von: Patrik
Geschrieben am: 21.05.2002 - 18:31:28

Vielen Dank

nach oben   nach unten

Re: Zeilen entfernen
von: Patrik
Geschrieben am: 21.05.2002 - 18:34:03


Hallo Experte,

kann ich auch sagen , wenn in einem Feld 0 ist - dann
bitte diese Zeile löschen


nach oben   nach unten

Re: Zeilen entfernen
von: WernerB.
Geschrieben am: 21.05.2002 - 18:40:12

Hallo Patrik,

wenn die Ziffer Null in einer Zelle der Spalte B steht, dann so:


Option Explicit
Sub LeerZeilenKiller()
Dim As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 2).End(xlUp).Row
    For i = laR To Step -1
      If IsEmpty(Cells(i, 2)) Or Cells(i, 2).Value = 0 Then
        Cells(i, 2).EntireRow.Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilen entfernen"