Herbers Excel-Forum - das Archiv

CDate TextBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

Betrifft: CDate TextBox
von: rolf

Geschrieben am: 27.06.2008 21:17:40

hallo
ich gebe über eine userform textbox ein datum in eine excel zelle ein.wenn kein datum eingegeben wird
werden die anderen textboxen nicht ein getragen (textboxen sind aber leer) und ein laufzeitfehler wird angezeigt.
wie kann ich das vermeiden ?
mfg rolf

Bild

Betrifft: AW: CDate TextBox
von: Gerd L
Geschrieben am: 27.06.2008 21:27:27
Hallo Rolf,
zeige mal deinen Code u. beschreibe das "Nichteintragen in die anderen Textboxen" etwas genauer.
Gruß Gerd

Bild

Betrifft: AW: CDate TextBox
von: rolf

Geschrieben am: 27.06.2008 21:40:10
hallo Gerd
code zum eintragen
Sheets("Abstammungen").Cells(erste_freie_Zeile, 5) = CDate(TextBox81.Text)
code zum eintragen nach einer berichtigung
Sheets("Abstammungen").Cells(wohin, 5) = CDate(TextBox81.Text)
nicht eingetragen werden die einträge hinter zeile 5. (nach cdate) aber die textboxen sind leer.
es sind 30 bis 100 einträge die ich dann neu ausfüllen muss.
mfg rolf

Bild

Betrifft: AW: CDate TextBox
von: Gerd L
Geschrieben am: 27.06.2008 21:49:43
Sorry Rolf,
wo liegt das Problem ?
Benötigst Du eine Prüfung, ob in der TextBox1 ein Datum eingetragen ist
oder
ist dein Problem die nächste freie Zelle in Spalte E zu ermitteln ?
Gruß Gerd

Bild

Betrifft: AW: CDate TextBox
von: rolf
Geschrieben am: 27.06.2008 22:11:25
hallo
eine prüfung, ob in der textbox1 ein datum eingetragen ist.
das ist eine gute idee !
oder alle textboxen eintragen auch ohne datum.
wie funktioniert das ?
mfg rolf

Bild

Betrifft: AW: CDate TextBox
von: Hajo_Zi
Geschrieben am: 28.06.2008 08:49:09
Hallo Rolf,
Datum in Textbox in UserForm

Bild

Betrifft: AW: CDate TextBox
von: rolf
Geschrieben am: 28.06.2008 21:19:18
hallo
danke für die hilfe,ich werde alles testen und einbauen.
mfg rolf

Bild

Betrifft: AW: CDate TextBox
von: Gerd L

Geschrieben am: 27.06.2008 22:36:25
Hallo Rolf,
ungetestet:
If Len(TextBox81.Text) And IsDate(TextBox81.Text) Then
Sheets("Abstammungen").Cells(erste_freie_Zeile, 5).Value = CDate(TextBox81.Text)
'und eventuell
Else
Sheets("Abstammungen").Cells(erste_freie_Zeile, 5).Value = TextBox81.Text
End If
P.S.: 81 Stück ? :-)
Gruß Gerd

Bild

Betrifft: AW: CDate TextBox
von: rolf
Geschrieben am: 28.06.2008 21:33:40
hallo Gerd
danke für die hilfe !
mfg rolf

 Bild
Excel-Beispiele zum Thema "CDate TextBox"
Text aus Textbox in Variable Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen Artikel aus Auswahltextbox in Sammeltextbox verschieben