Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen

Leerzeilen
07.06.2007 10:12:00
Birgit
Hallo!
ich habe in einem Dokument folgende Siutation:
Datenzeile (von A bis E)
Leerzeile
Datenzeile (von A bis E)
Leerzeile
usw.
Diese Leerzeilen müsste ich alle löschen. Gibt es da eine Funktion, alle auf einmal zu löschen. Denn das wären an die 1000 - das ist mühsam
bitte um hilfe!
danke
birgit

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen
07.06.2007 10:19:01
ede
hallo birgit,
versuchs mal über daten-sortieren.
gruss
ede

AW: Leerzeilen
07.06.2007 10:23:09
Birgit
mei, komplizierter kann man dann nicht mehr denken!
super danke

AW: Leerzeilen
07.06.2007 10:21:00
Cordula
Hallo Birgit,
löse dieses Problem mit dem AutoFilter. Markiere die komplette Tabelle, DATEN / FILTER / AutoFilter
Über den Listpfeil wählst du dann [Leere]
Das wars. Excel zeigt die leeren Zeilen an und du kannst diese markieren und löschen.
Gruß
Cordula

AW: Leerzeilen
07.06.2007 10:21:00
Hajo_Zi
Hallo Birgit,
ich vermute mal die Zeile ist komplett Leer. Lasse folgendes Makro laufen.

Sub Leerzeilen_loeschen()
'   alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(Rows(LoI))  ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeLastCell).Column Then
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub


Ansonsten Sortieren.

Anzeige
AW: Leerzeilen
07.06.2007 10:22:00
Josef
Hallo Brgit,
kopiere diesen Code in ein allgemeines Modul.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Leerzeilen_Loeschen()
Dim rng As Range
Dim lngR As Long, lngL As Long

lngL = Cells(Rows.Count, 1).End(xlUp).Row

For lngR = 1 To lngL
    If Application.CountA(Rows(lngR)) = 0 Then
        If Not rng Is Nothing Then
            Set rng = Union(rng, Rows(lngR))
        Else
            Set rng = Rows(lngR)
        End If
    End If
Next

If Not rng Is Nothing Then rng.Delete

End Sub

Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige