AW: Datumauswahlfeld
29.05.2006 11:33:04
Franz
Hallo Thomas,
Auswahlfelder (erzeugt via Symbolleiste "Steuerelemente-Toolbox") mit Datum sind zumindest unter Excel97 etwas tricky. Das aus einer Liste ausgewählte Datum steht im Auswahlfeld als Zahl im Textformat nicht mehr als Datum. In der "LinkedCell" steht die dem Datum entsprechende Zahl ebenfalls als Text. Ob bei neueren Exelversionen diese Problem immer noch besteht weiß ich nicht.
Deshalb sind nach der Auswahl eines Datums Modifikationen per Makro nötig, die den Text in ein Datum verwandeln. Beispiel für Code, der den Inhalt der Linkedcell modifiziert und die Auswahl auch in andere Zellen einträgt.
Private Sub ComboBox1_Change()
ActiveSheet.Range(ComboBox1.LinkedCell).Value = CDate(Val(ComboBox1.Value))
Sheets("Tab1").Range("F8").Value = CDate(Val(ComboBox1.Value))
Sheets("Tab2").Range("B10").Value = CDate(Val(ComboBox1.Value))
End Sub
Die Datums für die Auswahlliste sollte man per Formel generieren, so dass sie bei Jahreswechsel automatisch angepasst werden.
Tabellenblattname: Tab1
A
1 Datum
2 01.01.2006
3 02.01.2006
Benutzte Formeln:
A2: =ZEILE()+DATWERT("01.01."&TEXT(JAHR(HEUTE());"0000"))-2
A3: =ZEILE()+DATWERT("01.01."&TEXT(JAHR(HEUTE());"0000"))-2
Gruß
Franz