Ich bin mal wieder auf eure Hilfe angewiesen.
Ich habe mir folgendes makro mir eurer Hilfe schreiben lassen. Das funktioniert soweit prima. Ich möchte jetzt nur das das makro nur in den Zellen von j4 bis am43 sucht.
Wie wäre das zu realisieren.
Danke nochmals für eure Hilfe und wünsche ein schönes restwochenende
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 = Cells.Find(arData(i), 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 = Cells.FindNext(myFind)
Loop While myFind.Address firstAdd
End If
Next
ActiveSheet.Protect Password:=myPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub