Eingabesaske Fehlerhaft

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Achi,
so sollte es gehen:

Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
TextBox1 = ""
On Error Resume Next
Cells(xZeile, 2) = CDate(TextBox2) 'Datum/Zeit
Cells(xZeile, 3) = CDate(TextBox3) 'Datum/Zeit
Cells(xZeile, 4) = CDate(TextBox4) 'Datum/Zeit
Cells(xZeile, 5) = CDate(TextBox5) 'Datum/Zeit
Cells(xZeile, 6) = CDate(TextBox6) 'Datum/Zeit
Cells(xZeile, 7) = CDate(TextBox7) 'Datum/Zeit
Cells(xZeile, 8) = CDate(TextBox8) 'Datum/Zeit
Cells(xZeile, 9) = CDate(TextBox9) 'Datum/Zeit
Cells(xZeile, 10) = CDate(TextBox10) 'Datum/Zeit
Cells(xZeile, 11) = CDate(TextBox11) 'Datum/Zeit
Cells(xZeile, 12) = CDate(TextBox12) 'Datum/Zeit
Cells(xZeile, 13) = CDate(TextBox13) 'Datum/Zeit
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox6 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
End Sub

Code eingefügt mit Syntaxhighlighter 4.0

Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Hallo Achi,
Der Debugger Springt an weil eine oder mehrere der Textboxen leer ist.
Er sagt das die Typen nicht verträglich sind.
Ändere mal den Code für den CommandButton2 so um:


Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
TextBox1 = ""
If TextBox2 <> "" Then Cells(xZeile, 2) = CDate(TextBox2) 'Datum/Zeit
If TextBox3 <> "" Then Cells(xZeile, 3) = CDate(TextBox3) 'Datum/Zeit
If TextBox4 <> "" Then Cells(xZeile, 4) = CDate(TextBox4) 'Datum/Zeit
If TextBox5 <> "" Then Cells(xZeile, 5) = CDate(TextBox5) 'Datum/Zeit
If TextBox6 <> "" Then Cells(xZeile, 6) = CDate(TextBox6) 'Datum/Zeit
If TextBox7 <> "" Then Cells(xZeile, 7) = CDate(TextBox7) 'Datum/Zeit
If TextBox8 <> "" Then Cells(xZeile, 8) = CDate(TextBox8) 'Datum/Zeit
If TextBox9 <> "" Then Cells(xZeile, 9) = CDate(TextBox9) 'Datum/Zeit
If TextBox10 <> "" Then Cells(xZeile, 10) = CDate(TextBox10) 'Datum/Zeit
If TextBox11 <> "" Then Cells(xZeile, 11) = CDate(TextBox11) 'Datum/Zeit
If TextBox12 <> "" Then Cells(xZeile, 12) = CDate(TextBox12) 'Datum/Zeit
If TextBox13 <> "" Then Cells(xZeile, 13) = CDate(TextBox13) 'Datum/Zeit
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox6 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
End Sub

Jetzt wird geprüft ob etwas in der jeweiligen Textbox steht und erst dann die Programmzeile ausgeführt.
Rückmeldung obs hilft wäre nett.
Viele Grüße aus Köln.

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread