'Deklaration
Dim spalte As Variant, zeile As Variant
Hallo
Mein Programm sucht in einer Zeile das aktuelle Datum und aktiviert die Zelle.
Dann soll 2 Zeilen weiter nach rechts gesprungen werden und diese Zelle aktiviert werden. Bei ? komme ich nicht weiter!!! Wer weiß Rat?
Sonnige Grüße
Stevie
Dim heute As Date

heute = CStr(Date) 'Weist "heute" das heutige Datum zu
Set fundstelle = Range("B10:Bi10").Find(what:=heute)
fundstelle.Activate 'Aktiviert die Zelle mit dem heutigem Datum

'Aktive Zelle bestimmen
spalte = fundstelle.Column
zeile = fundstelle.Row
'Von der aktiven Zelle horizontal 2 Zellen nach rechts und Zelle aktivieren
Cells(zeile, spalte + 2) = ?