Registriert seit: 05.07.2024
Version(en): 365 Grad
05.07.2024, 21:54
Hallo liebe Excel Profis, ich Versuche mich gerade ein bisschen an einer VBA und stehe vor einem Problem wo ich nicht weiter komme. Ich hoffe ihr könnt mir helfen.
Ich habe eine Userform in Form eines „Suchen“ Button erstellt.
Ich benötige eine Formel in VBA, mit der ich einen bestimmten Zahlenwert aus einer Spalte finde.
Beispiel:
A B
1 234
2 4324
3 52342
4 231
5 1432
6 5153
Suche mir die Zahl 1432 -> und Spring in der Zeile in die nächste nicht beschrieben Spalte -> B5
Ich hoffe ihr versteht, was ich meine
Vielen dank für eure Hilfe
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo Sofia,
versuche es mal damit:
Code:
Sub suche()
Cells(Application.Match(1432, Columns(1), 0), 2).Select
End Sub
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 05.07.2024
Version(en): 365 Grad
Registriert seit: 13.04.2014
Version(en): 365
Hallo,
in einer .xlsx sind keine Makros enthalten, also kann niemand was mit der Datei anfangen!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo Sofia,
wenn du den Suchbegriff in eine TextBox schreibst, wird nach Text gesucht. Versuche es mal so: Cells(Application.Match(CLng(TextBox1.Value), Columns(1), 0), 2).Select
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 05.07.2024
Version(en): 365 Grad
Perfekt so funktioniert es vielen dank Klaus-Dieter :)
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Moin und nur ergänzend!
Das funktioniert nur so lange, wie die Zahl auch tatsächlich existiert!
Wenn Du schon mit UFs experimentierst, dann solltest Du unbedingt an Fehler des Anwenders denken.
Hier: Zuweisung der Zeilennummer an eine Variant-Variable und Prüfen dieser Variable auf IsNumeric(Zeile)
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)