AW: nur grüne Farbe drucken
01.03.2014 06:25:38
fcs
Hallo Daniel,
grundsätzlich gibt es folgende Möglichkeiten:
1. Du richtest den Autofilter für die Spalte "Anzahl" ein.
Bevor du die Bestellung an den Händler schickst blendest du per Filter alle Zeilen aus, die Leer sind oder den Wert 0 enthalten.
Diese Lösung hat den Charme, dass man in einem Block die Daten ohne die ausgeblendeten Zeilen in ein anderes Excelblatt kopieren kann, z.B. für die Auftragsbearbeitung, Rechnung, etc.
2. Vor dem Drucken/der Seitenvorschau werden per Makro die entsprechenden Zeilen ausgeblenden.
Dies setzt natürlich vorraus, das der Händler die Ausführung von Makros zuläßt.
Gruß
Franz
'Code unter "DieseArbeitsmappe" der Datei mit dem Tabellenblatt einfügen
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet, Zelle As Range, Zeile As Long
Set wks = ActiveSheet
Select Case wks.Name
Case "TabelleABC", "TabelleXYZ"
'in diesen Blättern vor dem Drucken keine Zeilen ausblenden - Namen ggf.anpassen/ergänzen
Case Else
'ab Zeile 9 im Druckbereich die Zeilen ausblenden wenn Wert in Spalte A = 0
With wks
With .Range("Druckbereich")
Zeile = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
With .Range(.Cells(9, 1), .Cells(Zeile, 1))
.EntireRow.Hidden = True
For Each Zelle In .Cells
If Zelle.Value 0 Then Zelle.EntireRow.Hidden = False
Next
End With
Application.ScreenUpdating = True
End With
End Select
End Sub
'Code in einem allgemeinen Modul - z.B. in deiner persönlichen Makro-Arbeitsmappe einfügen
Sub AlleZeilenEinblenden()
'alle Zeilen des aktiven Tabellenblatts einblenden
ActiveSheet.Rows.Hidden = False
End Sub