Hätte ein kleines Problem
Habe im Bereich AM1 bis AV1 kostenstellen stehen
in einer UF TB1 Suche ich nach der richtigen Kostenstelle
nun soll wenn Kostenstelle AM1 gefunden wurde AM2 bis AM999 in Listbox stehen
Beispiel
90/1032.00|90/1033.00|90/1034.00
Test1
Test2
Test3
usw
Habe mir hier schon die Suche gebaut
Dim rngFind As Range
If TextBox1.Text = "" Then
MsgBox "Geben Sie bitte einen Suchbegriff ein !", _
vbExclamation, "Hinweis"
Else
Set rngFind = Sheets("Eingabe").Range("AM1:BG1").Find(What:=TextBox1.Text, _
LookAt:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Dieser Datensatz existiert nicht !", _
vbExclamation, "Hinweis"
rngFind.Value = TextBox1.Text
Danke euch