Fehler1004 im Code
04.09.2014 07:30:40
Alexa
ich habe in folgendem Programm einen Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler...
kann mir jemand sagen warum?
Vielen Dank
Lg Alexa
Private Sub CommandButton1_Click()
Dim letzte_volle_zeile As Integer
Dim gesuchte_zeile As Integer
Dim i As Integer
letzte_volle_zeile = Sheets("daten").Range("E65536").End(xlUp).Offset(1, 0).Row - 1
For i = 2 To letzte_volle_zeile
If (Cells(i, 5) = TextBox9.Text) Then
gesuchte_zeile = i
End If
Next
If (gesuchte_zeile = 0) Then
MsgBox "Fehler!"
End If
Sheets("Daten").Cells(gesuchte_zeile, 5) = TextBox9.Text
Sheets("Daten").Cells(gesuchte_zeile, 62) = TextBox10.Text
Sheets("Daten").Cells(gesuchte_zeile, 65) = TextBox11.Text
Sheets("Daten").Cells(gesuchte_zeile, 66) = TextBox12.Text
Sheets("Daten").Cells(gesuchte_zeile, 77) = TextBox13.Text
Sheets("Daten").Cells(gesuchte_zeile, 63) = ComboBox1.Text
Sheets("Daten").Cells(gesuchte_zeile, 64) = ComboBox2.Text
Sheets("Daten").Cells(gesuchte_zeile, 68) = ComboBox4.Text
Unload Me
End Sub