Nachbarzelle selektieren

Bild

Betrifft: Nachbarzelle selektieren
von: Stevie
Geschrieben am: 24.02.2005 20:27:46
'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) = ?????????????




Bild

Betrifft: AW: Nachbarzelle selektieren
von: Josef Ehrensberger
Geschrieben am: 24.02.2005 20:32:30
Hallo Stevie!
Was willst du den in dieser Zelle?
Das was du vorhast, geht zu 99% auch ohne Select!

fundstelle.Offset(0,2).Activate
'oder ohne Activate
fundstelle.Offset(0,2) ="Hallo Stevie!"


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Nachbarzelle selektieren
von: Stevie
Geschrieben am: 24.02.2005 20:45:42
Hat prima geklappt, dankeschön
Denke immer noch zu kompliziert.
Grüße von der Ostsee
Stevie
PS: Ich möchte die Zelle selektieren, damit der Inhalt auf dem Tabellenblatt angezeigt wird. Die Zeile links daneben ist so breit, das die Zelle nicht mehr im Bild ist!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nachbarzelle selektieren"