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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen