Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

CDate TextBox

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

  

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


  

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


  

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


  

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


  

Betrifft: AW: CDate TextBox von: Hajo_Zi
Geschrieben am: 28.06.2008 08:49:09

Hallo Rolf,

Datum in Textbox in UserForm


GrußformelHomepage


  

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


  

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


  

Betrifft: AW: CDate TextBox von: rolf
Geschrieben am: 28.06.2008 21:33:40

hallo Gerd
danke für die hilfe !
mfg rolf


 

Beiträge aus den Excel-Beispielen zum Thema "CDate TextBox"