Wenn Dann For Next
06.01.2022 12:47:29
Bernd
Ich benötige einen oder zwei Verbesserungsvorschläge.
Hier mein Ansatz
Private Sub Worksheet_Activate()
D_Beginn
D_Ende
End Sub
Sub D_Beginn()Dim Cell As Range
For Each Cell In Range("A18:A59")
If Cell.Value = "T" Then
Cell.Offset(0, 3).Value = "06:15"
ElseIf Cell.Value = "N" Then
Cell.Offset(0, 3).Value = "18:15"
Else
Cell.Offset(0, 3).Value = ""
End If
Next Cell
End Sub Sub D_Ende()
Dim Cell As Range
For Each Cell In Range("A18:A59")
If Cell.Value = "T" Then
Cell.Offset(0, 4).Value = "18:30"
ElseIf Cell.Value = "N" Then
Cell.Offset(0, 4).Value = "06:30"
ElseIf Cell.Value = "L" Then
Cell.Offset(0, 16).Value = "Lehrgang"
Else
Cell.Offset(0, 5).Value = ""
End If
Next Cell
End Sub Jetzt kam noch der Wunsch hoch, dass die Ausgangsdaten für T, N, U, SU und und und
in einer Arbeitsmappe unter der Tabelle "Legende" abgefragt werden.
Es könnte ja sein, dass sich die Zeiten mal änderen.
Somit brauch man nicht in den Quelltext rein.
Habt Ihr Vorschläge für die Umsetzung ?
https://www.herber.de/bbs/user/150194.xlsm
Zum besseren hineindenken mein Beispiel