Datumsauswahl - Sprung auf falsche Zelle
15.12.2022 21:27:00
Gula
Ich habe jetzt viel herumprobiert mit meiner Datumsauswahl und aus verschiedenen Quellen, u.a. auch viel von hier, mir etwas zusammen gebastelt.
Mir ist sehr wohl bewusst, das Excel Profis bei meinem Code das blanke Grauen bekommen und es mit Sicherheit einen viel einfacheren Weg gibt. Also bitte nicht über den Code lachen. ;-)
Das Problem was aktuell besteht ist, dass wenn man in der ComboBox1 (Nähe Zelle A5) ein Datum auswählt, dann verlinkt er in der Datumsliste B2:ABS2 das Datum falsch.
Mir ist auch klar, dass das mit diesem Code hier zusammenhängt, welchen ich von Rudi bekommen hatte. Da hier das Problem mit den verbunden Zellen beim Datum besteht.
Code von Rudi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$7" Then
ActiveWindow.ScrollColumn = Day(Target) + 1
Cells(2, Day(Target) + 3).Select
End If
End Sub
Code von Daniel:
Private Sub Worksheet_Change(ByVal Target As Range)
dim SP
If Target.Address = "$A$3" Then
SP = application.match(Range("A3").Value, Rows(2), 0)
ActiveWindow.ScrollColumn = SP
Cells(2, SP).Select
End If
End Sub
Jetzt habe ich versucht den Code vom Daniel bei meiner Version einzufügen und anzupassen, aber ich nehme an, das das nicht mehr funktioniert, da keine "Datenüberprüfung Liste" genutzt wird.
Ist es denn mit meiner Version irgendwie möglich, dass die Verlinkung aufs Datum korrekt funktioniert?
Hier die Datei, welche ich aufs wesentlichste, zwecks der Übersichtlichkeit, zusammengestaucht habe.
https://www.herber.de/bbs/user/156763.xlsm
Ihr seid meine letzte Hoffnung. Danke schon mal.