Hilfe bei einem Makro
05.02.2024 16:02:33
udo
Ich habe auf einem Excel Blatt in mehreren Zellen Strassennamen mit Hausnummern.
Diese Strassennamen suche ich mit folgenden Makro:
Sub Finden()
Const myPwd As String = ""
Dim strFind$, myFind As Range, firstAdd$, i&, arData() As String
strFind$ = InputBox("Bitte geben Sie einen Suchbegriff ein!", "Suche")
If strFind$ = vbNullString Then Exit Sub
ActiveSheet.Unprotect Password:=myPwd
arData = Split(strFind$, "/")
For i = LBound(arData) To UBound(arData)
Set myFind = Range("J4:Al43").Find(arData(i), after:=Range("Al43"), LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If myFind Is Nothing Then
MsgBox arData(i) & " wurde nicht gefunden", vbInformation, "Suchen"
Else
firstAdd$ = myFind.Address
Do
myFind.Interior.Color = vbGreen
Set myFind = Range("J4:Al43").Find(arData(i), after:=Range("Al43"), LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
Loop While myFind.Address > firstAdd
End If
Next
ActiveSheet.Protect Password:=myPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub
Das klappt soweit ganz gut. Nur leider markiert er mir wenn es mehrere Strassennamen mit der gleichen Bezeichnung in den zellen gibt nur einen namen. Was muss ich ändern damit das makro alle Zellen mit den gesuchten Strassennamen markiert.
Danke mal wieder für eure Unterstützung.