Hallo Tom,
danke für die schnelle hilfe und ja so in etwa nur hab ich mich verschrieben es müsste von a2:c2 sein hab es auch schon probiert bekomme es aber nicht hin :-(
das das ziel in Tabelle2 nebeneinander steht und kann ich das ziel varieren? so das z.b. ab erst ab c5:e5 alless eingefühgt wird.
hoffe du kannst mir nochmal helfen oder jemand.
danke schonmal
mfg Angelo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZiel As Long
If Target.Address = "$C$1" Then
With Sheets("Tabelle2")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZiel, 1).Resize(3, 1).Value = Range("A1:C1").Value
End With
Application.EnableEvents = False
Range("A1:C1").ClearContents
Application.EnableEvents = True
End If
End Sub
|