brauche eure Hilfe.
Ich lasse per InputBox eine bestimmte Zelle suchen. Ist der Wert gefunden starte ich eine weitere Userform und lasse diesen Wert in (Userform5) textbox1 schreiben. So weit so gut.
Der gefundene Wert steht in einer bestimmten Zeile - aus dieser Zeile sollen dann vorangegangene Werte und nach folgende Werte in bestimmte textboxen übertragen werden.
Also Beispiel - per inputbox suche ich die Partnummer XYZ
Diese wird gefunden - Userform4 verschwindet und Userform5 taucht auf.
In der Textbox1 der Userform 5 steht jetzt der Wert der vorher gesucht wurde.
Textbox2 soll jetzt den Firmennamen anzeigen welcher 2 Zeilen vor der Partnummer XYZ steht.
Partnummer XYZ steht zb. in C16 - und in A16 steht dann der Firmenname - und genau das bekomme ich nicht hin!
Mein Code:
Private Sub CommandButton1_Click()
Dim strPart As String
Dim cRange As Range
strPart = InputBox("Part Nummer eingeben:", "Dialog", "")
Set cRange = (Sheets("Übersicht").Range("C4:C30000").Find(What:=strPart, LookAt:=xlWhole))
cRange.EntireRow.Select
UserForm4.Hide
UserForm5.Show
TextBox1 = cRange.Text
End Sub
danke vorab.
Gruß Sven