Makro / Abfrage
juergen
ist das nicht ein super Wetter! Ich wünsche Euch allen einen schönen Tag.
Ich möchte ein Makro benutzen können, in dem gefragt wird "... Einzeln MNW" oder "... Alle MNW" drucken.
Habe unten mal reingestellt wie ich es versucht habe, Wie Ihr seht, funktioniert das leider nicht so.
Frage: könnt Ihr mir bitte Mitteilen, wie ich o. g. Hinbekomme?
Für Eure Hilfe bin ich wie immer sehr dankbar.
Gruß
Juergen
Sub Makro3()
' Makro3 Makro
If MsgBox("Möchten Sie ALLE ! Mengennachweise eines bestimmten Abholers drucken ?", vbYesNo _
+ vbQuestion, "Druckabfrage ?") = vbYes Then
Sheets("MNW_Drucken").Select
Range("A50").Select
Else
If MsgBox("Möchten Sie nur Einzelene ! Mengennachweise drucken ?", vbYesNo + vbQuestion, " _
Druckabfrage ?") = vbYes Then
Sheets("MNW_Drucken").Select
Range("A50").Select
Else
Sheets("MNW_Start").Select
Range("A50").Select
End If
End Sub
Anzeige