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

Datum in TextBox - TextBox leer - Typen unverträgl

Datum in TextBox - TextBox leer - Typen unverträgl
Frank
Hallo Zusammen!!!
Es werden mittels folgendem Code Daten aus einer UF heraus in eine Tabelle gteschrieben!
Dim lng As Long
Dim i As Integer
With frmAnsetzungen
Sheets("1. Liga").Activate
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 53).Value = .TextBox3.Value Then
If Cells(lng, 53).Value = .TextBox4.Value Then
Cells(lng, 54).Value = CDate(TextBox13)
Cells(lng, 55).Value = .TextBox22.Text
Cells(lng, 56).Value = CDate(TextBox31)
End If
TextBox13 = Format(TextBox13, "dd.mm.yyyy")
TextBox22 = Format(TextBox22, "ddd")
TextBox31 = Format(TextBox31, "hh:mm")
If Cells(lng, 53).Value = .TextBox5.Value Then
Cells(lng, 54).Value = CDate(TextBox14)
Cells(lng, 55).Value = .TextBox23.Text
Cells(lng, 56).Value = CDate(TextBox32)
End If
TextBox14 = Format(TextBox14, "dd.mm.yyyy")
TextBox23 = Format(TextBox23, "ddd")
TextBox32 = Format(TextBox32, "hh:mm")
If Cells(lng, 53).Value = .TextBox6.Value Then
Cells(lng, 54).Value = CDate(TextBox15)
Cells(lng, 55).Value = .TextBox24.Text
Cells(lng, 56).Value = CDate(TextBox33)
End If
TextBox15 = Format(TextBox15, "dd.mm.yyyy")
TextBox24 = Format(TextBox24, "ddd")
TextBox33 = Format(TextBox33, "hh:mm")
If Cells(lng, 53).Value = .TextBox7.Value Then
Cells(lng, 54).Value = CDate(TextBox16)
Cells(lng, 55).Value = .TextBox25.Text
Cells(lng, 56).Value = CDate(TextBox34)
End If
TextBox16 = Format(TextBox16, "dd.mm.yyyy")
TextBox25 = Format(TextBox25, "ddd")
TextBox34 = Format(TextBox34, "hh:mm")
Nun mein Problem: Wenn nun in einer oder mehreren TextBoxen, wo eigentlich vorgesehen, kein Datum steht kommt die Fehlermeldung - "Typen unverträglich".
Könnt ihr mir weiterhelfen, so dass auch der Code läuft wenn nicht überall ein Datum steht. Die Abfrage für eine TextBox dürfte reichen, den Rest passe ich ggf. an!!! Vielen Dank!!!
Gruß Frank H.!!!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum in TextBox - TextBox leer - Typen unverträgl
09.07.2010 13:59:02
Peter
Hallo Frank,
If IsDate(.TextBox13.Value) Then
oder einfach das Tagesdatum einsetzen, wenn ein Datum fehlt
If Not IsDate(.Textbox13.Value) Then
.TextBox13.Value = Format(Date, "dd.mm.yyyy")
End If
Gruß Peter
AW: Datum in TextBox - TextBox leer - Typen unverträgl
09.07.2010 16:05:50
Frank
Hallo Peter!!!
War unterwegs, dann 'ne Weile getestet und umgestellt - deinen zweiten Vorschlag - (deshalb erst jetzt 'ne Rückmeldung) - und es funzt. Besten Dank!
Einfach wie fast immer - Spitze!!!
Dir und allen anderen Usern ein schönes WE!!!
Gruß Frank H.
Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige