melde mich mal seit langem mal wieder, und benötige eure Hilfe.
Ich habe vorher es mit einer Formel gelöst, aber geht wegen gewissen Umstellungen nicht mehr. ES MUSS PER VBA HINZUGEFÜGT WERDEN.
Die Formel lautete:
=WENN(ANZAHLLEEREZELLEN(A8)=1;" ";WENN(E8>=ZEITWERT("22:00:00");"Nachtschicht"; WENN(E8 Mein Gedanke jetzt per VBA z.B.:
IF Time.Value = >22:00 Uhr Then Range("C" lngFirstFree).Value = "Nachtschicht"
lngFirstFree Ist in der Formel das es mir eine Zeile immer weiter schreibt, sollte euch aber nicht so stören.
Dim lngFirstFree As Long
lngFirstFree = Cells(Rows.Count, 1).End(xlUp).Row + 1
Danke und Gruß