Nach dem Einfügen von Teilergebnissen steht in Spalte A mehrfach ein Text der Form "xxx Ergebnis" und in Spalte B recht von dem Text eben das Teilergebnis, in dessen Formel ja das Wort "TeilErgebnis" vorkommt. Ich suche jetzt nach "*Ergebnis" um zu formatieren. Das gelingt mir in Spalte A, aber nicht in B. Wenn ich es manuell über die Menuleiste mache, werden mir bei Suchen aber auch die Zellen in Spalte B angezeigt. Hier der entsprechende Auszug aus meinem Makro:
With Worksheets(1).Range("A:B")
Set az = .Find(What:="*Ergebnis", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not az Is Nothing Then
adr = az.Cells.Address
Do
az.HorizontalAlignment = xlRight
az.Font.Bold = True
az.Font.ColorIndex = 3
Set az = .FindNext(az)
Loop While Not az Is Nothing And az.Address <> adr
End If
End With