Office: Combobox(en) in Userform Datumsformat

Hallo,
habe mehrere Comboboxen, welche ich aus der Tabelle ein Datum auslesen lasse.
Jedoch zeigt es mir nicht das Datum an sondern 39613.
Gibt es ein Makro, welches diese Comboboxen mal so richtig hart ran nimmt, und ein Datumsformat aus ihnen rausholt.
Bsp. Samstag, 14. Juni 2008


Gruß Timi

 

hallo,


Dim Datum As Date
Datum = Format(ComboBox1.List ComboBox1.ListIndex), "dd.mm.yyyy")

zur Anregung! In Suchmaschinen gibt es Deine Frage auch, sogar mit Antworten :-)


lg silex1

 

Hallo,
Danke für Deine Antwort.
Hatte bereits in Suchmaschine gesucht, mehrere Anweisungen eingegeben und keine hatte wirklich funktioniert.
Nahm an, dass ich diese Anweisung hier:

Private Sub UserForm_Initialize()

End Sub

eingeben könnte.
Funzte jedoch nicht.

Bin ein wenig ratlos, da ich schon soviele Anweisungen aus dem Netz versucht habe und die ComboBox in der Userform beim Öffnen mir trotzdem diese 39613 ausgezeigt hatte.

Gruß Timi

 

Hallo Ihr lieben Helfer,
komme nicht weiter mit diesem sch.... Datumsformat.
Kann Anweisen, was ich will, die Combobox in meiner UserForm schreibt mir immer wieder eine 5-stellige Zahl. Das Datum steht in meiner Tabelle im Datumsformat und wird via RowSource ausgelesen.
( Startseite!$CM$2:$CM$1000 )

Hier die Anweisung meiner ComboBox. Habe diese ComboBox mehreren Box(en) zugewiesen, um deren Verhalten zu synchronisieren.
Gerade diese eine Anweisung benötigt nun noch den Befehl sich in ein Datumsformat zu wandeln.
Bsp. Samstag, 14. Juni 2008 wäre gut.
Weiß' nicht, was ich hier noch einfügen kann.


Private Sub ComboBox19_Change()
ComboBox4.ListIndex = ComboBox19.ListIndex
ComboBox15.ListIndex = ComboBox19.ListIndex
ComboBox16.ListIndex = ComboBox19.ListIndex
ComboBox17.ListIndex = ComboBox19.ListIndex
ComboBox18.ListIndex = ComboBox19.ListIndex
ComboBox20.ListIndex = ComboBox19.ListIndex
ComboBox21.ListIndex = ComboBox19.ListIndex
End Sub

Das gleiche Problem habe ich mit einer weiteren ComboBox, welche einfach nicht das €-Zeichen anzeigen möchte.

Bin langsam schon am excelieren ( Ex(c)itus )

Gruß Timi

 

Hallo!

Um eine ComboBox mit Währungen zu füllen:

Code:

Private Sub UserForm_Initialize()
Dim Zeile As Integer
For Zeile = 1 To 9
ComboBox1.AddItem Format(Cells(Zeile, 2), "#,##0.00 €")
Next Zeile
End Sub

Um eine ComboBox mit Datümern zu füllen:

Code:

Private Sub UserForm_Initialize()
Dim Zeile As Integer
For Zeile = 1 To 9
ComboBox1.AddItem Format(Cells(Zeile, 2), "dd.mm.yyyy")
Next Zeile
End Sub

 

Hallo,

jetzt zeigt er mir "Zugriff verweigert; Laufzeitfehler 70" an, wenn ich die Userform per Button öffnen will. UserForm22.Show ist gelb markiert.

Habe Deine Datumsanweisung angewandt.

Gruß Timi

 

Hallo!

Bei mir funktioniert's...
Hast du vielleicht irgendeine Art Schutz drin?
Den müsstest du dann wohl temporär aufheben.

 

Habe die ComboBox in der Eigenschaft unter Locked->True gestellt. Damit die C-Box später beim Aufruf der Userform nicht verändert werden kann.
Hat dies damit was zu tun?

Gruß Timi

 

Hallo!

Daran könnte es liegen.

 

Hab's gerade getestet, war es nicht.
Bin ratlos!
Muß doch eine Lösung geben, damit mir diese Combobox die Zahl als Datum anzeigt.
Gruß Timi

 

Hallo!

Wie gesagt: Bei mir funktioniert's prima...

 

Bei Dir klappt's wirklich!

Bei mir nicht!!!!
Hab's genauso gemacht, wie Du!
Jetzt hab' ich endgültig die Faxen dicke und schmeiß' die Userform in die Tonne und hole mir die altbewährte :evil: Eingabemaske :evil: zurück.
Sitze schon zwei Tage an diesem Problem.
Jetzt wollte ich mich von der :evil: Eingabemaske :evil: distanzieren; stattdessen hab' ich sie sogar lieb gewonnen! Mehr als je zuvor!
In der :evil: Eingabemaske :evil: wird zwar das Datum im amerikanischen Stil angezeigt, aber...... (und jetzt kommt's) ES WIRD ANGEZEIGT!!!!
Was es bei mir nicht tut. :cry: HEUL-HEUL-HEUL!!!! :cry:

Vielen Dank für die Mühe!

Gruß Timi