Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Fehlersuche

Betrifft: Fehlersuche von: Alexa
Geschrieben am: 03.09.2014 07:55:52

Guten morgen,

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

  

Betrifft: AW: Fehlersuche von: Hajo_Zi
Geschrieben am: 03.09.2014 08:11:29

Hallo Alexa,

man könnte vermuten gesuchte_zeile =0

GrußformelHomepage


  

Betrifft: AW: Fehlersuche von: Alexa
Geschrieben am: 03.09.2014 08:12:53

Hallo Hajo,

danke...aber was kann ich da machen?


  

Betrifft: AW: Fehlersuche von: Hajo_Zi
Geschrieben am: 03.09.2014 08:18:49

Hallo Alexa,

Du hast es also geprüft?
Weise der Variablen einen Wert zu.

GrußformelHomepage


  

Betrifft: AW: Fehlersuche von: Alexa
Geschrieben am: 03.09.2014 08:24:39

Ic hab jetzt geschrieben:

If (gesuchte_zeile = 0) Then
MsgBox "Fehler!"
End If

Jetzt funktionierts...aber ich hab keine Ahnung warum...

Vielen Dank;-)