Moin Leute,
ich hab da ein kleines Problem. Ich will, dass wenn in einer bestimmten Zelle das Wort "nichts" steht, einige Zellen nicht mit gedruckt werden. Irgendwer ne Ahnung wie man das lösen könnte?
LG Baeda
Moin Leute,
ich hab da ein kleines Problem. Ich will, dass wenn in einer bestimmten Zelle das Wort "nichts" steht, einige Zellen nicht mit gedruckt werden. Irgendwer ne Ahnung wie man das lösen könnte?
LG Baeda
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then 'Tabellennamen anpassen !!!
If Range("A1").Text = "nichts" Then 'Zelle anpassen !!!
Range("B1:B5").Font.Color = vbWhite 'Bereich anpassen !!! (Schriftfarbe wird auf weiß gesetzt)
Application.EnableEvents = False 'Aufruf von Event-Makros ausschalten
Call ActiveSheet.PrintOut 'Drucken
Application.EnableEvents = True 'Aufruf von Event-Makros einschalten
Range("B1:B5").Font.Color = vbBlack 'Bereich anpassen !!! (Schriftfarbe wird auf schwarz gesetzt)
Cancel = True
End If
End If
End Sub
Gruß