ich habe folgendes problem. ich muesste mit dem eingabefenster sicherstellen, dass nur positive zahlen eingegeben werden koennen. leider nimmt mein code auch alle anderen werte. nur bei keiner eingabe springt er zum msg fenster. danke im voraus fuer eure hilfe!
gruss, martin
das ist mein momentaner code:
Sub SectorID()
Dim strSectorID As String, OK As Boolean, i As Integer
strSectorID = InputBox("Please enter the required Sector ID: ", "Sector ID Search")
OK = True
Do
For i = 1 To Len(strSectorID)
If Mid(strSectorID, i, 1) "9" Then
OK = False
Exit For
End If
Next
Loop Until OK Or inpt = "" 'leere Eingabe bzw "Abbrechen" als Abbruchbedingung akzeptieren
If strSectorID = "" Then
MsgBox "Wrong Input!"
Exit Sub
End If
Sheets("Sheet1").Select
Range("G1").Value = strSectorID
End Sub