Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

for each, überspringen vermeiden

Forumthread: for each, überspringen vermeiden

for each, überspringen vermeiden
Marc
Guten Morgen zusammen.
In einer Liste von Zahlen sind unter aufeinanderfolgende Leerzeilen und Textzeilen enthalten. Diese will ich mit folgender Logik eliminieren.
lz = Cells(Rows.Count, "A").End(xlUp).Row
For Each cl In Range("A25:A" & lz)
If IsEmpty(cl) = True Or Not IsNumeric(cl) Then Rows(cl.Row).Delete
Next cl
Das Problem ist, das durch das Löschen eine Zeilenverschiebung entsteht, die bei der Routine nicht abgefangen wird. Es wird also nur (bei 4 Leer- bzw. Textzeilen) nur jede zweite Zeile gelöscht.
Bei "for 1 to 255" ist es möglich "STEP -1" dahinter zusetzen, um "hinten" anzufangen. Gibt das hier auch oder muß ich eine andere Lösung anstreben?
Danke schon mal fürs reindenken....
Gruß, Marc
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
warum benutzt Du dann nicht Step -1 ...
10.11.2011 08:30:48
Matthias
Hallo Marc
Sub marc()
Dim lz&, cl&
lz = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox "letzte Zeile = " & lz, vbInformation
If lz > 25 Then
For cl = lz To 25 Step -1
If IsEmpty(Cells(cl, 1)) Or Not IsNumeric(Cells(cl, 1)) Then Rows(cl).Delete
Next
Else
MsgBox "keine Aktion"
End If
End Sub

https://www.herber.de/bbs/user/77428.xls
Gruß Matthias
Anzeige
das hatte ich schon gesehen ;o) kwT
10.11.2011 08:58:03
Matthias
If lz >= 25 Then          Gruß, o.w.T.
10.11.2011 08:51:36
Reinhard

Anzeige
Yes          :o) THX o.w.T.
10.11.2011 09:01:30
Matthias
;

Forumthreads zu verwandten Themen

Ausgeblendete Zeilen überspringen
reiner

Hallo Leute,
https://www.herber.de/bbs/user/64091.xls
In der Beispieldatei werden alle Zeilen mit einer "2" in Spalte "A" ausgeblendet und der zugehörige Wert in Spalte "B" von der Addition aller Werte in Spalte "B" ausgeschlossen.
Wie müsste der Programmcode erweitert werden um zu...
28.08.2009 10:35:19
Thread-ID: 1099133
8 Beiträge
Anzeige
Gefüllte Zellen überspringen
Matthias

Hallo Zusammen,
Ein Makro prüft Zeile für zeile Daten. Wenn die entsprechende Zelle in Spalte B bereits befüllt ist, soll keine weitere bearbeitung erfolgen und sofort zur nächsten Zeile gesprungen werden. Und zwar so lange bis eine leere Zelle gefunden wird.
Ich habe folgendes versucht...
18.03.2010 16:53:29
Thread-ID: 1146914
5 Beiträge
Druckbereich Leerzeile überspringen
Kurt

Hallo nochmal,
habe gerade bei mir einen Fehler festgestellt.
Mit dem folgenden Makro wird mein Druckbereich selektiert und
auch ausgedruckt.
Wenn ich jetzt aber eine Leerzeile einfüge, endet der Druckbereich da, deshalb
such ich nach einer Möglichkeit, die meinen Druckberei...
20.04.2010 14:03:25
Thread-ID: 1152867
3 Beiträge
Zeile überspringen
Florian

Guten Tag zusammen,
da meine Excel-Kenntnisse beschränkt sind, und vor allem was Formeln angeht, bräuchte ich eure hilfe.
Ich habe eine Excel liste in Zwei Spalten "A" und "B". Meine erste Aufgabe war zu schaun ob selbe Nummern aus Spalte "A" in Spalte "B" vorkommen. Dies habe ich über...
17.01.2012 13:25:09
Thread-ID: 1246543
2 Beiträge
Spalten links nach rechts und überspringen
Laund

Bitte um Hilfe bei den VBA-Profis
Alle Daten befinden sich in Spalte B. Ich müsste jetzt Spalten von links nach rechts füllen.
Und es sollte immer eine Spalte überspringen.
Die Reihenfolge sollte sein, Spalte:
B D F H J L N P R T
und dann die nächste Zeile von vorne.
Als...
01.05.2012 15:44:06
Thread-ID: 1261747
9 Beiträge
Zellen überspringen
ralf

Hallo Forum
Habe ein Problem . Will in Spalte A , Datum eingeben . Das bekomme ich auch hin .
Das Problem ist das ich in Zelle A1 ein Datum habe möchte ,dann Zelle A2 leer ,
und in Zelle A3 wieder Datum usw. Benutze folgendes Makro.
Private Sub Datum() Dim d As Date Dim b, i i =...
07.11.2012 17:45:00
Thread-ID: 1285715
7 Beiträge
Zeilen überspringen
MAG73

Hallo zusammen,
kann mir von euch jemand bei folgender Aufgabe helfen, wenn möglich ohne VBA?
Bei mir auf der Arbeit wird aus SAP-Daten eine Excel-Tabelle (links im Bild) mit Werten generiert. Die hier angegebenen Werte sind fiktiv und dienen nur der Darstellung.
Für jede Stadt sind...
18.03.2013 20:01:53
Thread-ID: 1304624
26 Beiträge
Leerzellen überspringen
Sebastian

Liebes Forum,
diesmal habe ich folgendes Anliegen/Frage:
Ich möchte gerne einen Bereich kopieren und an anderer Stelle einfügen (per vba). Leerzellen sollen dabei übersprungen werden. In dem zu kopierenden Bereich befinden sich jedoch Formeln, die ggf. "", aber eben keine "echten" Leerz...
28.10.2013 15:11:58
Thread-ID: 1336182
6 Beiträge
Spalte in Range Auswahl überspringen
Marc

Hallo zusammen,
kann mir jemand sagen, ob es möglich ist bei einer Range-Auswahl eine oder mehr Spalten der Tabelle auszulassen?
Bsp: Range("A7:F100") Spalten D und E will ich aber NICHT in die Auswahl übernehmen.
Wie kann ich das schreiben? So funktioniert es jedenfalls nicht: Rang...
21.12.2013 14:17:54
Thread-ID: 1343279
4 Beiträge
Leerzeilen überspringen & Verweisfunktion
Sara

Hallo Zusammen,
ich hoffe, jemand kann mir helfen.
Ich würde das Problem gerne mit einer Formel und nicht per Makro lösen.
Hier ist die Datei https://www.herber.de/bbs/user/88957.xlsx
.. Und hier die Problembeschreibung:
"Für alle Projekte in Spalte B die einem Mitarbeiter...
24.01.2014 09:45:45
Thread-ID: 1346494
5 Beiträge
Anzeige
Werte Prüfen, bei Ungültigkeit überspringen
mkroes

Hallo Miteinander,
in einer for-Schleife prüfe ich aus n Arrays Werte mittels If-Schleifen und schreibe diese in eine Zeile. Sind diese ungültig, überspringe ich und nehm den nächsten Wert. Problem: Durch das überspringen entstehen mir leere Zeilen, was ich aber nicht haben möchte. Bitte da...
17.03.2014 22:45:47
Thread-ID: 1353840
5 Beiträge
Ausgefilterte Zeilen überspringen
Jockel

Hallo,
habe mir aus Beispielen ein Muster zusammengebaut. Ich möchte an alle email Adressen, die sich in der Spalte A befinden, eine mail senden. Also nicht einzeln, sondern eine Mail mit allen Adressen. Das funktioniert soweit:
Sub Sample() Dim olApp As Object Dim olMailItm As Object D...
03.04.2014 13:16:42
Thread-ID: 1356018
3 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