'variante 1
vStrSQL = "Text01Buchung Like '%Hani%' Or Text02Buchung Like '%Hani%'"
 
'variante 2
vStrSQL = "Text02Buchung Like '%Hani%'"
 
'variante 3
vStrSQL = "Text01Buchung Like '%Hani%'"
 
with GridBuchungenUebersicht
  .Row = .FindNext(vStrSQL, True)
End With

____________________________________________
Nur die Dummen wissen alles selbst am besten.