Office: (Office 2013) Leerzeilen in Tabelle automatisch löschen

Hallo, Ihr Excelhelden,
ich habe mal wieder ein Problem.
Mittlerweile klappt es super, dass Daten aus einer großen Tabelle in Abhängigkeit von einem Zellenwert zeilenweise automatisch in mehrere andere Tabellen kopiert werden. Nun sind es aber mal vier Zeilen und mal zwanzig usw. Ich habe mehrere Tabellen untereinander in einem Tabellenblatt. Jeweils mit einer kleinen anderen Tabelle darüber. Nun möchte ich, dass in den Tabellen die Leerzeilen automatisch gelöscht werden. Ich habe VBA-Lösungen gefunden, kenne mich damit aber nicht aus.
Wenn Ihr also eine VBA-Lösung für das Problem habt, brauche ich eine schrittweise Anweisung, wie es nach Alt-Q genau weitergeht
Das Tabellenblatt sieht exemplarisch so aus:
Zeile 1-4 Tabelle A 1
Zeile 5 Leerzeile
Zeile 6-25 Tabelle B 1 mit Überschrift
Zeile 26-27 Leerzeilen
Zeile 28-31 Tabelle A 2
Zeile 32 Leerzeile
Zeile 33-52 Tabelle B2 mit Überschrift
Zeile 53-54 Leerzeilen
etc....
Insgesamt ca. 10 mal diese Kombi. In den B-Tabellen sollen nun automatisch, am ehesten wohl auf Knopfdruck die Leerzeilen gelöscht werden.
Hat jemand eine Idee?
Vielen Dank!

 

Hi,

eine Idee hätte ich schon, aber eine hochgeladene Beispsielmappe mit dem genauen Aufbau des Tabellenblattes wäre bei der Verwirklichung äußerst hilfreich.

Bis später,
Karin

 

Hallo, leider hab ich gerade keine Chance eine Excel Tabelle zu basteln. Von der Arbeit aus kann ichs nicht hochladen und zu hause ist der PC defekt und vom Handy aus kann ich hier nur etwas schreiben :-(. Ich würde aber gerne möglichst bald weiter basteln an der Tabelle...
Kannst Du schon eine Richtung angeben? Letztendlich läuft es ja darauf hinaus, dass ich auf einem Tabellenblatt mehrere Tabellen habe, auf denen ich unabhängig voneinander Zeilen löschen will. Tausend Dank!

 

Hi,

wenn du dich nicht mit VBA auskennst nützt es dir auch nichts wenn ich dir sage, benutzt SpecialCells.

Bis später,
Karin

 

Hallo Karin,
ich starte jetzt noch einen neuen Versuch, Dir Deine Lösung zu entlocken… ;-)
Ich habe mich nämlich in den letzten Tagen etwas mit VBA beschäftigt und habe immerhin das Prinzip verstanden – die Befehle natürlich noch nicht :-(

Hier mein Problem in Kurzform:

Tabellenblatt2 enthält mehrere Tabellen.

Ziel ist erstmal nur:

Zeile 5-20: leere Zeilen löschen
Zeile 25-40: leere Zeilen löschen
Etc.


Ich habe ja nun schon einige Ideen im Internet gefunden und probiert, habe aber aus o.g. Gründen gerade nicht so richtig die Möglichkeit zu experimentieren. Bei der Arbeit wollen allerdings alle endlich die Auswertungsvorlage haben und ich würde gerne eine "perfekte" Variante liefern...

Wenn Du also nicht auf eine genaue Vorlage meinerseits bestehen würdest, wäre es großartig.
Wenn Du Erläuterungen an Deinen Code hängst, verstehe ich es ja vielleicht sogar und kann ggf. Anpassungen vornehmen. Wenn nicht, frage ich einfach hier noch einmal!
Tausend Dank, Rike

 

Hi Rike,

wenn du den tatsächlichen Tabellenaufbau verheimlichen möchtest, dann kannst du das selbstverständlich tun, darfst dich dann aber nicht wundern, falls der Code nicht das macht was du erwartest.

Code:

Sub LoeschenLeerzeilen()
    Dim lngLetzte As Long
    ' letzt belegte Zeile in Spalte A ermitteln
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    ' zwischen Zeile 1 und letzter belegter Zeile in Spalte A alle Leerzeilen löschen
    Range(Cells(1, 1), Cells(lngLetzte, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Bis später,
Karin