Bei Set r = Selection.Find usw. bringt er mir einen Fehler:
"Objektvariable oder with-Blockvariable nicht festgelegt"
Was soll ich machen?
Ich brauch das aber mit dem "r" wegen den weiteren Ergebnissen.
Dim r As Range
ActiveWorkbook.Sheets("Vorlage 1").Activate
Range("A1").Select
Set r = Selection.Find(What:="? ", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If Not r Is Nothing Then
Anfang = r.Address
Do
Set r = Cells.FindNext(After:=ActiveCell).Activate
Debug.Print c.Value
Loop While Not r Is Nothing And r.Address != Anfang
End If