Kopieren und löschen
Thomas
ich habe zwei Tabellenblätter "query" und "History".
Die Daten in der Tabelle "query" werden über einen Button in die Tabelle "History" kopiert. Das funktioniert bestens.
Nun sollen nach dem kopieren in die "History" die Daten im "query" gelöscht werden. Mit rng.delete komme ich da nicht an's Ziel.
Hier mein Code für's kopieren:
Sub CommandButton2_Click()
Dim rng As Range
Dim Kopiert As Variant
With Sheets("query")
Set rng = .Range("A2:P" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With Sheets("History")
rng.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Kopiert = MsgBox("Kopieren beendet", vbOKOnly, "Kopieren") = vbOK
Set rng = Nothing
End Sub
Wie könnte ich nun das Löschen der Daten in der Tabelle "query" einbinden?
Für Eure Hilfe wäre ich sehr Dankbar!
Gruß
Thomas
Anzeige