Sub Fred()
Dim DruckZelle As Range, druck As String
DIM col As String, Row As String
Set DruckZelle = Application.InputBox(Prompt:="Choisisez une celulle:", Type:=8)
druck = Range("A1", DruckZelle).Address
ActiveSheet.Pagesetup.PrintArea = druck
'Range("A1", ActiveCell.SpecialCells(xlLastCell).Offset(-1, -1)).Select
'ActiveSheet.Pagesetup.PrintArea = Selection.Address
Range("A3").Select
col = DruckZelle.Column + 1
Row = DruckZelle.Rows + 1
MsgBox (col & vbLf & Row)
Columns(col).select
With Selection.Interior
.ColorIndex = 15
'.Hidden = True
End With
With Rows(druck)
.Interior.ColorIndex = 15
'.Hidden = True
End With
End Sub