Tabellenkalkulation

Hyperlink nicht drucken

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Servus alle miteinand, kurze Frage eines Laien. Ich habe für eine bessere Navigation in einem großen Excel-Sheet mehrere Hyperlinks gesetzt. Diese dienen wie gesagt nur der Navigation. Logischerweise, aber auch leider werden diese mitgedruckt. Kann ich dies verhindern? Die Hyperlinks sollen in PC Ansicht vorhanden bleiben, aber im ausgedruckten Zustand nicht mehr dasein!! Geht das? Für mich wäre nur eine Lösung ohne VBA sinnvoll!! Vielen Dank im Voraus Jeremy

Antwort 1 von schnallgonz

Salve,
falls die Links nicht überall in der Tabelle verteilt sind, sondern z.B. in einer Spalte stehen, markiere den zu druckenden Bereich und definiere diesen als Druckbereich (Menü Datei, Druckbereich festlegen...).

Falls doch verteilt, muss doch eine VBA-Lösung her, z.B.
die Links vor dem Druck in weißer Schrift formatieren.

mfg
schnallgonz

Antwort 2 von JeremyMcNeill

Danke Schnallgonz,

für die Hilfe.
Sind leider verteilt und die Weißfärbung ist aufgrund der Größe zu umständlich.
Aber herzlichen Dank für deine Hilfe und Dir noch einen schönen Fußballabend.

Jeremy

Antwort 3 von Beverly

Hi Jeremy,

vielleicht hilft dir dieser Code weiter

Sub drucken_ohne_hyperlinks()
    Dim hyZelle As Hyperlink
    For Each hyZelle In ActiveSheet.UsedRange.Hyperlinks
        hyZelle.Range.Font.ColorIndex = 2
    Next hyZelle
    ActiveSheet.PrintOut
    For Each hyZelle In ActiveSheet.UsedRange.Hyperlinks
        hyZelle.Range.Font.ColorIndex = 5
        hyZelle.Range.Font.Underline = True
    Next hyZelle
End Sub

Bis später,
Karin

Antwort 4 von JeremyMcNeill

Danke Karin für die Hilfe,

es funktioniert, auch wenn ich es gerne ohne VBA gelöst hätte,
vielen Dank

Jeremy