OpenOffice.info

Sub MsgBox 

[quote]weiß einer von euch es?[/quote]

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

[code]Sub MsgBox [/code]

[color=green]Msgbox [/color]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

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

Also das ist mein Code:

[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[/code]

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

MfG