Cut statt Copy
27.06.2016 08:38:48
Alex
nach meinen Letzten Copy-Paste Problemen habe ich das Kopieren hinbekommen. Nun wollte ich anstatt nach dem Kopieren den/die Kopierten Datensatz/Datensätze hinterher zu löschen, es einfach auszuschneiden.
Der Folgende Code funktioniert schon einmal zum Kopieren.
Private Sub CommandButton_Archivieren_Click()
Dim ErsteZeile As Long
Dim First As Long
Dim Last As Long
Dim ArchivNR As Long
ErsteZeile = 2
First = 0
Last = 0
ArchivNR = Tabelle5.Cells(8, 1).Value
Call Modul_Sortieren
Do While Trim(CStr(Tabelle1.Cells(ErsteZeile, 1).Value)) ""
If Tabelle1.Cells(ErsteZeile, 17) = "Fertig" Then
If Fitst = 0 Then
First = ErsteZeile
End If
Last = ErsteZeile
End If
ErsteZeile = ErsteZeile + 1
Loop
Range("A" & First & ":AZ" & Last).Copy
Workbooks.Open (ThisWorkbook.Path & "\" & "Archiv.xlsm")
Workbooks("Archiv.xlsm").Worksheets("Archiv").Activate
ActiveSheet.Unprotect "Finale"
Worksheets("Archiv").Range("A" & ArchivNR).PasteSpecial Paste:=xlPasteValues
MsgBox "Archiviert!"
End Sub
Wenn ich aber das Copy durch Cut austausche, klappt es leider nicht :(
Ich danke schon mal in vorraus für jede gedankenanregung ;)
Grüße
Alex
Anzeige