suchen mit 2 Comboboxen
19.10.2004 12:32:31
Klaus
Ich habe folgenden Code zur Suche in einer Tabelle eingegeben:
Private Sub CommandButton4_Click()
Sheets("Absender").Select
Dim strFind As String
strFind = UserForm1.ComboBox1
If strFind = "" Then Exit Sub
Set rngFind = Columns(1).Find(strFind, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
rngFind.Select
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 15)).Select
End With
Wenn in der Combobox1 nun der Name "Meier" steht, findet das Makro natürlich den ersten "Meier" in der Tabelle. Nun sind es Aber mehrer "Meier's"
In einer zweiten Combobox sind die Vornamen. Kann ich irgendwie die Suche mit Nachnamen und Vornamen verbinden?
Vielen Dank voraus
Gruss Klaus