Moin zusammen,
@Carsten: Du hast im vorangehenden Posting diese
Message Box kreiert:
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Dim Meldung As VbMsgBoxResult
Meldung = MsgBox("Checkliste kontrolliert?", vbYesNoCancel)
If Meldung = vbCancel Or Meldung = vbNo Then Cancel = True
End Sub
Find ich super, würde mir auch gut ins Konzept passen.
Ich hab nur Probleme mit der Einbindung in mein Makro
Könntest Du mir sagen, wie ich Deine Msg-Box vor mein
Druck-Makro bekomme? Ich kriegs nicht hin. 
Das Makro wird über eine Schaltfläche gestartet.
Nach dem Druck auf die Schaltfläche soll Deine Msg-Box erscheinen.
Bei Druck auf „ja“ soll das untenstehende Makro weiterlaufen.
Bei „nein“ oder „abbrechen“ soll die Msg-Box ohne Aktion
wieder verschwinden.
Sub Drucken_alles()
Dim N As Integer
Dim Blaetter As Variant
Dim Zellen As Variant
Blaetter = Array „Tabelle1“, „Tabelle2“, …)
Zellen = Array(„I3“, „C11“, „C12“, …)
For N = 0 To UBound(Blaetter)
If Sheets(„Tabelle1“).Range(Zellen(N)) „“ Then
Worksheets(Blaetter(N)).PrintOut
End If
Next N
End Sub
Wäre toll, wenn jemand helfen könnte.
Gruß
Rolf
Holla.
Sub Drucken_alles()
Dim N As Integer
Dim Blaetter As Variant
Dim Zellen As Variant
If MsgBox(„blablablubb“ …) vbYes Then
Exit Sub
End If
Blaetter = Array „Tabelle1“, „Tabelle2“, …)
Zellen = Array(„I3“, „C11“, „C12“, …)
For N = 0 To UBound(Blaetter)
If Sheets(„Tabelle1“).Range(Zellen(N)) „“ Then
Worksheets(Blaetter(N)).PrintOut
End If
Next N
End Sub
Gruß Eillicht zu Vensre
Hallo Eillicht zu Vensre,
so war es gedacht. Klappt prima.
Danke für die schnelle Hilfe.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Nachgefragt
Hallo zusammen,
hab nochmal eine Frage:
Wenn ich eine Schaltfläche erzeuge und diesen
Code hinterlege:
Private Sub CommandButton1\_Click()
Dim iCounter As Integer
For iCounter = 16 To 64 Step 16
MsgBox "Symbole", iCounter
Next iCounter
End Sub
gibt er mir verschiedene Symole in einer Msg-Box aus.
Wie kann ich eines dieser Symbole
in meine Msg-Box, die jetzt so aussieht, einsetzen?
Sub Drucken\_alles()
Dim N As Integer
Dim Blaetter As Variant
Dim Zellen As Variant
Dim Meldung As VbMsgBoxResult
If MsgBox("Überflüssiges ausgeblendet?", vbYesNo) vbYes Then
Exit Sub
End If
Blaetter = Array("Tabelle 1", "Tabelle 2", .....)
Zellen = Array("I3", "C11", "C12", ....)
For N = 0 To UBound(Blaetter)
If Sheets("Kopfdaten").Range(Zellen(N)) "" Then
Worksheets(Blaetter(N)).PrintOut
End If
Next N
End Sub
Gruß und danke
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ahua.
Du kannst eine MsgBox mit verschiedenen, auch kombinierbaren, Parametern hinterlegen. Die reine Anweisung
MsgBox "Hallo Echo"
gibt die Meldung und eine OK-Schaltfläche aus, sonst nix. In VBA sind etliche Konstanten hinterlogen, mit denen Du das angeziegene Symbol, aber auch die Schaltflächen in der MsgBox steuern kannst. Zum Bleistift
MsgBox "Hallo Echo", vbInformation + VbYesNo
gibt die Meldung, das „Informations“- Symbol und die Schaltflächen „Ja“ und „Nein“;
MsgBox "Hallo Echo",vbAbortRetryIgnore +vbCritical + vbDefaultButton3
zeigt die Meldung, das „Fehler“- Symbol und die drei Schaltflächen „Abbrechen“, „Wiederholen“ und „Ignorieren“, wobei die dritte Schaltfläche („Ignorieren“) voreingestellt wird. Die Hilfe zur MsgBox ist aber eigentlich gar nicht schlecht …
Gruß Eillicht zu Vensre
Hallo Eillicht zu Vensre,
danke für Deine Ausführungen, jetzt wird mir etwas klarer,
was Excel macht.
Für den Moment habe ich die Zeile
Meldung = MsgBox(„Checkliste kontrolliert?“, vbYesNo)
durch
Meldung = MsgBox(„Checkliste kontrolliert?“, vbQuestion + vbYesNo)
ersetzt und habe jetzt mein Fragezeichen in der Msg-Box.
So klaptts.
Gruß und danke
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]