VBA Code Beschleungen
08.09.2022 10:34:01
Oraculix
Ich habe mir einen VBA Code zusammengebastelt der auch funktioniert. (als Anfänger).
Leider dauert es aber ziehmlich lange bis der Code fertig ausgeführt wird.
Ich bräuchte einen Experten der mir etwas unter die Arme greift und den Code verkürzt und etwas schneller macht.
Danke!!
Beschreibung:
Es werden aus einer anderen Arbeitsmappe in Zeile 1 260 Bilder kopiert und in die geöffnete Mappe per Commandbutton eingefügt in Zeile 1.
'Schauspieler bilder einfügen in Zeile1 !Filme.xlsm Tabelle Schauspieler
Sub SchauspielerBilderEinfügen()
Application.ScreenUpdating = False
'Mappe Öffnen
Workbooks.Open "D:\EMDB\HTML\Schauspieler_Bilder.xlsm"
'Kopieren
Windows("Schauspieler_Bilder.xlsm").Activate
' ActiveSheet.Shapes.Range(Array("Picture 2")).Select
ActiveSheet.Shapes.SelectAll
Selection.Copy
Windows("!Filme.xlsm").Activate
'Einfügen in Range A1:IZ1
Windows("!Filme.xlsm").Activate
Worksheets("Schauspieler").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Buttons.Add(67267.6071428571, 103.5, 414.321428571429, _
23.1428571428571).Select
Range("A1").Select
'Schauspieler_Bilder.xlsm schließen
Windows("Schauspieler_Bilder.xlsm").Activate
Worksheets("SchauspielerBilder").Activate
ActiveWorkbook.Close True
'Bilder Zentrieren wird durch anderen Code automatisch erledigt beim klicken auf die Tabellenblätter
Sheets("FilmDb").Select
Sheets("Schauspieler").Select
Application.ScreenUpdating = True
Error:
End Sub
GrußOraculix