habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 12)) Or Cells(iRow, 12).Value = 0)
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
LG Gesa