Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige