msgbox Ausgabe
05.03.2021 10:27:26
Jürgen
Ich habe folgende Frage bzgl der Ausgabe bei msgBox.
Habe es geschafft, dass leere Zellen abgefragt werden und somit das Drucken (wenn nicht alles ausgefüllt ist) verhindert wird. Jetzt würde ich gerne Anzeigen in der msgBox, welche Zelle leer ist. Macht es auch nur eben mit zb. "Zelle [ E6} wurde noch.....". Gibt es da nun auch die Möglichkeit die Zellen zu benennen? Habe es schon mit "Namen definieren" versucht, bekomme aber es leider nicht in die Ausgabe der msgBox, was genau fehlt.
So sieht es im Moment aus:
Sub Druckenwennnichtleer()
'Code für das Modul: DieseArbeitsmappe
Dim Zelle As Range
For Each Zelle In Range("G4:G4,D4:D4,E6:E6,A9:C9,C7:C7,F7:F7,E9:G9,B16:B16,D18:D18")
If Zelle.Value = "" Then
MsgBox "Zelle [ " & Zelle.Address(0, 0) & " ] wurde noch nicht ausgefüllt!" & vbCr _
& "Es kann nicht gedruckt werden", 48
Cancel = True
Exit Sub
End If
Next
Range("A1:G19").Select
Selection.Copy
Range("A24").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:G42").Select
Range("G42").Activate
Selection.PrintOut Copies:=1, Collate:=True
Range("A25:G25").Select
ActiveWindow.SmallScroll Down:=12
Range("A25:G41").Select
Selection.ClearContents
End Sub
Danke fürs Durchlesen
lg Bauli