habe ein Userform mit Comboboxen, in dem ich die kpl. Datumsangaben eines Jahres darstellen und zur Auswahl anzeigen möchte:
Private Sub Userform_initialize()
heute = Now()
heute = heute - 3
ComboBox4.RowSource = "Daten!c2:c367"
ComboBox4.Value = Format((heute), "d. MMMM YYYY")
....
end sub
dies löst (meistens) beim Öffnen einen Laufzeitfehler 380 aus.
Das Datum in Bereich c2:c367 ist bereits im Format "14.Apr.1998" formatiert
Gebe ich combobox4.value kein Format(.....) mit, ist die Darstellung fehlerhaft (englische Darstellung)
Ein ähnliches Problem habe ich auch mit einer textbox:
ComboBox6.RowSource = "Daten!H2:H4"
ComboBox6.Value = Format((Range("Daten!H3")))
hier soll eine Prozentangabe im Userform angezeigt werden.
Formatier ich nicht, wird z. B. 0,16 angezeigt.
Möglicherweise gibt es einen besseren Ansatz hierfür, aber welchen?
Für Hilfe Danke im voraus,
Gruß
Markus