MSGBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: MSGBox
von: Walter
Geschrieben am: 17.04.2005 11:31:56
Hallo Zusammen,
habe folgend Box erstellt:
bisher funktioniert, ich wollte jedoch nicht mehr das Kreuz sondern das
Ausrufezeichen und in der Kopfleiste nicht Microsoft Excel sondern Hinweis.
Kriege das nicht hin.

Dim Antwort
Antwort = MsgBox("Letzte Warnung !!! Beenden >>> JA drücken " & _
Chr(13) & Chr(13) & " oder" _
& Chr(13) & Chr(13) & _
"Datei OFFEN lassen, für späteres arbeiten ? " & _
"dann >>> NEIN drücken ", vbInformation, "Hinweis", vbYesNo)
If Antwort = vbYes Then

Kann man auch das Kreuz und ober in der Kopfleiste irgenwas anderes setzen z.b.
"Walter" ????
Gruß Walter

Bild

Betrifft: AW: MSGBox
von: Hajo_Zi
Geschrieben am: 17.04.2005 11:39:36
Hallo Walter,
das x bekommst Du in der Titelzeile nicht fort.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Bild

Betrifft: AW: MSGBox
von: Walter
Geschrieben am: 17.04.2005 11:42:32
Hallo Hajo,
das "x" möchte ich auch nicht weghaben, sonder nur die Schrift:
"Microsoft Excel" bei der VbInfomation kann man doch auch z.b."www" reinsetzen.
Gruß Walter
Bild

Betrifft: AW: MSGBox
von: Hajo_Zi
Geschrieben am: 17.04.2005 11:45:30
Hallo Walter,


Sub Test3()
'   Berti
  MsgBox IIf((MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, _
    "Löschabfrage ?") = vbYes), "Ja", "Nein")
  ' außen ist die Msgbox mi der Meldung was gedrückt wurde
  ' IIF(Bedingung; Bedingung Wahr; Bedingung Falsch)
  ' die Bedingung in diesem Fall ist wurde bei der Msgbox Ja gedrückt
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Bild

Betrifft: AW: MSGBox Danke o.T.
von: Walter
Geschrieben am: 17.04.2005 11:55:48
hallo Hajo,
Danke für den Tip.
Habe auch gerade mit Unterstützung der "Hilfe" zusammengebastelt und damit ebenfalls Erfolg.
"dann >>> NEIN drücken ", vbYesNo + vbQuestion, " Hinweis !")
Danke ,
gruß Walter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "MSGBox"