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"