Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen löschen

Leerzeilen löschen
12.01.2005 14:45:05
Ernst
Hallo Forum,
Ich habe mir ein Excel sheet gebaut mit dem ich mit SVERWEIS aus anderen Dateien Daten importiere.
Zu diesem Zweck hab ich mir (um genügend Platz zu haben) ca. 2000 Zeilen freigehalten bevor ich einen Abschluss mache.
Werden allerdings jetzt nur ca. 100 Daten importiert bleiben mir 1900 Zeilen frei.
Wie kann ich diese komfortabel löschen?
Optimale Zeilenbreite, Zeilenhöhe und Inhalt einfügen mache ich schon ueber ein Makro(aufgezeichnet)
Vielen Dank fuer eure Hilfe
Gruesse
Ernst

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen löschen
Galenzo
Hallo,
manuell so:
Spalte mit den Leerzellen markieren
F5/Inhalte/Leerzellen
STRG+MINUS / ganze Zeile löschen
Als Makro:
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Viel Erfolg!
AW: Leerzeilen löschen
13.01.2005 10:00:45
Ernst
Hallo Galenzo,
Danke das funtioniert auch - allerdings nur bei komplett leeren Zeilen.
Mein Suchkriterium sollte die Spalte A sein.
Wenn in Spalte A17:A2097 nichts drinnen steht, dann soll die komplette Zeile gelöscht werden - auch wenn in Spalte F oder J was drinnen steht.
Gibt es hier einen speziellen Befehl oder kann man das nur mit einen Schleife realisieren ?
Vielen Dank fuer Deine Hilfe
Gruss
Ernst
Anzeige
AW: Leerzeilen löschen ohne Schleife
Martin
Hallo Ernst,
eine Schleife ist unnötig und von der Performance her schlecht. Zeichnet man den manuellen Weg auf, bekommt man folgenden Code:

Sub Leerzeilen_weg()
Range("A17:A2097").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

Das noch ein bißchen zusammengefaßt ergibt dann:

Sub Leerzeilen_weg2()
Range("A17:A2097").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Gruß
Martin Beck
AW: Leerzeilen löschen ohne Schleife
13.01.2005 15:38:34
ernst
Hallo Martin,
Danke fuer Deine Hilfe
aber da krieg' ich Laufzeitfehler '1004'
An was kanns liegen?
Danke
Ernst
Anzeige
AW: Leerzeilen löschen ohne Schleife
Martin
Hallo Ernst,
1004 mit der Meldung "Keine Zellen gefunden"? Dann hast Du eben im Bereich A17:A2097 keine leeren Zellen.
Gruß
Martin Beck
AW: Leerzeilen löschen
wolfgang
Nehmen wir mal an, Du Spalte A ist Deine Refernz, d.h. in Zeile 210 ist der letzte Eintrag und alles, was darunter liegt (in Spalte B,C, u.s.w.) soll gelöscht werden.
Dann probier's mal damit:

Sub RestLoeschen()
Range("A1").Select
Selection.End(xlDown).Select
Range("A15").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
Range("A1").Select
End Sub

Anzeige
AW: Leerzeilen löschen
12.01.2005 15:39:27
Ernst
Hallo Galenzo,
Hallo Wolfgang,
Danke für eure Hilfe
Leider funktioniert's noch nicht ganz so einwandfrei.
Gelöscht werden sollen alle Zeilen von Zeile 17 bis 2097 wo in der Spalte A nichts drinnen steht. (Obwohl Inhalt in D und E und .. möglicherweise stehen koennen)
Danke nochmals im Voraus
Gruss
Ernst
AW: Leerzeilen löschen
Galenzo
markierst du A17 bis A2097 und rufst mein Makro auf
cells(zeile,1).EntireRow.Delete
ransi
hallo ernst
verrsuchs mal so:
Public 

Sub leere_weg()
Dim zeile As Integer
For zeile = 2097 To 17 Step -1
If Cells(zeile, 1) = "" Then Cells(zeile, 1).EntireRow.Delete
Next
End Sub

ransi
Anzeige
AW: cells(zeile,1).EntireRow.Delete
13.01.2005 08:57:10
ernst
Hallo ransi,
Toll!
Funktioniert genau so wie ich's wollte !!!
allerdings ´kriegt man fast einen Augenkoller weil der Bildschrim flimmert wie verrueckt.
Ich hab' da noch ne' Frage
Kann man anstatt Leerzeilen zu loeschen mit einem Makro auch den benötigten Platz reservieren lassen?
Die Anzahl der benötigten Zeilen ist die Anzahl der ausgefüllten Zellen in Spalte A in einer anderen Datei aus der die Daten importiert werden)
Vielen Dank nochmals !!!!!!!
Gruss
Ernst
AW: cells(zeile,1).EntireRow.Delete
WernerB.
Hallo Ernst,
zu Frage 1:

Sub leere_weg()
Dim zeile As Integer
Application.ScreenUpdating = False
For zeile = 2097 To 17 Step -1
If Cells(zeile, 1) = "" Then Cells(zeile, 1).EntireRow.Delete
Next zeile
Application.ScreenUpdating = True
End Sub

Zu Frage 2 kann ich Dir leider keine Lösung anbieten (ich habe sie - ehrlich gesagt - auch nicht verstanden).
Gruß
WernerB.
Anzeige
Zeilen reservieren
Martin
Hallo Ernst,
nehmen wir mal an, die Daten kommen aus Datei "test" und stehen dort in "Tabelle1" in Spalte A, und zwar durchgängig von Zeile 1 bis Zeile z. z ist variabel und soll bestimmt werden.
Folgendes Makro reserviert n Zeilen ab Zeile 17:

Sub reservieren()
z = Workbooks("test").Worksheets("Tabelle1").Range("A65536").End(xlUp).Row - 1
Range("A17:A" & 17 + z).EntireRow.Insert
End Sub

Beim Aufruf des Makros muß die Tabelle aktiviert sein, in der die Zeilen eingefügt werden sollen.
Gruß
Martin Beck
AW: Leerzeilen löschen
13.01.2005 18:21:42
ernst
Hallo zusammen,
Ich hab von allen schon sehr hilfreiche Tips bekommen, aber so ganz komm ich noch nicht zurecht.
Makros mit Schleife dauern ganz schon lange um Leerzeilen im Range A17:A2097 zu suchen und zu löschen (ca. 4min), und mit
Range("A17:A2097").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
hab ich Probleme weil die Zelle obwohl nichts drinnen steht wahrscheinlich nicht als leer erkannt wird.
Ich hab mir gedacht wenn ich die Zelle z.B. A156 markiere und danach alle Zeilen bis A2097 löschen könnte wär's wohl schneller.
Aber wie mach ich das mit einem Makro?
Welchen Namen im Befehl Range hat die markierte Zelle?
Wie markier ich einen Bereich von meiner aktiven Zelle bis zur Zeile 2097 ?
und dann alles darin löschen und Zeilen nach oben schieben?
Vielen Dank nochmals fuer Hilfe
Ernst
Anzeige
AW: Leerzeilen löschen
bernd
hallo ernst
Range(ActiveCell.Row & ":2097").Delete 'löscht die zeilen
Range(ActiveCell.Row & ":2097").ClearContents 'löscht die inhalte
bernd
AW: Leerzeilen löschen
14.01.2005 10:00:08
ernst
Hallo Bernd,
Hallo Martin,
Danke für eure Hilfe!!
Martin: Das funktioniert bei meinen Aufbau leider nicht weil ich die Dateien ja nicht mit einen MAKRO importiere, sondern mit SVERWEIS und Verknüpfungen aktualisieren.
D.h. Zuerst importieren und dann Zeilen mittels Makro reservieren geht ja nicht.
Ich muesste beim öffnen der Datei das Makro ja bereits ausführen um Zeilen zu reservieren, und danach die Formeln mit SVERWEIS in die reservierten Zeilen reinkopiert bekommen.
Aber das ist fuer mich als VBA-Dummi ein längerer Weg.
Die kurzfristige Hilfe mit einem schnellen Löschen der Leerzeilen langt mir vorerst.
Vielen Dank nochmals an alle fuer eure Hilfe !!!!!!!!!
Gruss
Ernst
Anzeige
AW: Leerzeilen löschen
Martin
Hallo Ernst,
wieso reservierst Du nicht einfach nur die benötigten Zeilen? Wie das geht, habe ich ja schon gepostet, Du hast leider nicht darauf reagiert.
Gruß
Martin Beck

239 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Anzeige
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zeilen ohne Färbung löschen
Wolle

Hallo zusammen,
habe mal wieder ein Problem wo ich Hilfe brauche.
Habe eine Tabelle mit gaaaanz vielen gefüllten Zeilen. Einige der Zeilen sind gefärbt von Spalte A bis E (danach ist auch nichts mehr in den Zellen).
Nun möchte ich alle ZEILEN die NICHT gefärbt sind löschen. Das ganz...
08.07.2009 11:07:42
Thread-ID: 1087115
5 Beiträge
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
7
3
7
7
16
4
4
4
19
2
7
4
6
5
3
2
4
4
4
9
6
7
14
2