Hallo Liebe Leute und schon einmal ein Schönes Wochenende gewünscht,

ich arbeite an einen komplexen Dienstplaner und hänge wieder an einer eigentlich simplen Sache. Auf meinen Blatt wie gesagt ist der Dienstplan mit den monaten untereinander und habe für die Monate 1-12 Shape Formen gestaltet die mit der Link Verknüpfung zur Zelle in den Monatsbereichen hoch bzw. runter scrollen um den jeweiligen ausgewählten Monat anzuzeigen. Für den Schnelldruck des Monats habe ich in eine Zelle z.B. G4 per Datenabfrage das Dropdown mit den Monaten erstellt und möchte, dass wenn ich auf das Shape Januar klicke, in dieser Zelle automatisch Januar steht oder wenn per shape Button Februar anklicke in der Zelle G4 Februar erscheint usw. Mit einer if Anweisung geht es zwar aber die Monate werden nur hab gescrollt (Fenstermitte). Mit der Link Variante der gesamte Monat angezeigt.
Mein letzter Versuch war z.B.
If Range("B8") = "Januar" Then 'B36 steht Februar, B56 März usw.
Range("G4") = "Januar" ' hier soll sich der Monatsname automatisch anpassen
End if
End Sub

Hat einer eine Idee ?

Mit besten Grüßen
Stefan