Supportnet / Forum / Tabellenkalkulation

Hallo Leute, Ich habe wieder mal ein Problemchen. Wie erhalte ich den Wert der jeweils gedrückten Taste (Ja oder Nein) aus der MsgBox im TestMacro. Die Abfrage 'Antwort = MsgBox "....' funzt so nicht. Vielen Dank im Voraus mfg Marco [code] Sub AddUDFToCategory() Application.MacroOptions _ Macro:="TestMacro", _ Description:="This function gives back the 'Hello world' message!", _ Category:=14, _ HelpFile:=ThisWorkbook.Path & "\CHM-example.chm", _ HelpContextID:=0 End Sub Function TestMacro() MsgBox "EINGABE WIEDERHOLEN ?", _ Buttons:=vbYesNo + vbExclamation + vbMsgBoxHelpButton + vbDefaultButton2, _ Title:="E I N G A B E - T E S T E R", _ HelpFile:="D:\ZIP\WinHTMLExcel\CHM-example.chm", _ Context:=0 End Function [/code]

So funktioniert die MSG-Box:

antwort = MsgBox("EINGABE WIEDERHOLEN ?", vbYesNo,  _
"E I N G A B E  -  T E S T E R")

Damit das Ganze eine Funktion wird, musst du aber noch ein Paar Dinge bei der Deklaration beachten.
Besser also so:

Function TestMacro() As Integer
        antwort = MsgBox("EINGABE WIEDERHOLEN ?", vbYesNo, _
        "E I N G A B E  -  T E S T E R")
        TestMacro = antwort
End Function

Gruß Flupo

Function TestMacro() As VbMsgBoxResult
    TestMacro = MsgBox("EINGABE WIEDERHOLEN ?", _
    Buttons:=vbYesNo + vbExclamation + vbMsgBoxHelpButton + vbDefaultButton2, _
    Title:="E I N G A B E  -  T E S T E R", _
    HelpFile:="D:\ZIP\WinHTMLExcel\CHM-example.chm", _
    Context:=0)
End Function

Zum Testen:

Sub Testaufruf()
If TestMacro = vbYes Then
    MsgBox "JA gewählt."
Else
    MsgBox "NEIN gewählt."
End If
End Sub

Arno

• MsgBox beim starten der Accessdatei
• msgbox button
• VBScript File "codes,befehle...?"
• Datum/Zeit in MsgBox ausgeben lassen
• Programm ausführen in php