VBA-Beispiel 098
mail schreiben
mail schreiben

Exceltabelle ohne Hyperlinks ausdrucken

Aktive Tabelle ohne Hyperlinks drucken.
Sub Hyperlinks_entfernen_Tabelle_drucken()
Dim Link As Hyperlink

'Tabelle in neue Datei kopieren
ActiveSheet.Copy

'alle Hyperlinks löschen
For Each Link In ActiveSheet.Hyperlinks
  Link.Range.Clear
Next Link

'drucken
ActiveSheet.PrintOut

'neue Datei schließen ohne Speichern
ActiveWorkbook.Close SaveChanges:=False

End Sub

Download:   vba098.zip