Zelladresse auslesen

[Georg Heinzl]

Guten Tag!

Vorausgeschickt: möglicherweise schaue ich mit den Hühneraugen, aber ich
komme einfach nicht dahinter, wie ich mit VBA die Adresse einer Zelle
auslesen kann.

Hintergrund: eine Mappe mit mehreren Tabellen, dabei soll in zwei ident
plazierten Zellen auf verschiedenen Blättern eine Aktion erfolgen. Nicht die
gleiche, darum geht es nicht mit dem gemeinsamen Aktivieren der Blätter.
Konkret soll in beiden Zellen ein Text eingetragen werden, die Zelle auf dem
anderen Blatt erhält zusätzlich eine Farbe.

Kann mir jemand verraten, mit welchem VBA-Befehl ich zu der Adresse komme?

Danke,
Georg

[heegy]

Hi,

Du musst über das entsprechende Worksheet Objekt gehen. Zu welchem
Zeitpunkt möchtest Du denn eine Aktion auf den besagten Zellen
auslösen?

[Georg Heinzl]

Hi,

die Aktion soll direkt erfolgen, d.h. die Zelle wird in einem Blatt manuell
markiert und über das Makros soll dann der Eintrag auf beiden Blättern bzw.
die Färbung auf nur einem Blatt stattfinden.


"heegy" <***@heegy.de> schrieb im Newsbeitrag news:***@g44g2000cwa.googlegroups.com...
Hi,

Du musst über das entsprechende Worksheet Objekt gehen. Zu welchem
Zeitpunkt möchtest Du denn eine Aktion auf den besagten Zellen
auslösen?

[Alexander Wolff]

Post by Georg Heinzl
die Aktion soll direkt erfolgen, d.h. die Zelle wird in einem Blatt
manuell markiert und über das Makros soll dann der Eintrag auf beiden
Blättern bzw. die Färbung auf nur einem Blatt stattfinden.

Sub w()
MsgBox Selection.Address
End Sub

[Georg Heinzl]

Danke Alexander, das war's. Nur das "Address" hat sich immer versteckt
gehabt.
Problem gelöst, danke!

Georg

Post by Alexander Wolff

Post by Georg Heinzl
die Aktion soll direkt erfolgen, d.h. die Zelle wird in einem Blatt
manuell markiert und über das Makros soll dann der Eintrag auf beiden
Blättern bzw. die Färbung auf nur einem Blatt stattfinden.

Sub w()
MsgBox Selection.Address
End Sub
--
Hallo + Gruss Alexander (WinXP Home SP1 - Office 2000 SP3) 6----5----7-2

[heegy]

Du kannst über die Methode der entsprechenden Tabelle (Worksheet)
gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub

Die Target-Range gibt Dir dann die Adresse der gerade geänderten Zelle
an, z.B. Target.Column oder auch Target.Row

Hilft Dir das weiter?
Michael