Inhalt Textbox in Tabelle suchen
19.06.2020 12:20:39
Waldemar
ich habe folgendes Problem:
Ich habe mir zwei Userforms erstellt.
1) Hier wird eine Seriennummer eingegeben, welche durch Klicken auf die Befehlsschaltfläche "Weiter" in der Tabelle1 unter der Spalte B gesucht werden soll.
2) Hier soll die Adresse in einer TextBox oder einem Label ausgegeben werden. Adresse Befindet sich 7 Spalten weiter in der selben Zeile.
Ziel meiner Userformen ist es, dass ich in die erste Userform eine Seriennummer eingebe, welche sich in der Tabelle 1 in der Spalte B befindet. Der eingegebene Wert wird dann in der Spalte B gesucht. Wenn der exakte Wert gefunden wird, soll die Adresse, welche 7 Spalten weiter ist, in einer TextBox in der zweiten Userform ausgegeben werden. Falls der eingegebene Wert nicht vorhanden ist, soll ein Fehler ausgegeben werden als Msgbox
Habe es mit diesem Code versucht, der Fehler als Msgbox wird ausgegeben, jedoch springt der Courser nicht auf die gefundende Zelle und schon gar nicht auf die Adresse weiter rechts.
Folgenden Code habe ich auf den "Weiter"-Button in die erste Userform eingefügt
Private Sub Weiter_Click()
Dim WkSh As Worksheet
Dim rZelle As Range
Application.DisplayAlerts = False
Set WkSh = ActiveWorkbook.ActiveSheet
If TextBox_SerienNummer.Value "" Then
With WkSh.Columns(2)
Set rZelle = .Find(TextBox_SerienNummer.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
ActiveCell(rZelle, Columns + 7).Select
Else
MsgBox "Die Serien-Nummer """ & TextBox_SerienNummer.Value & _
""" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
TextBox_SerienNummer.SetFocus
End If
End With
Else
MsgBox "Sie müssen einen Suchbegriff eingeben - danke." & _
48, " Hinweis für " & Application.UserName
TextBox_SerienNummer.SetFocus
End If
Application.DisplayAlerts = True
End Sub
Hoffe mir kann jemand helfen, stehe so ziemlich auf dem Schlauch
https://www.herber.de/bbs/user/138423.xlsx
