Zellwertrückgabe der zuletzt editierten Zelle
25.03.2019 14:06:20
Steffen
Leider hatte ich beim letzten Eintrag nicht schnell genug rückgemeldet, so dass er jetzt schon wieder im Archiv ist. Insofern kopiere ich einfach den bisheren Beitrag noch einmal und ergänze ihn um meine bisherigen Erkenntnisse ^^
Ich würde gerne aufgrund einer manuellen Zelleinfärbung den entsprechenden Wert in der Zelle zurückgeben.
Es handelt sich hier um folgende Situation:
Ich verwalte ein File in dem Produkte von dem die Meilensteine von Stücklistenerstellung bis zum Vertrieb grob festgehalten werden.
Diese Produktnummern werden fortlaufend in einer Spalte festgehalten und in den Zeilen der einzelnen Produktnummer wird je Kalenderwoche eine Spalte verwendet um dort den Meilenstein mit einem Kürzel visuell darzustellen. Wenn der Meilenstein noch nicht erfüllt ist die Zelle mit der Formatvorlage "neutral" markiert. Wenn der Meilenstein erfüllt ist, wird der mit Formatvorlage "gut" markiert.
Nun würde ich gerne eine Hilfsspalte einfügen, die mir den letzten "gut" markierten Zellwert in die die Hilfsspalte zurückgibt.
Da mir von onur schon insofern geholfen wurde, dass die Aufgabe mit einer einfachen Zellfärbung nicht zu bewältigen ist, markiere ich die Zelle momentan über
Dim i As String
i = "done"
Selection.Style = "Gut"
ActiveCell.FormulaR1C1 = ActiveCell & "-" & i
Vielen Dank im Voraus.
Beste Grüße,
Steffen