Gruppe
Druck
Problem
Wie kann ich einen Zellbereich vom Druck ausschließen? Der auszuschließende Bereich soll über einen Dialog festgelegt werden.
StandardModule: basMain
Sub BereichFestlegen()
Const csMsg As String = "Auszuschließenden Bereich selektieren:"
Dim rng As Range
Dim sTxt As String
Set rng = Application.InputBox(prompt:=csMsg, Type:=8)
sTxt = rng.NumberFormat
rng.NumberFormat = ";;;"
ActiveSheet.Range("A1:A50").PrintPreview
rng.NumberFormat = sTxt
End Sub