Zellwerte aus Tabelle1 nach Tabelle1

[omron2003]

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

[Mase]

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.

[omron2003]

Hallo Mase,

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

Funktioniert besten.

LG
omron2003