Kann mir da wer helfen
Das Makro sollte beim click auf einen Button in der Tabelle 1 die Spalten A3:J7 kopieren.
Anschließend soll der die Werte in die Tabelle 2 einfügen, die Werte in der Tabelle 1 sollen wieder geleert werden.
Bei erneuten click auf den Button sollte er die Werte jeweils unterhalb der bestehenden Werte in der Tabelle 2 auflisten und erweitern.
Wie kann ich das machen ?
Das Kopieren funktioniert schon mal.
----------------------------------------------------------------------------
Private Sub CommandButton1_Click()
If MsgBox("Ja, oder nein", vbYesNo) = vbYes Then
Makro2
Else
End If
End Sub
-------------------------------------------------------------------------------
Sub Makro2()
'
' Makro2 Makro
'
'
Range("A3:I7").Select
Selection.Copy
Sheets("Tabelle4").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle3").Select
Range("C3:I7").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub