Zellen in Kalender füllen
25.12.2022 09:41:50
MiLo
Ich möchte eine Planungsdatei automatisieren.
Ist Zustand.
Ich habe verschiedene Arbeitsschritte 1-5 mit verschiedenen Vorgabezeiten.
z.B. Arbeitsschritt 4 hat eine Vorgabezeit von 87,5 Stunden. Bei einem 8 Stunden Tag trage ich ,die 4 für den Arbeitsschritt, das aufgerundete Ergebnis an 11 Tagen in den Kalender.
Soll Zustand.
Ich möchte die Tabelle ein bisschen automatisieren.
Wenn ich z.B. eine 4 in den Kalender eintrage, soll mir das Makro in die nebenstehenden Zellen 10x z.B. ein Ausrufezeichen eintragen.
Mit u.g. Formel bekomme ich ein Zeichen in die benachbarte Zellen. Mir fehlt die Rechenfunktion dahinter. Kann mir jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:Z")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "4" Then
Target.Offset(0, 1) = "-"
ElseIf Target.Value = "2" Then
Target.Offset(0, 1) = "+"
Else
Target.Offset(0, 1).ClearContents
End If
End Sub
Anzeige