Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1856to1860
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
MsgBox Ja oder Nein
30.11.2021 18:26:57
HeinzH
Hallo Leute im Forum,
Habe einen Code mit MsgBox
  • 
    Sub Druck()
    Select Case MsgBox("Wollen Sie Jetzt drucken ?" _
    & vbCrLf & " Wenn Ja klicken Sie OK" _
    & vbCrLf & "ansonsten auf Abbrechen" _
    , vbOKCancel Or vbQuestion Or vbDefaultButton1, "Druckauftrag ")
    Case vbOK
    'MsgBox "HIER kommt dann der Druckauftrag"
    Worksheets("AusDruck").Range("A1:H21").PrintOut
    Case vbCancel
    'MsgBox "Hier nicht"
    End Select
    End Sub
    

  • Mir wäre es aber lieber statt "Abrechen" ein "Nein" auszuwählen.
    Könnte mir dazu bitte jemand Helfen?
    Danke
    SG, Heinz

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: MsgBox Ja oder Nein
    30.11.2021 18:33:07
    Daniel
    HI
    probier mal als button: vbQuestion + vbYesNo
    und im Select Case dann:
    Case vbYes
    Case Else
    Gruß Daniel
    AW: MsgBox Ja oder Nein
    30.11.2021 18:34:58
    Firmus
    Hallo Heinz,
    ein Beispiel JA/Nein/Abbrechen
    
    Dim x As Byte
    x = MsgBox("Achtung: Soll wirklich die gesamte Spalte gefüllt werden?" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
    " " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Weiter? ", vbYesNoCancel)
    If x = vbCancel Then Exit Sub           ' bei ABBRECHEN (ESC) gedrückt  -  beenden
    If x = vbNo Then Exit Sub               ' bei NO geklickt  -  beenden
    
    Gruß,
    Firmus
    Anzeige
    AW: MsgBox Ja oder Nein
    30.11.2021 18:42:00
    Peter
    Hallo Firmus, als Info:
    Chr(10) geht direkt mit vbLF, Chr(13) mit vbCR (außerdem gibt es auch vbCRLF) - und vbCR ist in Messageboxen und Userformfeldern nicht nötig; vbLF alleine reicht! :--)
    AW: MsgBox Ja oder Nein
    30.11.2021 18:34:17
    ralf_b
    statt vbOKCancel vbYESNO
    Danke an Daniel, Firmus, Ralf und Peter
    30.11.2021 18:45:36
    HeinzH
    Hallo,
    Danke für eure Zahlreiche Hilfe.
    Jetzt funktioniert es.
  • Option Explicit
    
    Sub Druck()
    Select Case MsgBox("Wollen Sie Jetzt drucken ?" _
    & vbCrLf & " Wenn Ja klicken Sie OK" _
    & vbCrLf & "ansonsten auf Nein" _
    , vbYesNo Or vbQuestion Or vbDefaultButton1, "Druckauftrag ")
    Case vbOK
    'MsgBox "HIER kommt dann der Druckauftrag"
    Worksheets("AusDruck").Range("A1:H21").PrintOut
    Case vbCancel
    'MsgBox "Hier nicht"
    End Select
    End Sub
    

  • Recht herzlichen Dank !!
    SG, Heinz
    Anzeige

    303 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige