Benötige einen Tip. Wie kann ich einen VBA Code nur einmal schreieben und diesen in mehreren Sub's aufrufen?
With wsZ.Cells(zeileZ, spalteZ)
Select Case wsQ.Cells(zeileQ, "G")
....zwischen diesen Codes soll der unten aufgeführte Code eingefügt werden (aber in mehreren andern Sub's....
End Select
End With
Code:
Select Case wsQ.Cells(zeileQ, "G")
Case "9000" ' Feiertag
.Value = "Y"
.Interior.ColorIndex = 29
.Font.ColorIndex = 29
Case "9001" ' Brückentag
.Value = "Z"
.Interior.ColorIndex = 30
.Font.ColorIndex = 30
Case Else
.Value = "'o" ' Restliche andere Absenzen
.Interior.ColorIndex = 46
.Font.ColorIndex = 46