VBA MsgBox - Ausgabe verschiedener Werte

Hallo zusammen,
ich habe in einer Excel Tabelle 5 Formularsteuerelemente (Kontrollkästchen) eingefügt und diese natürlich auf unterschiedliche Zellbezüge von N1 bis N5 gesetzt.
Je nach Auswahl der Kontrollkästchen / abhaken habe ich in N1 bis N5 natürlich nun ein "Wahr oder Falsch" stehen.
Wie kann ich nun meine folgende VBA Druckfunktion um eine MsgBox Ausgabe erweitern, dass er mir diese "Checkliste" prüft, ob alles abgehakt ist - und wenn nicht alles abgehakt ist die fehlenden Punkte in einer MsgBox ausgibt und dann auch nachfragt, ob der Druck trotzdem durchgeführt werden soll.
Geht das? Wenn ja wie?
With ActiveSheet.PageSetup
.Zoom = False
.PrintArea = "$A$1:$H$84"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AusdruckWenn() Dim myRng As Range Dim bDruckeWirklich As Boolean With ActiveSheet bDruckeWirklich = True For Each myRng In Range("N1:N5") If Not myRng Then If MsgBox("In " & myRng.Address & " steht noch FALSCH! Trotzdem drucken?", vbYesNo) _ = 6 Then bDruckeWirklich = True Else bDruckeWirklich = False End If End If Next myRng If bDruckeWirklich Then With .PageSetup .Zoom = False .PrintArea = "$A$1:$H$84" .Orientation = xlPortrait .PaperSize = xlPaperA4 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.Dialogs(xlDialogPrint).Show .PageSetup.PrintArea = False End If End With End Sub

Hi Dominic,
ich halte nichts davon, Namen von Elementen aus Zellpositionen auszulesen - das Element wird fix mal verschoben, und nu?
In dieser Zeile
If MsgBox("In " & myRng.Address & " steht noch [...]
entsteht die MsgBox, wobei myRng.Address die Zelladresse ist. Schreib die Bezeichner zB in Spalte Y der selben Datei und ändere die MsgBox entsprechend:
If MsgBox("In " & .Range("Y"& myRng.Row) & " steht noch [...]
und blende dann die Y-Spalte aus.
Bei der Gelegenheit noch die Feinheit, dass nur eine MsgBox kommt auch wenn viele Einträge fehlen. Der neue Code wäre dann:

Sub AusdruckWenn()
Dim myRng As Range
Dim bDruckeWirklich As Boolean
Dim bFrage As Boolean
Dim sText As String
With ActiveSheet
bFrage = False
bDruckeWirklich = True
For Each myRng In Range("N1:N5")
If Not myRng Then
sText = sText & .Range("Y" & myRng.Row) & " "
bFrage = True
End If
Next myRng
If bFrage Then
If MsgBox("In " & sText & "steht noch FALSCH! Trotzdem drucken?", vbYesNo) = 6 Then
Else
bDruckeWirklich = False
End If
End If
If bDruckeWirklich Then
With .PageSetup
.Zoom = False
.PrintArea = "$A$1:$H$84"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
.PageSetup.PrintArea = False
End If
End With
End Sub

Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

VBA MsgBox - Ausgabe verschiedener Werte

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

113 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA MsgBox - Ausgabe verschiedener Werte

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

113 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread