Hallo,
ich brauche noch mal eure Hilfe. Ich habe einen gefühlten endlosen Code und würde ihn gerne verkürzen.
Ich habe 6 If-Schleifen der Form:
m=month(Range("G" & i))
[...]
If Range("F" & i) = "Projekt" Then
Select Case m
Case 1
[....]
Case Else
End Select
End If
If Range("F" & i) = "Werkstatt" Then
Select Case m
Case 1
[....]
Case Else
End Select
End If
[....]
Gibt es eine Option das ganze zu vekrürzen, also das er z.b. durch einen Counter "Projekt", "Werkstatt", "Lager" etc. durch geht? oder muss ich das tatsächlich als Endlosen Code stehen lassen?
|