Ich hab eine userform erstellt, inder ich über einen Button eine inputbox aufrufe inder ich eine Nummer eingebe und mir dann Werte aus einer Tabelle ausgegeben werden. Jetzt möchte ich anstatt einer inputbox einfach nur ein Textfeld da haben wo ich die nummer eingebe und sich die anderen Textfelder ändern. Wie geht das ? Ich habe folgenden Code für die Input box ....
Public Sub suchen_click()
Dim Begr As String
Dim rFind As Range
Dim Ber As Range
Set Ber = Sheets(1).Range("B:B")
Begr = InputBox("Bitte geben sie die Atikelnummer ein:", "Artikelnummereingabe")
Set rFind = Ber.Find(Begr, LookAt:=xlWhole)
If Not rFind Is Nothing Then
With rFind
"" Hier kommen die Zellen die rausgesucht werden sollen ""
welchen Code muss ich vor der with anwendung schreiben, damit ich die Input box weglassen kann ?
Dankeschön