mit der Hilfe diverser User aus dem Forum, speziell aber die von Werner, habe ich folgendes Makro zusammengebastelt:
Public Sub Datenimport_X()
Dim strPfad As Variant, Quelle As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
ChDir ("N:\02_Funktionen\10_Reporting\04_Internes Benchmarking")
strPfad = Application.GetOpenFilename
If strPfad False Then
Set Quelle = Workbooks.Open(strPfad)
Else
MsgBox "Nichts ausgewählt!"
Exit Sub
End If
Worksheets("5.1 GuV_Übersicht").Cells.Copy
ThisWorkbook.Worksheets("Perlon_Group_GuV").Range("A1").PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats
Application.DisplayAlerts = False
Worksheets("7. Bilanz").Cells.Copy
ThisWorkbook.Worksheets("Perlon_Group_BS").Range("A1").PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats
Application.DisplayAlerts = False
Quelle.Close False
MsgBox "Daten wurden kopiert"
ThisWorkbook.Worksheets("Cockpit").Activate
End Sub
Wenn ich das Makro nur für den ersten Teil (kopieren der GuV) laufen lasse, läuft das Makro innerhalb von 10sec durch. Wenn ich aber dann die zweite Schleife mit der Bilanz mitlaufen lasse, verlängert sich die Laufzeit auf über eine Minute. Ich vermute das dies an dem komplizierten Aufbau liegt, weshalb es super wäre, wenn ihr mir einen Tipp geben könntet, wie sich die Laufzeit verküzren lässt.Vielen Dank,
Börny