Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ComboBox

Forumthread: ComboBox

ComboBox
DieterG
Hallo zusammen,
per ComboBox (Userform) soll ein Datum z.B. 01.01.2004 in eine Zelle übertragen werden. Ich bekomme in der besagten Zelle (L1) aber nur den Text "Falsch" angezeit!
Was mache ich falsch?
Danke für die Hilfe
Gruß Dieter


Private Sub CommandButton1_Click()
Range("L1").Select
ActiveCell.Value = TextBox1.Value = Format("YYYY")
Me.Hide
End Sub


Private Sub CommandButton2_Click()
Me.Hide
End Sub


Private Sub Textbox1_AfterUpdate()
If Not IsDate(TextBox1) Then
MsgBox "Kein gültiges Datum eingegeben!" & Chr(13) & Chr(13) & _
"      z.B. 01.04.2004", 16, "Falsches Datum"
Exit Sub
End If
TextBox1 = Format(TextBox1, "DD/MM/YYYY")
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ComboBox
harry
hi dieter,
versuchs mit:
ActiveCell.NumberFormat = "dd/mm/yy;@"
andere formate einfach einmal mit dem recorder aufzeichnen.
liebe grüße,
harry
AW: ComboBox
Bert

Private Sub CommandButton1_Click()
[L1] = CDate(TextBox1)
[L1].Numderfomat = "JJJJ"
Me.Hide
End Sub

Bert
Anzeige
Oops...
Bert
[L1].Numberfomat = "JJJJ"
muss es natürlich heißen.
Bert
AW: ComboBox
24.03.2004 22:00:55
mischa
also, diese anweisung von dir ist grober unfug:
ActiveCell.Value = TextBox1.Value = Format("YYYY")
die zwei istgleich sind falsch.
außerdem wird da der wert nich aus ner combobox, sondern aus ner textbox übernommen.
try:
ActiveCell.Value = Format(datevalue(TextBox1.Value), "dd.mm.YYYY")
mischa
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige