Ich habe hier ein Makro mit dem ich per doppelklick werte aus einer Tabelle in eine andere einfüge. Das Klappt auch wunderbar jetzt möchte ich wissen ob es auch möglich ist wenn man es per doppelklick einfügt das werte die darunter stehen dann auch weiter nach unten verschoben werden und nicht überschrieben werden.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then
Application.ScreenUpdating = False
Worksheets("Formular").Activate
z = ActiveCell.Row
Worksheets("Formular").Cells(z, 4).Value = Worksheets("Zimmererarbeiten").Cells(Target.Row, 1).Value
Worksheets("Formular").Cells(z, 5).Value = Worksheets("Zimmererarbeiten").Cells(Target.Row, 2).Value
Worksheets("Formular").Cells(z, 6).Value = Worksheets("Zimmererarbeiten").Cells(Target.Row, Target.Column).Value
ActiveCell.Offset(1, 0).Select
Worksheets("Zimmererarbeiten").Activate
Application.ScreenUpdating = True
End If
Cancel = True
End Sub
Ich hoffe ich habe mich verständlich ausgedrückt
MfG
Ralf