Clever-Excel-Forum - Zellwerte aus Tabelle1 nach Tabelle1

Hallo Forum,
ich suche eine Möglichkeit z.B. durch Klick auf eine Zeile in Tabelle1 aus dieser Zeile die Werte der Zellen (D, BF, BG) zu kopieren
und in Tabelle2 in die nächste freie Zeile anzufügen.

Besten Dank im Voraus
omron2003

Rechtsklick auf Tabelle1 -> Code anzeigen -> folgendes reinkopieren:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Columns(1)) Is Nothing Then

        With Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)

            .Value = Cells(Target.Row, "D")

            .Offset(, 1).Value = Cells(Target.Row, "BF")

            .Offset(, 2).Value = Cells(Target.Row, "BG")

        End With

    End If

End Sub

Reagiert, wenn Du eine Zelle in Spalte 1 anklickst.

Hallo Mase,

Nochmals vielen Dank für die schnelle Hilfe...

Funktioniert besten.

LG
omron2003