vielen Dank für Deinen Code.
Leider kann ich erst heute antworten.
Ich habe Deinen Code jetzt in ein Modul geschrieben, da ich in mehreren Userforms eine PLZ-Abfrage habe.
Wie muß ich meinen bestehenden Code ändern, damit es funktioniert ?
Vielen Dank im Voraus
Gruß Dirk
Sub PLZ()
Dim rngF As Range, strF As String, strAddr As String
With Sheets("PLZ").Columns(1)
Set rngF = .finf(what:=12345, LookIn:=xlValues, lookat:=xlWhole)
If Not rngF Is Nothing Then
strAddr = rngF.Address
Do
strF = strF & vbLf & rngF.Offset(, 1)
Set rngF = .FindNext(after:=rngF)
Loop While rngF.Address strAddr
MsgBox strF
End If
End With
End Sub