Code vereinfachen, beschleunigen
17.11.2022 23:13:54
Alex
ich habe mit einem Makro ein kleines Problem. Und zwar, habe ich ein Makro erstellt, welches mir bei jedem Öffnen der Excel Datei automatisch die Rahmenlinien in den Ursprung zurücksetzt, da dort Personen drinnen herumwerkeln, welche immer mal wieder die Rahmenlinien beim Verschieben/Kopieren durcheinanderbringen.
Dafür habe ich im Bereich D100:ABS131 die Rahmenlinien ohne Befüllung im Original hinterlegt. Im Bereich D150:ABS181 wird der Zellinhalt aus meinen genutzten Zellen (D6:ABS37) kopiert. Danach werden die Rahmenlinien wieder zurück kopiert aus D100:ABS131 auf D6:ABS37. Vom Bereich D150:ABS181 wird dann der Zellinhalt ohne Rahmenlinien nach D6:ABS37 kopiert. Das ganze funktioniert. Allerdings dauert es beim Öffnen der Excel Datei es ca. 3 Sekunden, bis er dieses Makro durchgeführt hat.
Das Makro lässt sich doch sicherlich hier und da optimieren, sodass das alles evtl. schneller läuft?
Danke schon mal.
Sub Fzg_Rahmen_Reset() ' Fahrzeuge Rahmen Reset
Range("D6:ABS37").Select 'Ursprung mit Inhalt kopieren
Selection.Copy
Range("D150:ABS181").Select 'Ursprung in Zwischenablage einfügen
ActiveSheet.Paste
Application.CutCopyMode = False 'unberührten Orginalrahmen kopieren
Range("D100:ABS131").Select
Selection.Copy
Range("D6:ABS37").Select 'unberührten Originalrahmen in Ursprung kopieren
ActiveSheet.Paste
Application.CutCopyMode = False 'Zwischenablage kopieren
Range("D150:ABS181").Select
Selection.Copy
Range("D6:ABS37").Select 'Zwischenablage ohne Rahmenlinien in Ursprung kopieren
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub