AW: Laufzeitfehler 380
07.03.2005 09:23:47
eres
Hallo Nepumuk, Hallo Martin,
zunächst Danke für Eure Antworten.
Nachfolgend der komplette Code:
Private Sub UserForm_Initialize()
On Error GoTo dlgVerifyData_ErrorHandler
Dim i As Integer
If Mandant = "" Then ' dann ist es eine kumulierte Auswertung
dlgVerifyData.Label4.Visible = True
dlgVerifyData.TextBox15.Visible = True
Else
dlgVerifyData.Label4.Visible = False
dlgVerifyData.TextBox15.Visible = False
End If
dlgVerifyData.TextBox6.Text = Format(Konto_0800, "#,##0.00;[Red](#,##0.00)")
dlgVerifyData.TextBox7.Text = Format(Konto_3905, "#,##0.00;[Red](#,##0.00)")
dlgVerifyData.TextBox8.Text = Format(Konto_4555, "#,##0.00;[Red](#,##0.00)")
dlgVerifyData.ComboBox1.AddItem "January"
dlgVerifyData.ComboBox1.AddItem "February"
dlgVerifyData.ComboBox1.AddItem "March"
dlgVerifyData.ComboBox1.AddItem "April"
dlgVerifyData.ComboBox1.AddItem "May"
dlgVerifyData.ComboBox1.AddItem "June"
dlgVerifyData.ComboBox1.AddItem "July"
dlgVerifyData.ComboBox1.AddItem "August"
dlgVerifyData.ComboBox1.AddItem "September"
dlgVerifyData.ComboBox1.AddItem "October"
dlgVerifyData.ComboBox1.AddItem "November"
dlgVerifyData.ComboBox1.AddItem "December"
For i = 2000 To 2010
dlgVerifyData.ComboBox2.AddItem i
Next i
Select Case Month(Date)
Case 1
dlgVerifyData.ComboBox1.Text = "December"
Case 2
dlgVerifyData.ComboBox1.Text = "January"
Case 3
dlgVerifyData.ComboBox1.Text = "February"
Case 4
dlgVerifyData.ComboBox1.Text = "March"
Case 5
dlgVerifyData.ComboBox1.Text = "April"
Case 6
dlgVerifyData.ComboBox1.Text = "May"
Case 7
dlgVerifyData.ComboBox1.Text = "June"
Case 8
dlgVerifyData.ComboBox1.Text = "July"
Case 9
dlgVerifyData.ComboBox1.Text = "August"
Case 10
dlgVerifyData.ComboBox1.Text = "September"
Case 11
dlgVerifyData.ComboBox1.Text = "October"
Case 12
dlgVerifyData.ComboBox1.Text = "November"
End Select
If Month(Now) = 1 Then
dlgVerifyData.ComboBox2.Text = Year(Now) - 1
Else
dlgVerifyData.ComboBox2.Text = Year(Now)
End If
GoTo Ende
dlgVerifyData_ErrorHandler:
MsgBox ("Unbekannter Fehler (Fehlerroutine), Fehler Nr " & Err.Number & _
vbCrLf & vbCrLf & "Bitte dringend FFD-310 informieren!"), vbCritical
On Error GoTo 0
Ende:
End Sub
Ich verstehe nicht, wieso ich bei einer einfachen Veränderung (hier im Fall bei Case 3), wo ich nur den String innerhalb der Hochkommata verändere, zu einem unterschiedlichen Ergebnis bzw. zu dem angegebenen Laufzeitfehler komme.
Nochmals vielen Dank und Gruss
eres