Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nächste Zeile mit Nummer suchen

Nächste Zeile mit Nummer suchen
Gregor
Hallo zusammen
Wie finde ich per VBA die nächste Zeile in Spalte 3, die am Anfang immer mindestens 3 Ziffern hat. ZB Zelle mit Inhalt "367 Muster (Muster)". Die Zischenzellen mit Inhalten ohne Ziffern am Anfang dürfen nicht berücksichtigt werden.
Ich benötige diesen Code zum Einbau in ein Makro.
Vielen Dank und Gruss
Gregor

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nächste Zeile mit Nummer suchen
24.04.2012 13:31:29
Ingo 
Sub erste_drei()
Dim l As Long
l = ActiveCell.Row + 1
Do Until l
mfG
Ingo christiansen
AW: Nächste Zeile mit Nummer suchen
24.04.2012 14:49:15
Gregor
Ingo
Vielen Dank, klappt bestens.
Gruss Gregor
das geht kürzer!
24.04.2012 15:46:40
Rudi
Hallo,
ein paar kleine Hinweise:
wozu jedes Zeichen einzeln abfragen?
=True ist überflüssig
Do Until l
1. ist Columns(3).Rows.Count immer 1.048.576
2. läuft die Schleife gar nicht, weil l immer 3. ist eine For Next Schleife viel schneller als Do Loop
Sub erste_drei()
Dim l As Long
For l = ActiveCell.Row + 1 To Cells(Rows.Count, 3).End(xlUp).Row
If IsNumeric(Left(Cells(l, 3), 3)) Then
Cells(l, 3).Select
Exit For
End If
Next
End Sub
Gruß
Rudi
Anzeige
AW: das geht kürzer!
24.04.2012 16:58:48
Gregor
Hallo Rudi
Das ist noch besser
Danke und Gruss
Gregor

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige