Suchfunktion
30.06.2005 21:39:58
Dani
Ich hab schon wieder ein Problem. Ich habe da eine Suche gemacht.
Das Wort wird nur in der Spalte F gesucht. Ist es auch möglich eine Suche zu machen, die in Spalte F z.B. einen Namen sucht und in der Spalte H den Ort sucht und nur wenn Beides zustimmt das Resultat in die Zelle schreibt? Danke vielmals.
With Worksheets("Datenimport").Range("F:F")
a = 1
Set c = .Find(kundensuche.txbx_kurzbezeichnung.Value)
If Not c Is Nothing Then
firstaddress = c.Address
Do
a = a + 1
Sheets("Kundensuche").Cells(a, 2) = c
Sheets("Kundensuche").Cells(a, 1) = c.Offset(0, -5)
Sheets("Kundensuche").Cells(a, 3) = c.Offset(0, 5) & " " & c.Offset(0, 4)
Sheets("Kundensuche").Cells(a, 4) = c.Offset(0, 10) & " " & c.Offset(0, 2)
Sheets("Kundensuche").Cells(a, 5) = c.Offset(0, 9)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstaddress
End If
If c Is Nothing Then
MsgBox "Nichts gefunden"
End If
End With