so zu unterstützung
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
schaus dir mal an aber so sollte dir eventuell ein lichtlein aufgehen
PS: Makros können aufgezeichnet werden. |