Suchefunktion mit Datenübername
18.06.2015 09:32:00
Fufan
ich nutze den folgenden VBA Code und möchte nun aber nicht nur in Spalte 1 sondern auch in Spalte 3 suchen.
Außerdem möchte ich wenn ein Name mehrmals vorkommt mit erneuten Click weitersuchen.
Wie ändere ich den Code
Vielen Dank
====================
Option Explicit
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim rZelle As Range
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
If TextBox1.Value "" Then
With WkSh.Columns(1)
Set rZelle = .Find(TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox2.Value = WkSh.Cells(rZelle.Row, 1).Value
TextBox3.Value = WkSh.Cells(rZelle.Row, 2).Value
TextBox4.Value = WkSh.Cells(rZelle.Row, 3).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
Private Sub UserForm_Click()
End Sub