Laufzeitfehler nicht nachvollziehbar
17.10.2012 20:24:21
vba_starter
mal wieder eine Frage, da ich Sie mir alleine nicht beantworten kann.
Bei nachfolgender Prozedur erhalte ich einen Laufzeitfehler, wie kann ich Ihn vermeiden?
Private Sub cmdSpeichern_Click()
Dim Zeile As Long
Dim LetzteZeile As Integer
'Falls kein Firmenname eingetragen
If txtObjektname.Text = "" Then
MsgBox "Fehler: Bitte einen Namen " & _
"für das Objekt eintragen", vbCritical
Exit Sub
End If
'Zeile mit ausgewählten Objekt suchen
Zeile = 5
Do While Cells(Zeile, 4).Value CInt(bl14Kundennummer2.Caption) '