HERBERS Excel-Forum - das Archiv
Thema: Datum formatieren mit VBA (Formular) | Herbers Excel-Forum
-
AW: aber....hary
-
AW: aber....Wolle
Datum formatieren mit VBA (Formular)
Wolle
Hallo Forum,
nachdem es jetzt klappt das die Daten aus der Tabelle in das Formular angezeigt werden, habe ich noch ein Problem mit der Formatierung "Datum"
Ich schreibe in dem Formular das Anfangs und enddatum und lasse Sie über das Formular in die Tabelle schreiben. Dort sollen Sie weiterverwendet werden als Format Datum. Mein Problem ist das sie immer als TEXT Formatiert werden.
Könnt Ihr mir helfen? Wo muss ich was eintragen (in der userForm oder Modeul?)?
Danke sagt Wolfgang aus Norddeutschland
https://www.herber.de/bbs/user/66293.xls
AW: Datum formatieren mit VBA (Formular)
Wolle
Hallo Hajo,
vielen Dank für Deine Hilfe. Kannst Du mir sagen wo und wie ich diese Funktion einbauen muss. Habe natürlich auch schon die Suchfunktion genutzt und sogar was gefunden, nur konnte ich mit dieser langen programierung nichts anfangen weil mein wissen dafür nicht reicht.
Kannst Du mir Helfen?
Gruß Wolle
AW: Datum formatieren mit VBA (Formular)
hary
Hi Wolle
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
--- usw----
Gruss hary
AW: Datum formatieren mit VBA (Formular)
Wolle
Hallo Hary,
das hatte ich schon probiert, und bekomme immer eine Fehlermeldung.
Laufzeitfehler 13 (Typen unverträglich)
HILFE
Gruß Wolle
AW: aber....
hary
Hallo Wolle
.... nicht die Textboxen fuer den Text!!!!!
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
.Cells(3, 2) = CDate(TextBox2) 'zeit_1_2
.Cells(3, 3) = TextBox3 'text_1
gruss hary
AW: aber....
Wolle
Das verstehe ich. Wenn ich KEIN Datum in die "datum"box schreibe, kommt die Fehlermeldung. Wenn dort aber etwas drinne steht, dann nicht.
Ist schon komisch.
gruß Wolle
Fehlermeldung wenn Zelle leer ist
Wolle
Nochmal ich,
habe festgestellt das ich diese Fehlermeldung nur bekommen, wenn die Zelle leer bleiben soll (also wenn kein Datum eingetragen wird)
Was kann das denn nun sein?
Gruß Wolfgang
AW: Fehlermeldung wenn Zelle leer ist
hary
Hallo
da haben wir uns ueberschnitten.
kannst Du so machen.
If TextBox1 <> "" Then ' macht erst wenn in TextBox1 was drinsteht. Evtl Txt2 dazu nehmen mit _
and/or
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
.Cells(3, 2) = CDate(TextBox2) 'zeit_1_2
.Cells(3, 3) = TextBox3 'text_1
End If
gruss hary
AW: Fehlermeldung wenn Zelle leer ist
Wolle
Jaaaa, das wird es sein. Kannst mir noch sagen wie ich die anderen Textboxen miteinbinde? Das währe klasse
Private Sub CommandButton2_Click()
'Hiermit werden die Texte in die Zellen geschrieben
With Tabelle1
'Anzeige 1
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
.Cells(3, 2) = CDate(TextBox2) 'zeit_1_2
.Cells(3, 3) = TextBox3 'text_1
'Anzeige 1
.Cells(4, 1) = CDate(TextBox4) 'zeit_2_1
.Cells(4, 2) = CDate(TextBox5) 'zeit_2_2
.Cells(4, 3) = TextBox6 'text_2
'Anzeige 1
.Cells(5, 1) = CDate(TextBox7) 'zeit_3_1
.Cells(5, 2) = CDate(TextBox8) 'zeit_3_2
.Cells(5, 3) = TextBox9 'text_3
'Anzeige 1
.Cells(6, 1) = CDate(TextBox10) 'zeit_4_1
.Cells(6, 2) = CDate(TextBox11) 'zeit_4_2
.Cells(6, 3) = TextBox12 'text_4
End With
'betätigt den Button Abrechen um das Fenster zu schliessen
Call CommandButton1_Click
End Sub
AW: Fehlermeldung wenn Zelle leer ist
hary
hi
Teste mal so.Wenn alle 3 Textboxen nicht leer.
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
.Cells(3, 2) = CDate(TextBox2) 'zeit_1_2
.Cells(3, 3) = TextBox3 'text_1
End If
'Anzeige 1
If TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" Then
.Cells(4, 1) = CDate(TextBox4) 'zeit_2_1
.Cells(4, 2) = CDate(TextBox5) 'zeit_2_2
.Cells(4, 3) = TextBox6 'text_2
End If
'---------------------usw-----------------
gruss hary
AW: Fehlermeldung wenn Zelle leer ist
Wolle
Juhu,
prima prima, jetzt klappt es. Ich verneige mich und bedanke mich bei Dir.
Hast mir klasse geholfen.
Gruß Wolfgang
Dialog-Beispiele
Excel-Beispiele