---

Beim einfachsten Programm scheitert
es bei mir schon.

Arbeite an einer AIX Maschine mit V5R12

Sub CATMain()
dim zahl
zahl = "20"
func msgbox (zahl)
End Sub

Die Messagebox wird angezeigt, wenn ich jedoch ok drücke
kommt folgende Fehlermeldung.

ScriptingERR_1002
Type mismatch:'func'

Lasse ich das Func weg, erscheint die Msgbox gar nicht erst,
dann kommt gleich:

ScriptingERR_1002
Cannot use parens when calling a Sub

Wer weiß Rat???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

die Fehlermeldung  weist doch schon in die richtige Richtung:

"Cannot use parens when calling a Sub"
-> Keine Klammern beim Aufruf einer Subroutine (in diesem Fall MsgBox).

Richtig sollte es lauten:

Sub CATMain()

Dim zahl

  zahl = "20"

  MsgBox zahl

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und noch sauberer:

Dim nNumber
nNumber = 20
MsgBox CStr(nNumber)

Variant ist per Default ein Integer Type. Die typbezogene Deklaration hat Vorteile, wenn man mehr als ein Paar Hundert Zeilen hat und noch was berechnen muß, also:

Dim nNumber As Long

Auf dem Windows Rechner oder in der VB/VBA-Umgebung spart man sich damit eine Menge Kopfschmerzen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP