Hallo allerseits,
hab ein kleines Problem und hoffe auf eure Hilfe!
Ich habe Excel 2002 und will eine Tabelle ausdrucken bei der der Inhalt von bestimmten Zellen (z.B. A3, C5, D1, D2, D3) nicht auf dem Papier sichtbar sein soll. Aber auf dem Monitor brauche ich diese Zellen. Ein Script das eine einzelne Zelle ausblendet hab ich bereits gefunden:
-------------------------------------------------------
' Einzelne Zelle nicht drucken, in diesem Fall Zelle B1
Sub Zelle_nicht_Drucken()
Dim TMP As String
With Worksheets("Tabelle1")
.[B1].Activate ' Zelle B1 nicht drucken
TMP = ActiveCell.NumberFormat
ActiveCell.NumberFormat = ";;;"
ActiveSheet.PrintOut
ActiveCell.NumberFormat = TMP
End With
End Sub
-------------------------------------------------------
wenn ich aber mehrere Zellen ausblenden will komme ich hiermit nicht weiter.
Kann mir jemand dieses Script so verändern das es funzt?
Also ungefähr so:
With Worksheets("Tabelle1")
.[B1, B3, C5, C6, C7].Activate
TMP = ActiveCell.NumberFormat
ActiveCell.NumberFormat = ";;;"
ActiveSheet.PrintOut
ActiveCell.NumberFormat = TMP
End With
hab schon verschiedene Varianten probiert aber ohne programmierkentnisse komme ich leider nicht weiter!
schon mal tausend dank im voraus!
gruß,
toto |