Zwei Makros zusammenführen
02.09.2018 16:19:39
Frank
ich habe die zwei Makros:
Private Sub Workbook_Open()
Dim raZelle As Range, raBereich As Range
With Worksheets("Kalender")
Set raBereich = .Range("C12:C999")
.Unprotect "dragon"
For Each raZelle In raBereich
If raZelle.Value Private Sub Workbook_Open()
Dim raZelle As Range, raBereich As Range
With Worksheets("Kalender")
Set raBereich = .Range("G13:G999")
.Unprotect "dragon"
For Each raZelle In raBereich
If raZelle.Value Jedes Makro funktioniert für sich auf dem Arbeitsblatt "Kalender".
Nun möchte ich jedoch dass beide Makros zusammen auf dem Arbeitsblatt "Kalender" laufen.
Was muss geändert werden, dass es ein Makro ist?
Sonnigen Gruß
Frank