Inputbox kommt immer wieder - hilfe

[Creator]

Also das ist mein Code:

Code: Alles auswählen

Sub MsgBox


Dim sngzahl As Single


	sngzahl = CSng(Inputbox("Bitte geben Sie einen Wert von 1 - 255 ein.", "Abfrage"))
	
	IF sngzahl < 1 THEN
		MsgBox "Geben Sie eine Zahl zwischen 1 und 255 ein!"
	ELSEIF sngzahl > 255 THEN
		MsgBox "Geben Sie eine Zahl zwischen 1 und 255 ein!"
	ENDIF
	
	Select Case MsgBox ("Sie haben die Zahl " + sngzahl +" eingegeben!", sngzahl)
	Case 0
		MsgBox "Sie haben auf OK geklickt"
	
	End Select 
End Sub

Und sobal dich es starte kommt die Inputbox immer und immer wieder, nur ich weiß nicht wieso, weiß einer von euch es?

MfG

[Stephan]

weiß einer von euch es?

Der Name eines Makros darf kein Befehl, Funktion oder allgemein kein reserviertes Wort sein:

Code: Alles auswählen

Sub MsgBox 

Msgbox ist ein solches Wort.
Ändere einfach den Namen des Makros.

(Nein ich weiß nicht warum im Konkreten das geschiet was geschieht, aber die Ursache ist der unzulässige Makroname.)



Gruß
Stephan