Fehler bei falsch Eingabe
22.02.2006 15:33:25
Torge
kann jemand helfen?
Bei folgender Abfrage der Kundennummer erhalte ich bei einer Falscheingabe immer eine Fehlermeldung (Laufzeitfehler '13').
Vielleicht gibt's da Erfahrungen.
Wäre echt super und vielen Dank
Hier der Code:
Sub Mappezu()
Dim Kundennr As Integer
For i = 1 To Sheets.Count 'alle Tabellenblätter sperren
Sheets(i).Protect
Next i
Kundennr = InputBox("Kundennr") ' Kundennr, eingeben
With Worksheets(1).Range("a1:a500")
Set c = .Find(Kundennr, LookIn:=xlValues) ' Kundennr suchen
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c = Kundennr Then ' Kundennr gefunden dann zelle B x anzeigen
MsgBox "Kundennr gefunden. Ihr Zugangscode = " & c.Offset(0, 1)
For i = 1 To 3
Sheets(i).Unprotect 'Tabellenblatt 1 bis 3 freigeben
Next i
End If
Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "keine Übereinstimmung!!" 'Kundennr falsch, Macro beenden. Blätter sind gesperrt.
End Sub
vielen Dank
Torge