Excel: 'unsichtbarer' Objektrahmen?

Hallo Experten,

es gibt ja die Möglichkeit, um mehrere Zellen einen Rahmen zu ziehen, mit unterschiedlichen Strichstärken, Farbe oder nicht, usw.

Gibt es auch die Möglichkeit, einen Rahmen (eventuell um ein ganzes Blatt) zu machen, den man im Bildschirm nicht sieht, der aber gleichwohl gedruckt und auch in der Seitenansicht gezeigt wird?

Fragende Grüße
Pat

Gibt es auch die Möglichkeit, einen Rahmen (eventuell um ein
ganzes Blatt) zu machen, den man im Bildschirm nicht sieht,
der aber gleichwohl gedruckt und auch in der Seitenansicht
gezeigt wird?

Hi Pat,

ja das geht mit Vba.

Der genaue Vba-Code richtet sich danach was genau du willst, dazu fehlen noch Informationen.

Gruß
Reinhard

Hi Pat,

Hallo Reinhard,

ja das geht mit Vba.

prima

Der genaue Vba-Code richtet sich danach was genau du willst,
dazu fehlen noch Informationen.

ich möchte um das Rechteck von B7 bis H24 einen schwarzen Rahmen mittlerer Strichstärke (2,0 pt) ziehen, der nur auf dem gedruckten Blatt und in der Seitenansicht zu sehen ist, nicht auf dem Tabellenblatt in der Excel-Datei selbst.

Gruß
Reinhard

Gruß
Pat

Hallo Pat,

ja das geht mit Vba.

prima

freu dich nicht zu früh, ich hab ja noch gar nicht gesagt wieviel Knete ich pro Vba-Codezeile nehme :smile:)

Keine Panik, war ein Scherz *gg*

ich möchte um das Rechteck von B7 bis H24 einen schwarzen
Rahmen mittlerer Strichstärke (2,0 pt) ziehen, der nur auf dem
gedruckten Blatt und in der Seitenansicht zu sehen ist, nicht
auf dem Tabellenblatt in der Excel-Datei selbst.

Muß das mit der der Seitenansicht sein? Wen störts wenn man da das so sieht wie im Blatt?

Hintergrund ist, wenn du dein Blatt druckst so wird vollautomatisch, sofern vorhanden, ein Makro aufgerufen wo ich dann reinschreiben kann was geschehen soll beim Druck.
Also Rahmen zeichnen oder nicht oder sonstwas.

Wenn du aber nicht auf Druck sondern auf Seitenansicht klickst, so kriegt Vba das nicht mit, es wird also kein Makro aufgerufen.

Diese Problematik ist auch mit Vba zu lösen, aber das ist aufwendiger, deshalb meine Nachfrage ob das mit der Seitenansicht sein muß.

Gruß
Reinhard

Hallo Reinhard,

Wenn du aber nicht auf Druck sondern auf Seitenansicht
klickst, so kriegt Vba das nicht mit, es wird also kein Makro
aufgerufen.

Diese Problematik ist auch mit Vba zu lösen, aber das ist
aufwendiger, deshalb meine Nachfrage ob das mit der
Seitenansicht sein muß.

überredet! Vergiss die Seitenansicht!

Gruß
Pat

überredet! Vergiss die Seitenansicht!

Hallo Pat,

Alt+F11, Doppelklick auf „Diese Arbeitsmappe“, ersten Code reinkopieren.
Einfügen–Modul, die beiden anderen Codes reinkopieren. Editor schließen.

Private Sub Workbook\_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Call Mit
ActiveSheet.PrintOut
Call Ohne
Application.EnableEvents = True
End Sub
'
Sub Mit()
Dim N As Byte
For N = 7 To 10
 With Range("C7:H24").Borders(N)
 .LineStyle = xlContinuous
 .Weight = xlMedium
 .ColorIndex = xlAutomatic
 End With
Next N
End Sub
'
Sub Ohne()
Dim N As Byte
For N = 7 To 10
 With Range("C7:H24").Borders(N)
 .LineStyle = xlNone
 End With
Next N
End Sub

Gruß
Reinhard

1 „Gefällt mir“

Hallo Reinhard,

herzlichen Dank für die Mühe, ich werd’s am Wochenende ausprobieren!

Gruß
Pat