Suche den ganauen Wert
18.05.2020 06:15:11
Haller
Danke euch vorab schon viel mal für die tolle Arbeit die ihr hier leistet!!
Habe hier einen Code gefunden der funktioniert einwandfrei.
Gerne hätte ich aber noch eine kleine Verbesserung im Code und ich weis nicht wie...
Private Sub TextBox_KZ1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngFind As Range
Dim rngFirst As Range
Set rngFind = Sheets("Erfassen").UsedRange.Find( _
what:=TextBox_KZ1.Text, _
lookat:=xlPart, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Keine Gesuch gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
TextBoxFirma.Text = TextBoxFirma.Text & rngFind.Offset(0, 1 - rngFind.Column).Text & _
vbLlf
TextBox_SB.Text = TextBox_SB.Text & rngFind.Offset(0, 14 - rngFind.Column) & vbLf
Set rngFind = Sheets("Erfassen").UsedRange.FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address rngFirst.Address
Hoffe ich habe mein Anliegen verständlich formuliert.
Ich wünsche einen schönen Tag und danke euch vielmals für die Hilfe!
Gruss Haller
