AW: Inputbox
23.02.2006 13:50:40
Torge
Hy,
Danke für die Info. Hab ich bereits gemacht aber wenn nun ein Buschstabe eingegeben wird, kommt es zur Fehlermeldung und die möchte ich umgehen.
Sieht so bei mir aus:
"
Sub Mappezu()
Dim Kundennr As Integer
For i = 1 To Sheets.Count 'alle Tabellenblätter sperren
Sheets(i).Protect
Next i
'hier kommt bei Buchstaben die Fehlermelung, weiss leider nicht warum'
Kundennr = Application.InputBox("Kundennr", Type:=1) ' 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
"
Gruß Torge