Druckvorschau nicht zusammenhängende Spa
31.12.2020 07:28:22
Peter
ich habe ein Makro zur Druckvorschau mit Filter wenn SpalteA >0:
Sub Drucken4() 'makro zum Drucken inkl. Druckbereichsanpassung
Application.ScreenUpdating = False
Dim intWert As Integer, intSpalte As Integer, intZeile As Integer, intAnz As Integer
Dim loLetzte As Long, raDruckbereich As Range
With ActiveWorkbook.Worksheets("Berechnungstabelle")
loLetzte = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
intSpalte = 1 '8
intZeile = 1
intAnz = WorksheetFunction.CountA(.Range("A2:A" & loLetzte))
Zae2 = 0
For Zae1 = 1 To intAnz
intWert = .Cells(intZeile + Zae1, intSpalte)
If intWert > 0 Then
Set raDruckbereich = .Range(Cells(intZeile, 1), Cells(intZeile + Zae1, 8))
Zae2 = Zae2 + 1
End If
Next Zae1
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = raDruckbereich.Address
.PrintPreview
End With
Application.ScreenUpdating = True
Set raDruckbereich = Nothing
End Sub
Nun benötige ich aber dass nur bestimmte Spalten angezeigt werden:
anstatt " Set raDruckbereich = .Range(Cells(intZeile, 1), Cells(intZeile + Zae1, 8))"
benötige ich die Spalten A und B, sowie die Spalten F und N.
Könnt ihr mir bitte hierbei helfen.
Besten Dank
Gruss
Peter