Office: Popup

Guten abend,
Ich habe in Zelle L28 bis L51 eine Formel gesetzt dass wenn in anderen Bereicht etwas fehlt dann kommt die Meldung : Steuerkennzeichen fehlt!

Jetzt möchte ich in meinem Drucken-Button die Funktion einfügen, dass BEVOR gedruckt wird, geprüft wird dass keine Meldung in L28 bis L51 vorhanden ist.
Wie funktioniert das ?
vielen Dank

 

Hallo!

Ich kenne weder deine Formel(n) in L28:L51, noch kenne ich den Code für deinen "Drucken-Button"...
Aber du könntest z.B. so den Bereich prüfen lassen:
=WENN(ZÄHLENWENN(L28:L51;"Steuerkennzeichen fehlt!");"Hier stimmt was nicht";"Alles OK")

Im Code deines Buttons kannst du dann diese Zelle abfragen:

Code:

If Range("X99") = "Alles OK" Then
'Dein Druck-Code
End If

Mit WorksheetFunction.CountIf lässt sich das natürlich auch direkt im Code abfragen...

 

zwischen L28:L51 kommt die Meldung: " ACHTUNG Steuerkennzeichen" wenn im Bereich G28:G51 etwas falsches steht, das habe ich. Ich möchte nur dass mein Druck-Makro VOR dem drucken prüft ob wirklich keine Meldung bezüglich des Steuerkennzeichens vorhanden ist.
Hier mein Druck- Makro.

Code:

Sub druckenSpeichern()

   
   
   '#############################################################################
   'Rechnungsnummer wird hochgezählt und das Jahresdatum ändert sich automatisch!
   '#############################################################################
ActiveSheet.Unprotect
    Dim RechNr As Long
Dim Jahr As Integer
    Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
    RechNr = ActiveWorkbook.BuiltinDocumentProperties(5)
        If Jahr <> Year(Date) Then
        RechNr = 0
        Jahr = Year(Date)
        ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr
    End If
    RechNr = RechNr + 1
    ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr
    Range("C23") = Format(RechNr, "0000") & "-" & Jahr
    
    
    '##############################################################################
    'Dieses Makro ist für das drucken zuständig und fragt auch nach der Druckanzahl
    '##############################################################################
    
    If Range("X99") = "Es fehlen bei einer oder mehreren Summen die Steuerkennzeichen" Then
'Dein Druck-Code
End If

    Application.ScreenUpdating = False
    Datum = Cells(25, 3).Value
    Cells(25, 3).Value = Datum
    Dim anzahl As Double
    Rows("11:11").Select
    Selection.EntireRow.Hidden = True
    anzahl = InputBox(" Anzahl Ausdrucke")
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, _
        Copies:=anzahl
    '########################################################
    'Speichern einer Kopie der aktuell bearbeiteten Rechnung.
    'Gespeichert wird nach Rechnungsnummer
    '########################################################
    
    Dim Datei As String
Const Pfad As String = "C:\rechnungen\"
Datei = Range("C23") & ".xlsx"
ThisWorkbook.Worksheets("Rechnung").Copy
ActiveWorkbook.SaveAs Pfad & Datei
ActiveWorkbook.Close


    '#######################################################
    'Rechnungsblatt säubern und mit neuer Rechnung beginnen!
    '#######################################################

    ActiveWindow.SmallScroll Down:=12
    Range("A30:E51").Select
    Selection.ClearContents
    Range("F28:J51").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-21
    Range("R1").Select
    Selection.ClearContents
  ThisWorkbook.Save
  ActiveSheet.Protect

End Sub




Es wäre schön, wenn Du mal darüber schauen kannst, da ich noch ein problem mit einer Fehlermeldung habe. 

 

Hallo!

Sach ich doch...

Code:

If Application.WorksheetFunction.CountIf(Range("L28:L58"), "Achtung Steuerkennzeichen") = 0 Then
'blablablaCode
End If