Drucken bei Bedingungen in Excel
Schritt-für-Schritt-Anleitung
Um in Excel beim Drucken eine Überprüfung auf fehlerhafte Eingaben durchzuführen, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Anleitung:
- Öffne Deine Excel-Datei und drücke
ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
- Klicke im Projekt-Explorer auf "DieseArbeitsmappe".
-
Füge den folgenden Code in das Codefenster ein:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const ChkBlatt As String = "U 1000" ' Tabellenblattname anpassen
Const ChkBereich As String = "CG7:CG52" ' Zellbereich für WAHR/FALSCH-Prüfung
Dim chk As Boolean
Dim PruefZelle As Range
Dim FehlerZeilen As String
Dim Warnung
With ThisWorkbook.Worksheets(ChkBlatt)
chk = WorksheetFunction.And(.Range(ChkBereich))
If chk = False Then
For Each PruefZelle In .Range(ChkBereich)
If Not IsEmpty(PruefZelle) And PruefZelle.Value = "Falsch" Then
FehlerZeilen = FehlerZeilen & PruefZelle.Row & vbLf
End If
Next
Warnung = MsgBox("Eingabefehler in Blatt [" & ChkBlatt & "] in Zeile(n):" & _
vbLf & vbLf & FehlerZeilen & vbLf & vbLf & "Trotzdem drucken?", _
vbOKCancel, "Fehler - Drucken?")
If Warnung = vbCancel Then Cancel = True
End If
End With
End Sub
- Passe den Tabellenblattnamen und den Zellbereich im Code an Deine Bedürfnisse an.
- Schließe den VBA-Editor und teste die Druckfunktion in Excel.
Häufige Fehler und Lösungen
- Fehlerhafte Zeilen werden nicht angezeigt: Stelle sicher, dass der Zellbereich korrekt definiert ist und die Zellen tatsächlich „Falsch“ enthalten.
- Makro funktioniert nicht: Überprüfe, ob die Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu
Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die entsprechenden Optionen.
- Message Box erscheint nicht: Stelle sicher, dass das Makro im richtigen Modul gespeichert ist (in "DieseArbeitsmappe").
Alternative Methoden
Falls Du kein VBA verwenden möchtest, kannst Du auch folgende Methoden in Betracht ziehen:
- Bedingte Formatierung: Markiere fehlerhafte Daten durch bedingte Formatierung. Diese Methode ist jedoch nicht so automatisiert wie ein VBA-Skript.
- Datenüberprüfung: Verwende die Datenüberprüfungsfunktion, um sicherzustellen, dass nur gültige Daten eingegeben werden, bevor Du druckst.
Praktische Beispiele
Hier ist ein Beispiel, wie Du das Makro anpassen kannst, wenn Du zusätzliche Bedingungen prüfen möchtest:
If PruefZelle.Value = "Falsch" Or PruefZelle.Value = "" Then
Dieses Beispiel zeigt, wie Du nicht nur auf "Falsch", sondern auch auf leere Zellen prüfen kannst.
Tipps für Profis
- Fehlerprotokollierung: Du kannst das Makro erweitern, um die Fehler in einer separaten Tabelle zu protokollieren, was die Nachverfolgung der Eingabefehler erleichtert.
- Benutzerdefinierte Fehlermeldungen: Personalisiere die Messages Box, um spezifische Hinweise zu geben, welche Eingaben erforderlich sind.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, wenn ich mehr Zeilen überprüfen möchte?
Erweitere einfach den Zellbereich in der Const ChkBereich Zeile, um die zusätzlichen Zeilen einzuschließen.
2. Funktioniert das Makro auch in Excel Online?
Leider wird VBA in Excel Online nicht unterstützt. Du musst die Desktop-Version verwenden.
3. Kann ich das Makro für andere Tabellenblätter verwenden?
Ja, passe einfach den Namen des Tabellenblatts und den Zellbereich im Code an.