Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks entfernen

Forumthread: Hyperlinks entfernen

Hyperlinks entfernen
Ralf_P
Hallo,
ich wollte mit folgender Anweisung alle Hyperlinks aus dem Bereich entfernen. 
Sub HL_löschen()
Dim Bereich As Range
Set Bereich = Range("H14:R26")
For Each cell In Bereich
cell.Hyperlinks.Delete
Next cell
End Sub

Allerdings gehen auch alle Formatierungen wie Hintergrundfarbe, Rahmen, Zahlenformat verloren.
Was mache ich da falsch?
VG, Ralf
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hyperlinks entfernen
04.05.2010 13:26:15
Beverly
Hi Ralf,
mit einem Umweg über ein Hilfstabellenblatt könnte man es so machen: 
Private Sub entfernen_hyperlinks_Click()
Dim raQuelle As Range
Dim raTemp As Range
Dim hyLink As Hyperlink
For Each hyLink In Range("H14:R26").Hyperlinks
Set raTemp = Worksheets("HilfsTabelle").Range("A1") ' Hilfstabellenblatt
Set raQuelle = Cells(hyLink.Range.Row, hyLink.Range.Column)
raQuelle.Copy
raTemp.PasteSpecial xlPasteValues
raTemp.PasteSpecial xlPasteFormats
raQuelle.Hyperlinks.Delete
raTemp.Copy Destination:=raQuelle
With raQuelle.Font
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Next hyLink
Set raTemp = Nothing
Set raQuelle = Nothing
End Sub


Anzeige
Ein Hilfstabellenblat brauchts dazu nicht ...
04.05.2010 14:01:49
xr8k2
... aber ein Hilfsvariable.
Hallo Zusammen,
so würden auch alle formatierungen erhalten bleiben:
Sub HL_löschen()
Dim Zelle As Range, tmpZelle As Variant
Dim Bereich As Range
Set Bereich = Range("H14:R26")
For Each Zelle In Bereich
If Zelle.Hyperlinks.Count > 0 Then
tmpZelle = Zelle
Zelle = ""
Zelle = tmpZelle
End If
Next Zelle
End Sub
Gruß,
xr8k2
Anzeige
vielen Dank_owt
04.05.2010 15:59:34
Ralf_P
;
Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Excel entfernen

Schritt-für-Schritt-Anleitung

Um alle Hyperlinks in Excel zu entfernen, kannst du entweder VBA-Code verwenden oder die Standardfunktionen von Excel nutzen. Hier ist eine einfache Anleitung mit VBA:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul ein, indem du im Menü "Einfügen" auf "Modul" klickst.

  3. Kopiere den folgenden Code in das Modul:

    Sub HL_löschen()
   Dim Bereich As Range
   Set Bereich = Range("H14:R26")
   For Each cell In Bereich
       cell.Hyperlinks.Delete
   Next cell
End Sub

  4. Führe das Makro aus. Dies entfernt alle Hyperlinks aus dem angegebenen Bereich, allerdings gehen dabei auch Formatierungen verloren.

Um dies zu vermeiden und die Formatierungen beizubehalten, kannst du den folgenden Code verwenden:

Sub HL_löschen()
    Dim Zelle As Range, tmpZelle As Variant
    Dim Bereich As Range
    Set Bereich = Range("H14:R26")
    For Each Zelle In Bereich
        If Zelle.Hyperlinks.Count > 0 Then
            tmpZelle = Zelle
            Zelle = ""
            Zelle = tmpZelle
        End If
    Next Zelle
End Sub

Häufige Fehler und Lösungen

  • Fehler: Alle Formatierungen gehen verloren.

    • Lösung: Verwende den zweiten Codeabschnitt, der die Werte in eine temporäre Variable überträgt und die Formatierungen beibehält.

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du den richtigen Bereich angibst und dass der VBA-Editor korrekt geöffnet ist.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch manuell alle Hyperlinks entfernen:

  1. Markiere den gewünschten Bereich.
  2. Klicke mit der rechten Maustaste und wähle "Hyperlink entfernen".
  3. Für mehrere Zellen kannst du STRG gedrückt halten und die Zellen einzeln auswählen.

Praktische Beispiele

  • Beispiel 1: Wenn du alle Hyperlinks in einem Arbeitsblatt entfernen möchtest, kannst du den Befehl STRG + A verwenden, um alles auszuwählen, und dann mit der rechten Maustaste "Hyperlink entfernen" wählen.

  • Beispiel 2: Um alle Hyperlinks in einem bestimmten Bereich zu löschen, kannst du den oben genannten VBA-Code anpassen und den Bereich nach Bedarf ändern, z.B. Range("A1:B10").

Tipps für Profis

  • Nutze die Funktion "Suchen und Ersetzen" (STRG + H), um Text mit Hyperlinks zu entfernen, indem du das Suchfeld leer lässt und das Ersetzen auf den gewünschten Text setzt.
  • Um Hyperlinks in Excel zu deaktivieren, kannst du die Option "Hyperlink deaktivieren" in den Excel-Optionen verwenden, damit beim Erstellen von Links keine Hyperlinks mehr erzeugt werden.

FAQ: Häufige Fragen

1. Wie kann ich alle Hyperlinks in Excel 2016 entfernen?
Du kannst die oben genannten VBA-Methoden oder die manuelle Methode verwenden, die für alle Excel-Versionen funktioniert.

2. Gehen beim Entfernen der Hyperlinks alle Formatierungen verloren?
Ja, wenn du den einfachen VBA-Code verwendest. Um die Formatierungen zu erhalten, nutze die angepasste Version, die die Werte in eine temporäre Variable speichert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige