Office: Zellen Inhalt zurückgeben

Hallo
Ich suche eine Möglichkeit über VBA oder mittels Formel, den Zellwert von Spalte A der aktiven Zeile zurückzugeben.
Variante 1 der cursor steht in einer beliebigen Spalte
Variante 2 die Zeilen sind gefilter so das nur diese eine Zeile aktiv ist.

Diesen Zellinhalt möchte ich in eine Andere Datei in eine Zelle kopieren (sheet1, Zelle B2)

ist sowas möglich.

mit Formel bin ich nicht weitergekommen, da ja die Zeilennummer immer anders sein kann.

Danke für die Hilfe
Paul

 

Hi Paul,

meinst du wirklich eine andere Datei (Arbeitsmappe) oder nur ein anderes Tabellenblatt in der Datei (Arbeitsmappe) in der du dich gerade befindest?

Benutze das Doppelklick-Ereignis des Tabellenblattes.

1. Code zum Übertragen in anderes Blatt selbe Mappe:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Worksheets("Tabelle1").Range("B2") = Cells(Target.Row, 1)
    Cancel = True
End Sub

2. Code zum Übertragen in andere Datei (Arbeitsmappe):

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Workbooks("AndereMappe.xlsx").Worksheets("Tabelle1").Range("B2") = Cells(Target.Row, 1)
    Cancel = True
End Sub

Den Namen der anderen Datei musst du selbstverständlich anpassen.

---