Guten Morgen ,
ich habe folgenden Code:
Dim RnG As Range
For Each RnG In Range("NJ4:NJ199")
Select Case RnG
Case Is = 4
RnG.Offset(0, -366) = "Mittag"
Case Is = 3
RnG.Offset(1, -372) = "Pause"
Case Is = 6
RnG.Offset(1, -372) = "Feierabend"
'und hier bei Bedarf weitere Case-Anweisungen
End Select
Next RnG
ich würde diesen code gerne so umschreiben das zb wenn: Case Is = 4
RnG.Offset(0, -366) = "Mittag" einmal ausgeführt wurde dieser Bereich des Codes nicht mehr ausgeführt wird.
Genauer gesagt möchte ich das in meinem Bereich nur 1x Pause 1x Mittag und 1x Feierabend erscheinen kann.
dachte da an Boolean oder eine for next schleife hab leider keine Ahnung wie ich das umsetzten kann.
vielen dank