Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Suchfunktion UserForm Sverweis

VBA Suchfunktion UserForm Sverweis
14.05.2020 17:01:03
Kai
Hallo,
ich versuche eine Suchfunktion zu bauen ähnlich wie ein Sverweis:
In meiner Tabelle gibt es nur 2 Spalten, Spalte A Rechnungsnummer, Spalte B entsprechender Wert (als Text) wenn ich im Userform im Textfeld die Rechnungsnummer eintippe, soll er mir den entsprechenden Wert der gleichen Zeile in einer Listbox (o. ä.) ausgeben.
Leider schaffe ich es nicht mit meinen nicht vorhandenen Kentnissen, nur ansatzweise einen Code in die jeweiligen Schaltflächen zu hinterlegen.
Kann jemand helfen?
Danke im Voraus!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Suchfunktion UserForm Sverweis
14.05.2020 17:04:07
Hajo_Zi
benutze Find
    Dim StAdresse As String
With Worksheets("Projekte")
Set Rafound = .Columns(4).find("Ha", .Range("D1"), , xlPart, , xlNext)
' xlPart enthalten
' xlWhole kompletter Vergleich
If Not Rafound Is Nothing Then
MsgBox Rafound.Address

GrußformelHomepage
Anzeige
AW: VBA Suchfunktion UserForm Sverweis
14.05.2020 17:07:46
Daniel
HI
dem SVerweis am ähnlichsten ist die Menüfunktion FINDEN bzw als VBA dann .FIND in Verbinung mit .OFFSETk um von der gefunden Zelle auf den dazugehörigen Wert zu kommen:
dim rF as range
Listbox_Ausgabe.Clear
set rF = Colummns(1).Find(what:=TextBox_Rechnungsnummer.Text, lookat:=xlwhole, lookIn:=xlvalues) _
if rF is Nothing then
listbox_Ausgabe.AddItem "-!- RE-Nr falsch -!-"
else
Listbox_Ausgabe.AddItem rF.Offset(0, 1).Text
End if

(Text- und Listboxnamen müssen ggf angepasst werden
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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