mehrere Blätter in andere Tabelle kopieren
09.04.2019 09:10:12
Klaus
ich hoffe mir kann jemand bei meinem Problem helfen.
Ich möchte bestimmte Blätter aus einer Datei (Ursprung) in eine andere Datei (Archiv) verschieben (immer ans Ende).
Leider funktioniert mein Makro so nicht, 1 Blatt wird verschoben und dann stoppt es.
Geplante Funktion das Makro war:
alle Blätter der Mappe durchgehen - für jedes Blatt prüfen ob Zelle "AW6" = "Close" ist - wenn JA dann schiebe dieses Blatt in Mappe Archiv
Ist es auch möglich, dass die Inhalte auf den verschobenen Blättern als Text (keine Formeln mehr) im Archiv stehen?
Wie muss der Code lauten, dass es funktioniert?
Sub Archivieren_Blaetter()
Dim WS_Count As Integer
Dim I As Integer
Application.StatusBar = "CR-Blaetter werden archiviert, bitte warten !!!"
Application.ScreenUpdating = False
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
If Sheets(I).Range("AW6") = "Close" Then
Sheets(I).Move After:=Workbooks("Archiv.xlsm").Sheets(1)
End If
Next I
Windows("Ursprung.xlsm").Activate
Sheets("CRM_Overview").Select
Range("A13").Select
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Vielen Dank schon vorab
Gruß Klaus
Anzeige