Fehler abfangen
19.10.2004 20:45:35
Erich
habe mochmals ein problem
da bei diesen code ein fehler auftritt wenn in der Splate 2 keine uhrzeit steht sonderen ein text möchte ich diesen abfangen aber wie?
könnt ihr mir weiterhelfen?
Private Sub SpinButton1_Change()
CommandButton1.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
Label126.Visible = False
Label127.Visible = False
Label128.Visible = False
Label129.Visible = False
Dim iCounter As Integer
Dim lz As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row + 1
If lz - SpinButton1.Value < 1 Then Exit Sub
TextBox1.Text = Cells(lz - SpinButton1.Value, 1)
'Hier tritt der fehler auf
TextBox2.Value = Format(CDate(Cells(lz - SpinButton1.Value, 2)), "hh:mm")
For iCounter = 209 To 3 Step -1
Controls("TextBox" & iCounter).Text = _
Cells(lz - SpinButton1.Value, iCounter)
Next iCounter
Me.SpinButton1.Max = Cells(65536, 1).End(xlUp).Row
End Sub
gruß
erich
Anzeige