Hallo,
kann mir hier einer helfen, den Hintergrund und Sinn des folgenden Codes zu verstehen? Ich soll hier für ein Team eine Excel-App überarbeiten, dazu will ich sie erst mal ordentlich kommentieren, aber hier kann ich die Funktion noch nicht genau erkennen. Ich hab einen Verdacht, aber ich kenn mich noch nicht genau genug in VBA aus, um den zu bestätigen - wenn mir einer das hier erklären könnte, komm ich vieleicht ein gutes Stück weiter - da ist noch viel mehr Code drin, wenn ich wieder auf was stoße, komm ich halt wieder.
Also, mal die eine Zeile:
Worksheets("Erfassung").Shapes.Item("Tag").ControlFormat.ListFillRange = "'Data'!$D$2:$D$" + Format(maxDay, "00")
Also, >>maxDay<< ist eine Variable, die Anz. der Tage in einem Monat. Auf dem Sheet >>Erfassung<< sind mehrere XControls (glaub ich), darunter eins mit drei Dropdown-Boxen (Tag/Monat/Jahr) zur Auswahl eines Datums, und auf dem Sheet >>Data<< in diesem Zellbereich ist eine Liste von 1 bis 31 - wird da jetzt zum ausgewählten Wert noch mal die Gesamtanzahl der Tage im entsprl. Monat dazuaddiert oder was?
Und warum steht das so weit unten in dem Sub? Also, da werden schon weit obendrüber die Variablen Tag, Monat und Jahr gefüllt, halt mit den Werten aus den Dropdown-Listen, und dann ist da eine SELECT-Klausel, die die Variable maxDay füllt. Aber dieses >>ListFillRange<< sieht mir so nach einem Zellbezug aus? Der ist aber wohl als Formel schon in den Dropdown-Listen selbst hinterlegt, mit XControls kenn ich mich nicht so aus. Was tut das dann hier?
Danke vielmals!
Gruß,
Officer_Bierschnitt
|