Office: ja oder nein abfrage in msgbox im makro

Hallo,

ich muss ein makro schreiben was mir vollgendes macht:

es soll beim ausführen eine msgbox öffnen mit einer frage darin
(beispielweise: Heute schon gefrühstückt?)
und einer ja und einer nein schaltfläsche.

wenn man dann auf ja klickt soll es was bestimmtes machen (zum beispiel kopieren)

wenn man auf nein klickt soll im prinzip nichts passieren (also das makro aufhören)

könnt ihr mir dafür nen code schreiben

danke

:)

 

Hallo Daniel,

das kannst Du über eine Userform erreichen. Ich habe mal eine kleine Userform zusammengebastelt (siehe Screenshot) und den Buttons diesen Code unterlegt (wobei Button1 -> "ja" und Button2 -> "nein" ist):
Code:

cu
myfake

 

Hallo,

oder du könntest auch mit msgboxen arbeiten. Also so:

Code:

Grüße

 

Hallo!

Das geht damit.

Sub Test
Dim Kopf, antwort As String
Dim Stil As Integer
Stil = vbYesNo + vbQuestion + vbDefaultButton2
Kopf = " *** Sicherheitsfrage *** "
antwort = MsgBox(" Sie versuchen, die Servicenummer " & vbCrLf & vbCrLf & _
" **** " & ActiveCell.Value & " ****" & vbCrLf & vbCrLf & _
"zu wählen. Es könnte sich um eine teure Servicenummer handeln. " & vbCrLf & vbCrLf & _
" ****** Möchten Sie dies wirklich? ****** " & vbCrLf & vbCrLf & _
"Klicken Sie auf ja, wenn Sie die Nummer wählen möchten! " & vbCrLf & vbCrLf & _
"Klicken Sie auf nein, um den Vorgang abzubrechen! ", Stil, Kopf)
If antwort = vbNo Then GoTo Ende
If antwort = vbYes Then 'hier hin, was gemacht werden soll.
Exit Sub
Ende:
End Sub


Gruß, Mumpel

 

Hallo Mumpel,

die ist leider ein kleiner Fehler im Code unterlaufen. Vor "Exit sub" müsste noch eine weitere end if-Anweisung stehen. Ansonsten schöner Code, unterscheidet sich jedoch nur geringfügig von der oberen Fassung ;-)

Grüße

 

Nein, in diesem Fall ist der Code richtig. Else und End If benötigt man nicht, wenn man die weitere Anweisung neben Then schreibt. Nur wenn man die weitere Anweisung darunter schreibt, sind Else und End If notwendig.

 

Hallo Mumpel,

danke, da habe ich auch wieder was dazu gelernt. Nichts für Ungut

Grüße aus Franken

 

Hallo Sebastian
habe ich gerade erst gesehen

gratuliere zum 500 er

 

Hallo Chris,

yup. Bin jetzt auch unter den MOF-Profis *g*. Auch dir Glückwunsch zu deinen 1.000. *hands

An dieser Stelle mal ein großes Lob an deine schönen Beispiele.*top

Grüße