Office: (Office 365) VBA Automatisches Füllen von Zellen (Sequenz)

Hallo liebe Forengemeinde,
ich stehe bei folgendem Anliegen auf dem Schlauch.
Ich möchte eine Planungsdatei automatisieren.
Ich habe verschiedene Arbeitsschritte 1-5 mit verschiedenen Vorgabezeiten.
Aktuell trage ich von Hand, z.B. eine 4 (für Arbeitsschritt 4) in den Kalender ein.
Beispiel: Vorgabezeit 87,5 bei einem 8 Stunden Tag = aufgerundet 87,5/8 =11.
Also trage ich in den Kalender 11-mal die 4 ein.


Ich bräuchte ein Makro das mir z.B. bei einer 4 in den folgenden 10 Zellen ein plus (oder anderes Zeichen) eingibt. Den Rest mache ich mit einer bedingten Formatierung.
Was schon ansatzweise funktioniert ist untenstehendes Makro. Das Zeichen wird einmal in die Zelle nebenan geschrieben und ab da kommt der besagte Schlauch ins Spiel ☹.
Vielleicht kann mir jemand von Euch helfen vom Schlauch runter zu kommen.

Schon mal im voraus vielen lieben Dank.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:D")) 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

 

Ist doch doppelt gemoppelt, weil schon blau. Was willst Du genau?

Bedenke, dass Du Dir mit anzeigemotivierten Zellinhalten alle Möglichkeiten in der Zukunft nimmst. So was tut man nicht.

 

Hallo lupo1,
schau mal das Bild, so möchte ich es haben.