Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn links Leerzeichen, Zeile löschen

Forumthread: wenn links Leerzeichen, Zeile löschen

wenn links Leerzeichen, Zeile löschen
03.12.2004 13:19:26
Bäebel
Hallo,
kann mir bitte jemand helfen?
Ich möchte ein Makro, das die Zeilen komplett löscht, wenn in Spalte xY links Leerzeichen stehen.
vielen Dank und ein schönes WE
https://www.herber.de/bbs/user/14296.xls
Anzeige
AW: wenn links Leerzeichen, Zeile löschen
Galenzo
Hallo,
das:
Dim c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If Left(c, 1) = " " Then c.EntireRow.Delete
Next
Viel Erfolg und ein Schönes Wochenende !
AW: wenn links Leerzeichen, Zeile löschen
Bärbel
Sorry, ich kriegs nicht hin.
Die Zellen mit den Leerzeichen beginnen ungefähr in Zeile 500, Spalte G.
Anzeige
AW: wenn links Leerzeichen, Zeile löschen
Galenzo
jaja - für Spalt G änderst du die 1 in 7
aus:
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
wird:
For Each c In Range(Cells(1, 7), Cells(Rows.Count, 7).End(xlUp))
oder auch:
For Each c In Range(Cells(1, "G"), Cells(Rows.Count, "G").End(xlUp))
Ich hoffe, diesmal klappt's.
mfg
Anzeige
AW: wenn links Leerzeichen, Zeile löschen
Bärbel
Geht leider auch nicht!?
Geht leider auch nicht!? super antwort mt.
th.heinrich
hallo Bärbel,
sorry, dass ich mich einmische, aber Deine Fehlerbeschreibung ist genial ;-))
gruss thomas
AW: Geht leider auch nicht!? super antwort mt.
Galenzo
Guten Abend Bärbel,
eine etwas ausführlichere Beschreibung der Ursachen ist eine Voraussetzung für weitere Hilfestellung....

Sub Bestimmte_Zeilen_Löschen()
Dim c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If Left(c, 1) = " " Then c.EntireRow.Delete
Next
End Sub

Dieses Makro durchläuft alle Zellen in Spalte A, von ganz oben (Zeile 1) bis ganz unten, und zwar bis dorthin, ab wo nix mehr in einer Zelle der Spalte A drinsteht.
So durchläuft das Makro nun Zeile für Zeile und "schaut" dabei nach, ob der Text aus Spalte A etwa mit einem Leerzeichen (" ") anfängt - wenn ja wird diese Zeile komplett gelöscht. Und weiter gehts - mit der nächsten Zeile. usw. usw. bis zum Ende runter.
Was soll denn daran nun nicht klappen?
Ein Makro aufzeichnen kannst du?
Zeichne ein Makro auf und gib ihm eine Tastaturkombi.
Dann ersetzt du im VBA-Teil (ALT+F11) den Inhalt, den Text des Makros urch die obigen Anweisungen.
Startest du das Makro und schaust ihm bei der Arbeit zu.
Ich wünsche dir viel erfolg - und verabschiede mich ins Wochenende...
mfg - Galenzo
Anzeige
AW: Geht leider nicht
Bärbel
Hallo, erstmal vielen Dank an Euch beide.
Natürlich habt Ihr recht, ich muss schon sagen, was nicht funktioniert...
Also:

Sub Bestimmte_Zeilen_Löschen()
Dim c As Range
For Each c In Range(Cells(1, 7), Cells(Rows.Count, 7).End(xlUp))
If Left(c, 1) = " " Then c.EntireRow.Delete
Next
End Sub

ich habe die 7 für Spalte "G" ersetzt.
Das Makro löscht immer nur ein paar Zeilen, so dass ich mehrmals klicken muss, bis alle " " Zeilen gelöscht sind.
Anzeige
Sorry.. versuche mal das hier:
Galenzo
Hallo,
'tschuldig, ich habe das Makro selbst nicht getestet, sondern so frei Hand geschrieben.
Wie peinlich :-(
Hab' es nun mal ausprobiert - es ergibt tatsächlich das von dir beschriebene Ergebnis.
Du hast also nix falsch gemacht - der Fehler liegt bei mir. Ich werd' wohl einen logischen Fehler in der Schleifenkonstruktion haben.
Ich denke nochmal drüber nach....
Vorerst hilft dir dieses Makro weiter:

Private Sub Bestimmte_Zeilen_Löschen()
Dim c As Range, i As Integer, iRows As Integer
iRows = Cells(Rows.Count, 7).End(xlUp).Row + 1
For i = 1 To iRows
If Left(Cells(i, 7), 1) = " " Then Rows(i).EntireRow.Delete
Next
End Sub

Viel Erfolg!
Anzeige
AW: Sorry.. versuche mal das hier:
Bärbel
...das ist furchtbar nett von Dir. Das neue Makro liefert bei mir das gleiche Ergebnis wie das alte.
Gruss Bärbel
;

Forumthreads zu verwandten Themen

Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 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
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Zeilen löschen, wenn I = 0
Macro

Hi,
ich möchte ein Tabellenblatt (Export) in den Spalte I durchsuchen, ob sich irgendwo der Wert 0 befindet.
Alle Zeilen die in der Splate eine NULL haben, sollen gelöscht werden. Wie mache ich das mit einem Makro. ?
(leere Zellen sollen aber nicht als NULL interpretiert werden)
...
04.12.2008 08:21:00
Thread-ID: 1030023
5 Beiträge
Anzeige
Wenn Range("O10:O16") leer ist
Heinz

Hallo Leute
Habe mit meinem Makro in der Zeile
'If Sheets("Eingabe").Range("O10:O16").Value = "" Then
'MsgBox "Kein Gewicht eingegeben"
'Exit Sub
'End If
Ein Problem.
Ich möchte wenn in O10 bis O16 kein Eintrag gemacht wurde,das dann die MsgBox startet.
Wenn aber...
31.12.2008 16:19:40
Thread-ID: 1036170
3 Beiträge
Anzeige
0 entfernen, sprich leere Zelle
Bernhard

Hallo,
ich habe ein kleines Problem. Wenn ich z.B. zwei Zelleninhalte addiere und beide Zellen sind leer, spricht nicht 0 sonder leer, bekomme ich als Ergebnis ebenfalls eine 0. Ich möchte aber, dass diese Zellen ebenfall nicht darstellt. Ich habe bisher dann die "" Stringausgabe gewählt. =...
24.01.2009 12:22:54
Thread-ID: 1043326
6 Beiträge
Anzeige
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Zelleninhalt löschen, wenn am Anfang \\52023tk\ st
Selma

Hallo Leute,
wie kann ich in Spalte 3 und Spalte 15 den gesamten Zelleninhalt löschen, wenn dieser mit \\52023tk\ am Anfang beginnt?
Besten Dank im Voraus.
Viele Grüße,
Selma
07.05.2009 20:57:09
Thread-ID: 1073720
10 Beiträge
Erstellung .csv ohne Übergabe der leeren Zeilen
Klemens

Hallo !
benutze ein Makro, das mir als Ausgabedatei eine .csv Datei erstellt. Die Ausgabe als solches funktioniert.
Allerdings habe ich das Problem dass nicht nur die Zeilen mit Inhalten ausgegeben werden sondern auch diejenigen ohne Inhalte. Die csv.-Datei wird aus einem Arbeitsblatt h...
05.06.2009 14:43:58
Thread-ID: 1079468
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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