Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leere Zeilen Löschen

Forumthread: Leere Zeilen Löschen

Leere Zeilen Löschen
30.10.2002 19:46:23
Tanja P
Hallo,

ich habe folgendes Problem.
Die Inhalte von 2 Tabellen (jede Tabelle beginnt in Zeile 1) möchte ich automatisch auf eine dritte Tabelle kopieren lassen.
Frage: Wie schaffe ich es, dass in der dritten Tabelle die Zeilen von Tabelle 1 und 2 fortlaufen untereinander aufgelistet werden und keine leeren Zeilen entstehen...?

Für euch sicherlich einfach, für mich ein grosses Problem. Bitte wenn machbar sehr einfach erklären...

Vielen Dank schon jetzt

Tanja

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Leere Zeilen Löschen
30.10.2002 21:39:06
Herbert
Hallo Tanja,
Du kannst ja auf der dritten Tabelle dieses
Makro starten,daß die Leerzeilen löscht...

Sub Zeilen_löschen()
    Dim i As Long
     Dim Letzte As Long
      Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
     On Error Resume Next
    For i = Letzte To 1 Step -1
        If Cells(i, 1) = "" Then Rows(i).Delete
    Next
End Sub
gruß Herbert


Anzeige
Re: Leere Zeilen Löschen
31.10.2002 07:30:25
Tanja P
Herbert, vielen Dank!
Hat geklappt.

Tanja

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Leere Zeilen in Excel Löschen


Schritt-für-Schritt-Anleitung

Um leere Zeilen in Excel zu löschen, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul aus, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub Zeilen_löschen()
        Dim i As Long
        Dim Letzte As Long
        Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        On Error Resume Next
        For i = Letzte To 1 Step -1
            If Cells(i, 1) = "" Then Rows(i).Delete
        Next
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Das Makro löscht alle leeren Zeilen in der aktiven Tabelle.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du das Makro in der richtigen Tabelle ausführst und dass keine Filter aktiv sind.
  • Fehler: Leere Zeilen am Ende werden nicht gelöscht.

    • Lösung: Überprüfe, ob die letzten Zeilen tatsächlich leer sind oder möglicherweise unsichtbare Zeichen enthalten.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die folgende Methode nutzen:

  1. Markiere deine gesamte Tabelle.
  2. Gehe zu Daten > Filter und aktiviere die Filteroption.
  3. Klicke auf den Dropdown-Pfeil in der Kopfzeile und deaktiviere alle Häkchen, außer dem leeren Feld.
  4. Lösche die gefilterten leeren Zeilen.
  5. Deaktiviere den Filter wieder, um alle Daten anzuzeigen.

Praktische Beispiele

Angenommen, du hast zwei Tabellen mit Daten, und du möchtest diese in einer dritten Tabelle zusammenführen, ohne dass leere Zeilen entstehen. Du kannst das oben stehende VBA-Makro verwenden, um nach dem Kopieren der Daten die leeren Zeilen zu löschen.

Hier ein Beispiel für die Verwendung des Makros:

Sub DatenKopierenUndLeereZeilenLöschen()
    ' Daten von Tabelle1 und Tabelle2 in Tabelle3 kopieren
    Sheets("Tabelle1").UsedRange.Copy Destination:=Sheets("Tabelle3").Range("A1")
    Sheets("Tabelle2").UsedRange.Copy Destination:=Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

    ' Leere Zeilen löschen
    Call Zeilen_löschen
End Sub

Tipps für Profis

  • Verwende Bedingte Formatierung, um leere Zellen hervorzuheben, bevor du sie löschst.
  • Du kannst auch die Suchen & Ersetzen-Funktion nutzen, um leere Zellen zu finden und zu löschen.
  • Um leere Zeilen automatisch zu löschen, kannst du das Makro in der Workbook_Open-Ereignisprozedur platzieren, sodass es beim Öffnen der Datei ausgeführt wird.

FAQ: Häufige Fragen

1. Kann ich leere Zeilen mit einer Formel löschen?
Nein, Formeln können keine Zeilen löschen. Du musst dafür VBA oder manuelle Methoden verwenden.

2. Was passiert, wenn ich das Makro ausführe und die Tabelle gefiltert ist?
Das Makro löscht nur die sichtbaren leeren Zeilen. Es ist empfehlenswert, alle Filter zu entfernen, bevor du das Makro ausführst.

3. Wie kann ich leere Zeilen in Excel automatisch löschen?
Du kannst ein Makro erstellen, das beim Öffnen der Datei ausgeführt wird, um leere Zeilen automatisch zu löschen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige