Fehlersuche
03.09.2014 07:55:52
Alexa
ich habe folgenden Code geschrieben:
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
'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, 67) = ComboBox3.Text
Sheets("Daten").Cells(gesuchte_zeile, 68) = ComboBox4.Text
Unload Me
End Sub
Es handelt sich um eine Eingabemaske mit Text- und Comboboxen....es funktioniert alles, nur bei der Übertragung der Daten wird mir ein Fehler in der ersten Zeile des letzten Blocks gemeldet:
Sheets("Daten").Cells(gesuchte_zeile, 5) = TextBox9.Text
Warum?
Und 2. kann mir jemand helfen, den Code so zu schreiben, dass wenn i=0 eine Fehlermeldung ausgegeben wird? (Ich habe in dem fett geschriebenen Teil angefangen damit...)
Vielen Dank schon mal!
Grüße
Alexa
Anzeige