VBA Wörter Suchen und in Textbox ausgeben
23.05.2018 14:08:58
Tim
ich habe ein Code gefunden mit dem ich in eine Spalte nach einem Wort suchen kann (über Schaltfläche und TextBoxen in UserForm). Wenn das Wort gefunden wird, zeigt es mir in den anderen TextBoxen die Wörter in den Zielspalten in der selben Zeile an.
Nun zu meiner Frage: Wenn ich in Spalte BU nach z.B: dem Wort "hallo" suche, zeigen mir die TextBoxen wie gewünscht die darauffolgenden Wörter in der Zeile an. Nach dem Wort "hallo" kommen 2 leere Spalten bis das nächste Wort kommt.
Ist es möglich auch die Wörter der darauffolgenden Zeilen bis zum nächsten Wort in den TextBoxen anzeigen zu lasse ?
z.B:
_____A________B_________C_________D_______E
1_"hallo"_____aa________ab________ac______ad
2_____________as________af________df______gh
3_____________rg________gh________sd______sd
4 "bye"
Also das in den TextBoxen nicht nur aa;ab;ac;ad angezeigt wird sondern direkt unter aa: auch as und rg, unter ab: af und gh usw.
Hier noch der Code:
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim rZelle As Range
Set WkSh = ThisWorkbook.Worksheets("Unimog-Achs-Übersicht")
If TextBox1.value "" Then
With WkSh.Columns(73)
Set rZelle = .Find(TextBox1.value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox2.value = WkSh.Cells(rZelle.Row, 76).value
TextBox4.value = WkSh.Cells(rZelle.Row, 75).value
TextBox5.value = WkSh.Cells(rZelle.Row, 78).value
TextBox3.value = WkSh.Cells(rZelle.Row, 79).value
TextBox6.value = WkSh.Cells(rZelle.Row, 77).value
TextBox7.value = WkSh.Cells(rZelle.Row, 74).value
Else
MsgBox "Der gesuchte Begriff """ & TextBox1.value & _
""" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
End If
End With
Else
MsgBox "Sie müssen einen Suchbegriff eingeben - danke." & _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
End If
End Sub
Vielen Dank im Voraus,
Gruß Tim