Select Case Abfrage meldet Fehler
06.01.2004 13:32:02
marc
bei der unten stehenden Select Case Abfrage bekomme ich 'ne Fehlermeldung.
Entweder die Eigenschaft oder die Methode sind fehlerhaft.
Kann mir jemand weiter helfen.
marc :o) ...
Private Sub cmdWsSuchen_Click()
Dim Ws As Worksheet
Set Ws = Worksheets(1)
Me.TextBox1.SetFocus
Select Case TextBox2
Case Is = " 01"
Ws = jan
Case Is = "02"
Ws = feb
Case Is = "03"
Ws = mar
Case Is = "04"
Ws = apr
Case Is = "05"
Ws = mai
Case Is = "06"
Ws = jun
Case Is = "07"
Ws = jul
Case Is = "08"
Ws = aug
Case Is = "09"
Ws = sep
Case Is = "10"
Ws = okt
Case Is = "11"
Ws = nov
Case Is = "12"
Ws = dez
End Select
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = CInt(Me.TextBox1.Text)
Cells(z, 2) = CInt(Me.TextBox2.Text)
Cells(z, 3) = CInt(Me.TextBox3.Text)
Cells(z, 4) = CInt(Me.TextBox4.Text)
Cells(z, 5) = CInt(Me.TextBox5.Text)
Cells(z, 6) = CInt(Me.TextBox6.Text)
Cells(z, 7) = CInt(Me.TextBox7.Text)
Cells(z, 8) = CInt(Me.TextBox8.Text)
Cells(z, 9) = CInt(Me.TextBox9.Text)
Cells(z, 10) = CInt(Me.TextBox10.Text)
Cells(z, 11) = CInt(Me.TextBox11.Text)
End Sub