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
Von Daniel hatte ich auch einen Code bekommen der auch funktioniert hatte, als ich als Quelle die Datenüberprüfung -> Liste nutzte. Nur hat wird mir dort in der DropDown Liste nur jede 4. Zeile das nächste Datum geschrieben, da ja auch hier wieder die verbunden Zellen im Weg stehen. Zudem blieb die Auswahl "stehen" wenn ich nach rechts mit meiner Liste gescrollt habe, obwohl sich die Auswahl in meinem fixierten Bereich befunden hatte.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
Daher habe ich es mit dem ComboBox Steuerelement versucht zu lösen. Da ich es nicht geschafft habe, dass die Werte aus der ComboBox1 direkt gewählt werden, lasse ich den Wert in die Zelle A5 schreiben. Auch das ist mehr ein Flickenteppich, als sinnvolles Coding in Excel, aber nunja.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.