in meinen Tabellenblatt habe ich im Feld D2 einen Zahlenwert den ich an einen Namen übergebe
Anzahl_Tage = =Simulation!$D$2
Jetzt möchte ich diesen Namen, in der schwarz markieren Codezeile implementieren. Vorher stand da nur eine 1, ich möchte die Anzahl an Arbeitstagen aber variable gestalten daher die Idee mit den Namen.
Sub Zelle_Plus()
Dim sp As Integer, s As Integer
With Worksheets("Realdaten")
lz = .Cells(1, 1).End(xlDown).Row
sp = .Cells(1, 100).End(xlToLeft).Column
'Phasen Text in Überschrift suchen
For j = 5 To sp
If .Cells(1, j).Value = Phasen Then
'Datum in Phasen suchen
For i = 2 To lz
If .Cells(i, j).Value = Datum Then
'Datum Aenderung Rot markieren
If NextWorkDay(Datum, "Anzahl_Tage") RefDat Then
.Cells(i, j).Font.ColorIndex = 3
Else 'Markierung löschen
.Cells(i, j).Font.ColorIndex = 1
End If
'Datum Aenderung in Zelle eintragen
.Cells(i, j).Value = NextWorkDay(Datum, 1)
Exit Sub
End If
Next i
End If
Next j
End With
End Sub
Viele Grüße und vielen Dank für euren SupportChristian