Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeilen eliminieren

Forumthread: Leere Zeilen eliminieren

Leere Zeilen eliminieren
18.05.2004 10:50:40
Hein
Ich sollte innerhalb eines bestehenden Excel-Sheets sämtliche leeren Zeilen oberhalb des ersten Eintrages löschen.
Hat da jemand eine Idee?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeilen eliminieren
Bud
Zeilen markieren, Rechtsklick, Zellen löschen.
Bud
AW: Leere Zeilen eliminieren
18.05.2004 11:12:59
Hein
Vielleicht eine etwas unklare Formulierung .... ich möchte das Ganze mittels VBA automatisieren.
AW: Leere Zeilen eliminieren
geri
Hallo Hein
meinst du so

Sub Leerzeilenlöschen()
' Leerzeilen löschen einschließlich der Zeilen die entstehen wenn Zeilen am ende
' gelöscht werden, auch Leerzeilen in der Tabelle werden gelöscht
' von Wolf.W.Radzinski
On Error Resume Next
Dim r As Range
Dim anz As Long
Dim c_ges As Long
Dim col As New Collection
c_ges = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
For Each r In ActiveSheet.UsedRange.EntireRow
anz = 0
anz = r.SpecialCells(xlCellTypeBlanks).Count
If anz >= c_ges Then col.Add r
Next
For Each r In col
r.Delete
Next
End Sub

gruss geri
Anzeige
AW: Leere Zeilen eliminieren
18.05.2004 11:41:59
Heinz
Hallo Heinz,
hier eine Lösung vom SmartTools-Newsletter:
In diesem Fall gehen wir davon aus, dass Sie vor dem Aufruf des Makros die komplette Liste markiert haben. Wir ermitteln dann die Anzahl der Zeilen und gehen den gesamten Bereich Zeile für Zeile durch. Dabei prüfen wir für jede Zeile, ob Sie komplett leer ist oder nicht, indem wir die Funktion "CountA" einsetzen. Sie entspricht der deutschen Tabellenfunktion "Anzahl2" und liefert die Anzahl der ausgefüllten Zellen in einem Bereich. Nur wenn das Ergebnis 0 ist, ist die Zeile wirklich komplett leer und sie wird ausgeblendet. Möchten Sie die leeren Stellen stattdessen löschen, sieht das Makro folgendermaßen aus:

Sub LeereMarkZeilenLoeschen()
lngAnzahl = Selection.Rows.Count
For i = 1 To lngAnzahl
If Application.CountA(Selection.Rows(i)) = 0 Then Selection.Rows(i).Delete
Next i
End Sub

Gruß
Heinz
Anzeige

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Zeilen nach Abfrage einfärben
Dirk

Hallo, ich möchte gerne in einer Tabelle folgendes abfragen:
Wenn in Spalte P der Wert kleiner 0 ist, dann färbe mir die
Entsprechenden Zeilen in Spalte A,B,C, ein.
Mit der bedingten Formatierung haut so etwas nicht hin.
Wer hat eine einfache Idee ?
Gruß Dirk
04.09.2008 07:51:44
Thread-ID: 1007267
5 Beiträge
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
Anzeige
2 Zeilen einfügen + Schleifenweiterlauf
Herbert

Hallo zusammen,
ich bin neu hier und sehr begeistert von diesem Forum/dieser Website - wirklich toll, dass es so etwas gibt:-)
Allerdings habe ich ein kleines VBA-Problem.....
Dim reihe As Integer
Const spalte As Integer = 5 ' Spalte Teilebezeichnung
reihe = 3 ' Tabelle...
16.09.2008 20:06:00
Thread-ID: 1010193
5 Beiträge
Anzeige
Zeilen löschen verhindern
steffen

Hallo Excelgemeinde,
ich scheiere gerade an dem Versuch, mein Tabellenblatt so zu sichern, dass auch nach dem "Blattschutz aufheben" ein Löschen von Zeilen nicht möglich ist. Das einfachste wäre natürlich ein Blattschutz mit Kennwort. Das will ich aber nicht.
Ich dachte da an sowas, wie...
22.09.2008 10:46:33
Thread-ID: 1011401
2 Beiträge
Makro zur Zeilen löschen verfeinern
Matthias

Hallo Zusammen,
ich habe ein Makro, das alle Zeilen löscht in denen kein Inhalt steht.
Allerdings würde ich das Makro gerne so anpassen, dass er eine Zeile komplett löscht, wenn in einer bestimmten Spalte die Zelle leer ist.
Das Makro soll also nicht die gesamte Zeile nach Inhalten...
22.09.2008 13:23:19
Thread-ID: 1011460
4 Beiträge
optimale Zeilenhöhe einer Zeile
Jakob

Hallo,
ich habe ein kleines Problem mit der optimalen Höhe einer Zeile und vielleicht habt Ihr eine Lösung für mein Problem.
Man kann ja unter Zellen formatieren/Textsteuerung den Haken bei Zeilenumbruch anklicken und Excel paßt die Zeilenhöhe automatisch an. Soweit so gut. Wenn ich abe...
24.09.2008 15:24:00
Thread-ID: 1012091
7 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Anzeige
Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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