Makro auf das aktuelle Sheet anwenden
13.09.2024 11:52:08
Michal1994
folgende Ausgangssituation.
Ich habe ein Protokoll erstellt in das Kennzahlen eingetragen weden. Ein Teil der Kennzahlen ändert sich wöchentlich ein Teil monatlich, über ein Makro möchte ich desshalb ein neues Sheet erzeugen und die entsprechenden Felder leeren.
Soweit ganz einfach Makro aufgezeichnet benannte etc.
Das Problem wenn ich das Makro in dem neu erstellten Sheer (aktuelles Protokoll) aufführe wird das ursprüngliche Sheet kopiert.
Ich gehe davon aus, dass das Problem gleich am anfang liegt nur was muss ich eintragen damit das aktive Sheet verwendet wird?
Danke im Voraus.
Sub Wochenwechsel()
'
' Wochenwechsel Makro
'
' Tastenkombination: Strg+w
'
Sheets("Volage").Select
Sheets("Volage").Copy After:=Sheets(2)
ActiveWindow.SmallScroll Down:=27
Range("O153,B59,J58:K60,B62:M64").Select
Range("B62").Activate
ActiveWindow.SmallScroll Down:=48
Range("O153,B59,J58:K60,B62:M64,B108,J107:K109,B111:M113").Select
Range("B111").Activate
ActiveWindow.SmallScroll Down:=57
Range( _
"O153,B59,J58:K60,B62:M64,B108,J107:K109,B111:M113,B157,J156:K158,B160:M162"). _
Select
Range("B160").Activate
Selection.ClearContents
End Sub
Anzeige