Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Denkfehler wer kann helfen?

Denkfehler wer kann helfen?
14.10.2004 15:29:41
Martin
Hi Forum
Beim ausführen vom Quelcode bekomme ich immer ein Meldung else if ohne if bei mir ist irgentwo ein denk fehler weiss aber nicht genau wo

Sub Abfrage()
MsgBox ("Möchten Sie Drucken" & " ?"), vbYesNo, "Frage"
If vbYesNo = vbYes Then Call Drucken
ElseIf vbYesNo = vbNo Then Call DateiSchließen
End If
End Sub

Bitte um eure hilfe
Gruß sagt Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Denkfehler wer kann helfen?
Bert

Sub Abfrage()
dim msg as integer
msg = MsgBox("Möchten Sie Drucken" & " ?"), vbYesNo, "Frage"
If msg = vbYes Then
Call Drucken
ElseIf msg = vbNo Then
Call DateiSchließen
End If
End Sub

Bert
Bert
AW: Denkfehler wer kann helfen?
Martin
Hallo bert danke für deine schnelle hilffe
Ader in der zeile msg = MsgBox("Möchten Sie Drucken" & " ?"), vbYesNo, "Frage"
bekomme ich jetzt eine wahrnung Fehler bein Kombilieren Syntaxfehler
Woran liegt das?
AW: Denkfehler wer kann helfen?
Bert
msg = MsgBox("Möchten Sie Drucken" & " ?"), vbYesNo, "Frage")
Fehlte die Klammer hinten,
Bert
AW: Denkfehler wer kann helfen?
Mitti

Sub Abfrage()
Dim ret as Variant
ret = MsgBox ("Möchten Sie Drucken ?", vbYesNo, "Frage")
If ret = vbYes Then
Call Drucken
Else
Call DateiSchließen
End If
End Sub

Anzeige
AW: Danke
14.10.2004 15:38:59
Martin
Hallo Danke für deine schnell antwaort funzt einwandfrei
Gruß sagt Martin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige