Wert im Namen
21.08.2017 10:09:01
Christian
ich dachte ich hätte das Problem so lösen können... und zwar möchte ich die Anzahl an Arbeitstagen, die ich per Button auf ein bestimmtes Datum addiere, variable eingeben können. Dafür habe ich einen Namen definiert:
Anzahl_Tage=Simulation!$D$2
Nun gebe ich in die Zelle zum Beispiel den Wert 2 ein, dann reagiert er beim ersten Klick auch darauf und addiert das Datum um zwei Arbeitstage... aber beim zweiten Klick erhöht er das Datum nur noch um einen Arbeitstag. Obwohl in der Zelle immer noch 2 steht.
Woran könnte es liegen?
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, Range("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
Christian
Anzeige