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

Hyperlink setzen

Forumthread: Hyperlink setzen

Hyperlink setzen
13.01.2009 15:13:00
Artur
Hallo User,
ich muß von mehreren hundert Zellen Hyperlinks setzen. Das heißt von Blatt A C3 auf Blatt B C3, von Blatt A C4 auf Blatt B C4 usw. Wie gesagt handet es sich um mehrere huindert Zellen die so verlinkt werden müßten. Besteht mittels VBA eine Möglichkeit dies zu automatisieren oder muß ich alle Zellen händlings einpflegen. Für Eure Hilfe wäre ich dankbar.
mfg. Artur
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink setzen
13.01.2009 15:19:00
Wenderhold
hi
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Tabelle1!C2", TextToDisplay:="Tabelle1!C2"
damit wird in tab2 ein hypi auf tab1 gesetzt
greeze
e
AW: Hyperlink setzen
13.01.2009 15:33:00
Artur
Hallo ,
vielen dank für Deine promte Hilfe, für eine einzelene Zelle klappt das auch. Kann das ganze nicht auch dynamisch, d. h. automatrisch alle gefüllten Zellen z. B. C3:c365 mit hypi gesetzt werden?
Gruß Artur
Anzeige
AW: Hyperlink setzen
13.01.2009 15:49:17
Tino
Hallo,
vieleicht geht es so.

Sub Hyperlink_Formel()
Dim Bereich As Range
Set Bereich = Range("C3:C365")
Bereich.FormulaR1C1 = "=HYPERLINK(""#Tabelle2!C"" & ROW(),""Tabelle2!C"" & ROW())"
End Sub


Es werden Formel erstellt, Hyperlink von Tabelle1 nach Tabelle2
Gruß Tino

Anzeige
AW: Hyperlink setzen
13.01.2009 16:01:00
Artur
Hallo Timo,
danke für Deine Hilfe, genau das habe ich gesucht.
Gruß Artur
Tino und nicht Timo oT.
13.01.2009 16:05:00
Tino
noch eine Möglichkeit
13.01.2009 16:04:00
Tino
Hallo,
ist bei Deiner zweiten Tabelle der Name nicht bekannt bzw. ändert dieser sich und
sind im Namen eventuell Leerzeichen vorhanden, kann man es auch so lösen.

Sub Hyperlink_Formel()
Dim strTabName As String
strTabName = Sheets(2).Name
Range("C3:C365").FormulaR1C1 = _
"=HYPERLINK(""#'" & strTabName & "'!C"" & ROW(),""" & strTabName & "!C"" & ROW())"
End Sub


Gruß Tino

Anzeige
AW: noch eine Möglichkeit
13.01.2009 16:27:22
Artur
Hallo Tino,
entschuldige bitte meinen Schreibfehler.
Gruß Artur
AW: Hyperlink setzen
13.01.2009 16:07:00
Artur
Hallo Timo,
kann man eigentlich den eingetragenen Zellenbezeichung ( jeweils das aktuelle Eintragungsdatum ) beihalten. In Deinem Beispiel wird der eingetragene Zellenname durch Tabelle2! ersetzt
Gruß Artur
AW: Hyperlink setzen
13.01.2009 16:41:48
Tino
Hallo,
meinst Du so, dass der Text der in dieser Zelle steht angezeigt werden soll?
Sub Hyperlink_Formel()
Dim strTabName As String
Dim MyArea
Dim a As Long
strTabName = Sheets(2).Name

MyArea = Range("C3:C365")


For a = 1 To Ubound(MyArea)
 If MyArea(a, 1) <> "" Then
    MyArea(a, 1) = _
    "=HYPERLINK(""#'" & strTabName & "'!C"" & ROW(),""" & MyArea(a, 1) & """)"
 End If
Next a

Range("C3:C365").FormulaR1C1 = MyArea


End Sub


Gruß Tino

Anzeige
AW: Hyperlink setzen
13.01.2009 17:55:38
Artur
Hallo Tino,
ich bekomme einen Laufzeitfehler in der letzten Zeile weil MyArea einen Index ausserhalb des gültigen Bereiches hat.
Gruß Artur
AW: Hyperlink setzen
13.01.2009 18:21:08
Tino
Hallo,
eventuell kommt die XP Version mit der der Area nicht zurecht, unter xl2003 und xl2007 funktioniert es.
Teste mal diese Version.

Option Explicit
Sub Hyperlink_Formel()
Dim strTabName As String
Dim MyArea
Dim a As Long
Dim Bereich As Range
Dim myCalc As Integer
strTabName = Sheets(2).Name
With Application
myCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
MyArea = Range("C3:C365")
For a = 1 To UBound(MyArea)
If MyArea(a, 1)  "" Then
MyArea(a, 1) = _
"=HYPERLINK(""#'" & strTabName & "'!C"" & ROW(),""" & MyArea(a, 1) & """)"
End If
Next a
a = 0
For Each Bereich In Range("C3:C365")
a = a + 1
If MyArea(a, 1)  "" Then
Bereich.FormulaR1C1 = MyArea(a, 1)
End If
Next Bereich
.Calculation = myCalc
.ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
AW: Hyperlink setzen
13.01.2009 18:36:00
Artur
Hallo Tino,
vielen Dank für Deine Bemühungen. Dein Code funktioniert genau so wie gewünscht. Nochmals vielen Dank.
mfg. Artur
;

Forumthreads zu verwandten 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
Hyperlink Funktion mit VBA auswerten
zapultin

Hallo!
Ich habe die Hyperlinkfunktion in einem Excel Blatt verwendet. Nun will ich per VBA ermitteln, ob der Hyperlink funktioniert.
Komischerweise gibt der Zugriff RANGE.HYPERLINKS auf die Zelle wo ich die Hyperlinkfunktion verwendet keinen Hyperlink!
Nur wenn ich in der Zelle per...
16.08.2008 11:17:00
Thread-ID: 1002331
2 Beiträge
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
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
Anzeige
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
Namen(-steil) finden und zuordnen /var. Hyperlink
Juppie

Hallo liebe Experten,
ich hätte nicht gedacht, dass ich daran verzweifle - auch habe ich keine Lösung googeln können, deshalb hier meine Frage.
Es existiert eine Tabelle mit 3 Spalten. Die erste Spalte A ist der Ordner (Nr 1 bis n), wo Rechnungen nach dem Namen abgelegt werden sollen. S...
03.10.2008 16:13:21
Thread-ID: 1014055
2 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Hilfe: Hyperlink auf email setzen?
Mike

Hi Leute,
Mein Problem bzw. Frage ist folgende:
Ich möchte in einer Exceltabelle einen Hyperlink setzen,
mit dem automatisch das Excelfile, in dem der Link sitzt,
an eine bestimmte email-Adresse versandt werden soll.
(bzw. durch den sich Outlook öffnet und der Empfänger...
21.10.2008 10:14:00
Thread-ID: 1017882
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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