wie kann ich dieses Makro über einen Button
in Blatt1 einfügen?
Dieses Makro wird über denselben Button schon einmal mit mehreren anderen ausgeführt, möchte aber nach dem Speichern der Arbeitsmappe nur noch dieses Makro in meiner Arbeitsmappe hinterlegen, welches dann bei jedem öffnen automatisch startet. Im Idealfall gleichzeitig alle anderen + Button löschen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value
Case "Morgen"
Farbe = 45
Case "Heute"
Farbe = 42
Case "Mittag"
Farbe = 15
Case "Abend"
Farbe = 43
Case Else
Farbe = xlNone
End Select
Danke