Microsoft Excel

Herbers Excel/VBA-Archiv

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

Datum formatieren mit VBA (Formular) | Herbers Excel-Forum


Betrifft: Datum formatieren mit VBA (Formular) von: Wolle
Geschrieben am: 01.12.2009 07:14:24


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

  

Betrifft: AW: Datum formatieren mit VBA (Formular) von: Hajo_Zi
Geschrieben am: 01.12.2009 07:18:45

Hallo Wolfgamg,

eine Textbox enthält das was der Name schon sagt Text. Willst Du es anders in der Tabelle haben mußt Du eine Umwandlungsfnktion benutzen.
=Cdate(Textbox1)

GrußformelHomepage


  

Betrifft: AW: Datum formatieren mit VBA (Formular) von: Wolle
Geschrieben am: 01.12.2009 08:30:46

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


  

Betrifft: AW: Datum formatieren mit VBA (Formular) von: hary
Geschrieben am: 01.12.2009 09:01:53

Hi Wolle
.Cells(3, 1) = CDate(TextBox1) 'zeit_1_1
--- usw----
Gruss hary


  

Betrifft: AW: Datum formatieren mit VBA (Formular) von: Wolle
Geschrieben am: 01.12.2009 09:27:36


Hallo Hary,

das hatte ich schon probiert, und bekomme immer eine Fehlermeldung.

Laufzeitfehler 13 (Typen unverträglich)

HILFE

Gruß Wolle


  

Betrifft: AW: aber.... von: hary
Geschrieben am: 01.12.2009 09:37:48

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


  

Betrifft: AW: aber.... von: Wolle
Geschrieben am: 01.12.2009 09:45:37

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


  

Betrifft: Fehlermeldung wenn Zelle leer ist von: Wolle
Geschrieben am: 01.12.2009 09:32:33

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


  

Betrifft: AW: Fehlermeldung wenn Zelle leer ist von: hary
Geschrieben am: 01.12.2009 09:45:29

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


  

Betrifft: AW: Fehlermeldung wenn Zelle leer ist von: Wolle
Geschrieben am: 01.12.2009 09:49:14

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



  •   

    Betrifft: AW: Fehlermeldung wenn Zelle leer ist von: hary
    Geschrieben am: 01.12.2009 10:03:16

    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


      

    Betrifft: AW: Fehlermeldung wenn Zelle leer ist von: Wolle
    Geschrieben am: 01.12.2009 10:20:42

    Juhu,

    prima prima, jetzt klappt es. Ich verneige mich und bedanke mich bei Dir.
    Hast mir klasse geholfen.

    Gruß Wolfgang


    Beiträge aus den Excel-Beispielen zum Thema "Datum formatieren mit VBA (Formular)"