Statuskalender
03.11.2018 09:42:47
Erwin
ich bin VBA-Neuling und auf der Suche nach einer Lösung für mein Problem.
für eine Statusübersicht habe ich einen Kalender erstellt.
per UserForm kann ich die verschiedenen Status mit Datum erfassen.
nun möchte ich die Status zeilenweise im Kalender eintragen.
mein Code dafür:
'Status im Kalender eintragen
For Each rngDatum In m_rngKalender
For Each rngZelle In m_rngKalender
If datTag >= datBeginn And datTag Cells(lngZeile, lngSpalte) = Cells(lngZeile, 3)
End If
lngSpalte = lngSpalte + 1
datTag = datTag + 1
Next
lngZeile = lngZeile + 1
datBeginn = Cells(lngRoStaAn + 1, 2)
datEnde = Cells(lngRoStaAn + 1, 4)
Next
Das funktioniert für die erste Zeile, aber nicht für die folgenden.
Was mach ich da falsch?
Gruss Erwin