OpenOffice.info

Verfasst: **So, 23.04.2006 21:54**

Also das ist mein Code:

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

Verfasst: **Mo, 24.04.2006 00:23**

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

OpenOffice.info

Inputbox kommt immer wieder - hilfe

Inputbox kommt immer wieder - hilfe