Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn mit Y beginnt

Forumthread: Wenn mit Y beginnt

Wenn mit Y beginnt
06.03.2004 16:41:48
Dieter
Hallo zusammen,
ich möchte mit VBA in Spalte A in die Zeile springen,
die mit "Y" beginnt.
Hat jemand `ne Lösung ??
Gruss Dieter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn mit Y beginnt
06.03.2004 17:21:27
PeterW
Hallo Dieter,
im einfachsten Fall mit:

Sub Finden()
Range("A:A").Find("Y*", MatchCase:=True).Select
End Sub

Gruß
Peter
AW: Wenn mit Y beginnt
06.03.2004 17:31:24
Dieter
Danke, klappt super.
Gruss Dieter
AW: Wenn mit Y beginnt
06.03.2004 17:25:40
Oliver
Hallo Dieter,
folgender Code durchsucht Spalte 1 nach einem Wert der mit Y beginnt.
Allerdings nur den ersten bzw. den letzten (entferne dafür: exit sub).
Sollten mehrere mit Y anfangen markiert das Makro den letzten.

Sub Wert_suchen()
lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To lzeile
If Left(Cells(a, 1), 1) = "Y" Then
Cells(a, 1).Select
Exit Sub
Next a
End Sub

Gruß Oliver
Anzeige
AW: Wenn mit Y beginnt
06.03.2004 17:39:34
Norman
Hi,
hab einfach mal ein Makro mit "Suchen" aufgezeichnet, das müsste Dir helfen.
Columns("A:A").Select
Selection.Find(What:="Y", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Allerdings werden alle Zellen, die ein Y enthalten, gefunden.
Ansonsten vielleicht so:
For Each zelle In [A1:A100]
If Left(zelle, 1) = "Y" Then
zelle.Select
Exit Sub
End If
Next
Gruß
Norman
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