Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
vielen Dank_owt
04.05.2010 15:59:34
Ralf_P

299 Forumthreads zu ähnlichen Themen

Hyperlink Formel auf Gültigkeit prüfen
zapultin

Hallo Forum!
Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
15.08.2008 15:49:14
Thread-ID: 1002228
3 Beiträge
Anzeige
Hyperlinks - Korrektur ?
Petra

Hallo Excelianer(innen)
Ich prüfe (per VBA) eine große Liste auf Fehlereintragungen, bei Auffinden eines solchen generiere ich eine Fehlerliste (Hyperlinks auf die fehlerhafte Zelle). Klappt alles wunderbar.
Jetzt mein Problem: es kommt vor, das vom Anwender eine Zeile (auf die ein Hyp...
19.08.2008 13:02:24
Thread-ID: 1002903
4 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Hyperlinks aktualisieren
Lars

Hallo zusammen,
ein Kollege von mir hat eine Excel Datei mit Hyperlinks. Die Hyperlinks liegen auf einem anderen Netzlaufwerk als die Excel Datei. Wenn der Server umbenannt wird, sind somit alle Hyperlinks ungültig. Gibt es eine schnelle Möglichkeit, alle in der Excel-Datei vorhandenen Link...
29.08.2008 14:38:00
Thread-ID: 1005841
3 Beiträge
ThisWorkbook.FollowHyperlink Address - Makros akt.
Peter

Guten Abend
Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
Wenn ja, wie?
Danke für jede Hilfe.
Gruss, Peter
If Dir(strPath & "\" & strFile) "" Then
Cancel = True<...
02.09.2008 22:09:05
Thread-ID: 1006962
3 Beiträge
Hyperlinks
Bernd

Hallo, ich möchte folgendes Problem lösen.
In einer Formularerstellung mit Excel wird ein Formular ausgefüllt.
Danach wird dieses Formular in einer seperaten Datei gespeichert und Daten aus dem Formular werden in einem anderen Worksheet gespeichert.
Der Dateiname und Speicherort ist...
15.09.2008 08:22:03
Thread-ID: 1009649
6 Beiträge
Hyperlink auf Server
andreas

Hallo zusammen,
folgendes Problem, ich füge in einer Tabelle einen Hyperlink mit Verweis auf einen Ordner auf dem Server.
Dieser funktioniert solange die Tabelle nicht abgespeichert ist. Nach dem Abspeichern funktioniert der Hyperlink nicht mehr weil die Adresse vom System umgeschrieben...
23.09.2008 11:56:31
Thread-ID: 1011680
3 Beiträge
Hyperlink freigeben
chrisss

Hallo
Ich habe eine Excel-Datei 1, die Daten aus einer anderen Excel-Datei 2 bezieht. Wenn ich nun die Daten in Datei 1 aktualisieren möchte, geht immer eine Sicherheitswarnung auf, "Die automatische Aktualisierung von Hyperlinks wurde deaktiviert". Über Optionen kann ich dann den "Inhalt...
24.09.2008 12:59:34
Thread-ID: 1012043
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
3
2
2
2
2
5
2
1
1
2
5
2
9
4
5
3
3
6
4
7
9
10
2