Moin!
Da die automatische (heißt ständige) Aktualisierung der Zelle A10 zu viel Zeit in Anspruch nehmen würde (diese würde sich ja bei jedem Klick im Tabellenblatt ändern), wäre ein Klick auf einen CommandButton ressourcenschonend.
Naja, Dein Wunsch braucht nun wirklich keine Mörder-CPU …
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A10").Value = ActiveCell.Address
End Sub
Bedenke, dass Du - falls Du den Adress-Text in einer Formel weiterverwenden willst - mit INDIREKT() arbeiten musst.
Gruß Ralf
|