Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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

304 Forumthreads zu ähnlichen 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
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
next for schleife zahlen überspringen
outbreak7

Hallo Leute,
ich habe folgende next for schleife um verschiedenen labels innerhalb einer userfrom unsichtbar zu machen
For w = 3 To 28
Me("Label" & w).Visible = False
Next w
gibt es denn eine möglichkeit das die labels 6 und 13 in der schleife übersprungen werden? will n...
12.05.2010 18:37:55
Thread-ID: 1156867
3 Beiträge
Anzeige
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
Fehler überspringen
Christopher


Huhu Hallo,
ich habe diesen Code hier im Forum gestohlen!!!
Der funktioniert soweit auch TOp nur leider wenn mal kein Datum verfügbar ist schmiert das ganze Teil ab. kann man das so umbauen dass das dann einfach ignoriert wird?
Private Sub Workbook_Open() Dim sMldg1 As String,...
08.05.2013 14:16:44
Thread-ID: 1312263
20 Beiträge
excel- zeilen überspringen
valeria

Hallo zusammen
Ich habe folgendes Problem.
Ich habe einen Bericht erstellt und der sollte wenn möglich automatisch laufen.
Mein Problem ist ich habe in der Spalte C alle Produkte und ich möchte einige Produkte nicht anzeigen die ab der zeile C4 beginnen.
Am besten wäre es wenn...
26.07.2013 11:42:38
Thread-ID: 1324299
15 Beiträge

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
7
4
2
2
1
8
6
25
19
14
6
1
5
3
4
4
2
1
2
4
3
1
5
4
9