bisher kopiere ich mit untenstehendem Code den Inhalt aus Spalten aus 4 Arbeitsblättern (in einer Datei) in eine Andere Datei.
Nun hätte ich das Ganze gerne mittels Progressbar umgesetzt.
Ist das Vorhaben möglich?
Bitte um Hilfestellung.
im Wb As Workbook
Dim Dest As Range
Dim Fname As String
Dim strJahr As String
Dim strPfad As String
strPfad = "R:\111651\DEGEWO\Kontrollen\Vertragskontrollen\"
strJahr = Worksheets("Tabelle1").Cells(2, 8).Value
Fname = strPfad & "Vertragskontrollen" & strJahr & ".xlsx"
Application.ScreenUpdating = False
Set Dest = Range("A1")
Set Dest1 = Range("B1")
Set Dest2 = Range("C1")
Set Dest3 = Range("D1")
Set Wb = Workbooks.Open(Fname, False, True)
Wb.Worksheets("Januar - März").Range("D1:D500").Copy Dest
Wb.Worksheets("April - Juni").Range("D1:D500").Copy Dest1
Wb.Worksheets("Juli - September").Range("D1:D500").Copy Dest2
Wb.Worksheets("Oktober - Dezember").Range("D1:D500").Copy Dest3
Wb.Close
Call Makro2
Application.ScreenUpdating = True
End Sub
Liebe Grüße Janett