Wie druckt man ein Arbeitsblatt mit Validierungskreisen in Excel aus?
In bestimmten Fällen markieren wir möglicherweise ungültige Daten mit Kreisen, um sie hervorzuheben. Wenn Sie das Arbeitsblatt jedoch zusammen mit diesen Validierungskreisen drucken möchten, erscheinen die Kreise nicht im Ausdruck. Sind Sie jemals auf dieses Problem in Excel gestoßen? Heute zeige ich Ihnen einige schnelle Tricks, um es zu lösen.
Drucken eines Arbeitsblatts mit Validierungskreisen durch Einfügen als Bild
Drucken eines Arbeitsblatts mit Validierungskreisen mithilfe von VBA-Code
Drucken eines Arbeitsblatts mit Validierungskreisen durch Einfügen als Bild
In Excel lassen sich Validierungskreise nicht direkt drucken. Sie können den Datenbereich mit den Validierungskreisen jedoch kopieren, als Bild einfügen und so problemlos ausdrucken.
1. Wählen Sie den Datenbereich aus, dessen Kreise Sie drucken möchten.
2. Drücken Sie auf Ihrer Tastatur die Tasten Strg + C, um den Inhalt zu kopieren. Wechseln Sie anschließend zu einem neuen Arbeitsblatt, klicken Sie auf eine Zelle, führen Sie einen Rechtsklick aus und wählen Sie Inhalte einfügen >Bild. Siehe Screenshot:
3. Ihre Auswahl wurde nun als Bild eingefügt. Beim Drucken des neuen Arbeitsblatts werden die Kreise erfolgreich mitgedruckt.
Drucken eines Arbeitsblatts mit Validierungskreisen mithilfe von VBA-Code
Falls Sie den Datenbereich nicht als Bild einfügen möchten, hilft Ihnen auch der folgende VBA-Code weiter.
1. Halten Sie nach dem Festlegen der Datenüberprüfung die Tasten Alt + F11 in Excel gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modulfenster ein.
VBA-Code: Rote Kreise um ungültige Daten einfügen
Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
If Not Rng.Validation.Value Then
Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
xShape.Fill.Visible = msoFalse
xShape.Line.ForeColor.SchemeColor = 10
xShape.Line.Weight = 1.25
xCount = xCount + 1
xShape.Name = "InvalidData_" & xCount
End If
Next
Exit Sub
End Sub
3. Drücken Sie nun die Taste F5, um diesen Code auszuführen. Anschließend werden die ungültigen Daten mit roten Ovalen umkreist – siehe Screenshot:
4. Wenn Sie dieses Arbeitsblatt drucken, das die roten Kreise enthält, werden diese ebenfalls mitgedruckt.
Hinweis:
Mithilfe dieses VBA-Codes werden die Kreise nicht durch die Excel-Funktion Validierungskreise löschen entfernt. Wenn Sie die Kreise dennoch löschen möchten, verwenden Sie bitte den folgenden Code.
VBA-Code: Validierungskreise im Arbeitsblatt entfernen
Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
If xShape.Name Like "InvalidData_*" Then
xShape.Delete
End If
Next
End Sub
Verwandter Artikel:
Wie markiert man ungültige Daten in Excel mit Kreisen?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins