Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zellen löschen

Forumthread: Leere Zellen löschen

Leere Zellen löschen
Putenbrust
Hallo,
ich möchte in Spalte B im Bereich B100:B300 eines Tabellenblattes alle leeren Zellen löschen. Es kann auch die ganze Zeile gelöscht werden, in der sich eine leere Zelle des Bereichs B100:B300 befindet.
Das ganze über VBA
Kann mir jemand helfen ?
Vielen Dank
Grüsse
Thomas
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Leere Zellen löschen
11.05.2010 07:07:04
Hajo_Zi
Hallo Thomas,
Option Explicit
Sub löschen()
' mit bestimmten Datum löschen, Heute =Date
Dim LoI As Long
Dim LoLetzte As Long
' letzte Zelle in Spalte B unabhängig von Version
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = LoLetzte To 1 Step -1
If Cells(LoI, 2) = "" Then Rows(LoI).Delete
Next
On Error GoTo 0
End Sub


Anzeige
AW: Leere Zellen löschen
11.05.2010 08:27:36
Putenbrust
Hallo Hajo,
danke für deine Hilfe.
Ich bin da nicht so fit drin, dein Progrämmchen zu lesen. Aber ich möchte nur den Bereich zwischen B100:B300 überprüfen. Und wenn ich den Code verstehe, wird die ganze Spalte B auf Leerzellen geprüft.
Zwischen B1:B100 gibt es auch noch gefüllte und leere Zellen.
Dieser Bereich soll auch unberührt bleiben.
Vielleicht kannst du mir nochmals helfen.
Vielen Dank
Thomas
Anzeige
AW: Leere Zellen löschen
11.05.2010 10:50:07
Hajo_Zi
Hallo Thomas,
ändere
For LoI =300 To 100 Step -1
Gruß Hajo
AW: Leere Zellen löschen
11.05.2010 17:58:19
Putenbrust
Vielen Dank Hajo
Grüsse
Thomas
das geht übrigens auch ohne VBA
11.05.2010 07:51:59
Matthias
Hallo Thomas
sollte es Dir noch nicht bekannt sein, folgende Routine funktioniert auch ohne VBA
Einfach Deinen Bereich markieren B100:B300
Drücke nun F5 und wähle
Inhalte-Leerzellen-ok Nun sind alle Leerzellen im Bereich markiert.
Gehe dann auf Bearbeiten-Löschen-Ganze Zeile
Userbild
Bitte generell Vorschläge an eine Kopie testen.
Gruß Matthias
Anzeige
AW: das geht übrigens auch ohne VBA
11.05.2010 08:30:27
Putenbrust
Hallo Matthias,
danke für deine Antwort. Aber ich brauche diesen Löschvorgang tatsächlich mit VBA.Code.
Das händische Löschen ist mir auch bekannt.
Vielleicht eine Idee ?
Thomas
AW: makro
11.05.2010 08:44:01
hary
Hallo Thomas
Teste mal: 

Sub loeschen()
Dim i As Long
For i = 300 To 100 Step -1
If Cells(i, 2) = "" Then Cells(i, 2).EntireRow.Delete
Next
End Sub

gruss hary
Anzeige
mE nicht ganz ...
11.05.2010 08:54:51
Matthias
Hallo hary
mit EntireRow.Delete, das akzeptiere ich ;o)
aber If Cells(i, 2) = "" akzeptiere ich nicht.
Da es sich u.U. auch um Formeln handeln könnte, deren Ergibnis ein Leerstring zurückgibt.
Gruß Matthias
mit VBA ...
11.05.2010 08:49:42
Matthias
Hallo
Sub ThomasZeile()
Dim x As Long
For x = 300 To 100 Step -1 'Schleife rückwärts
If IsEmpty(Cells(x, 2)) Then Rows(Cells(x, 2).Row).Delete
Next
End Sub
bitte immer mit einer Kopie testen
Gruß Matthias
Anzeige
AW: mit VBA ...
11.05.2010 09:24:25
Putenbrust
Vielen Dank Matthias
Geht einwandfrei
Grüssle
Ohne Schleife!
11.05.2010 08:54:29
Backowe
Hi Thomas,
Range("B1:B300").SpecialCells(4).EntireRow.Delete
Gruß
B1:B300 ? ;o)
11.05.2010 08:59:52
Matthias
Hallo Jürgen
Hast Recht
Ich weiß das Du B100:B300 meintest. ;o)
Gruß Matthias
Anzeige
Ist ja noch mitten in der Nacht, Matthias! oT
11.05.2010 09:01:09
Backowe
AW: Ist ja noch mitten in der Nacht, Matthias! oT
11.05.2010 09:23:32
Putenbrust
Hey, supi.
Vielen Dank
;

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
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
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige