29.05.2018, 12:09
Hi Leute,
in Sachen Makros stehe ich noch gaaaaaaaaanz am Anfang. Deshalb habe ich für mein Arbeitsblatt ein Makro mittels Rekorder aufgezeichnet. Es funktioniert auch total super - allerdings frage ich mich, ob man das nicht
1. optimieren und damit schlanker machen kann
2. das "durchrattern" durch die Tabellenblätter abschaffen kann. Das sieht ein wenig unprofessionell aus :)
Vielen Dank schon mal im Voraus
Beschreibung des Makros:
Es wird stumpf ein Bereich in 12 Tabellenblätter an die selbe Stelle innerhalb des Blatts kopiert. Dabei soll nur der Wert, nicht die Formatierung kopiert werden.
Was der Rekorder mir ausgespuckt hat:
in Sachen Makros stehe ich noch gaaaaaaaaanz am Anfang. Deshalb habe ich für mein Arbeitsblatt ein Makro mittels Rekorder aufgezeichnet. Es funktioniert auch total super - allerdings frage ich mich, ob man das nicht
1. optimieren und damit schlanker machen kann
2. das "durchrattern" durch die Tabellenblätter abschaffen kann. Das sieht ein wenig unprofessionell aus :)
Vielen Dank schon mal im Voraus
Beschreibung des Makros:
Es wird stumpf ein Bereich in 12 Tabellenblätter an die selbe Stelle innerhalb des Blatts kopiert. Dabei soll nur der Wert, nicht die Formatierung kopiert werden.
Was der Rekorder mir ausgespuckt hat:
Code:
Range("K5:P14").Select
Selection.Copy
Sheets("Januar").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Februar").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("März").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("April").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Mai").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juni").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juli").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("August").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("September").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Oktober").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("November").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Dezember").Select
Range("AF6:AK15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Einstellungen").Select