Commandbutton find next
Jack
Ich hätte da mal wieder ein Anliegen, was ich nicht so recht alleine zu lösen vermag.
in einer UF wird eine find Abfrage gemacht ( Wert aus TB1)
und ein korrespondierender Wert wird in TB2 ausgegeben.
soweit so gut.
Wie kann ich mittels Button eine find next funktion einflechten, das ich mir sozusagen nach nach alle potentiellen ergebnisse anzeigen lassen kann.
Hier der Quellcode
Public Sub TextBox1_Change()
Dim finden As String
Worksheets("Herkunft").Activate
With Worksheets("Herkunft").Columns(6)
.find(Raumprogramm.TextBox1.Value).Select
finden = ActiveCell.Offset(0, -2).Value
If finden = "" Then
finden = ActiveCell.Offset(0, -4).Value
End If
End With
Raumprogramm.TextBox2.Value = finden
End Sub
vielen Dank schonmal für eure hilfe
lg