Office: Hyperlinks mit VBA Makro erstellen

Hallo erstmal, ich habe folgendes Problem, ich kenne mich noch nicht so gut mit VBA aus und möchte Hyperlinks mit einen VBA Makro erstellen.

Die Hyperlinks (100 stk.) sollen alle auf Beispielseite1 enthalten sein (A6 bis A106) und die verlinkung soll auf Beispielseite2, Beispielseite3, Beispielseite n sein.

Ich hatte sie erst alle per Hand angelegt leider sind sie nur nach einiger Zeit nicht mehr funktionsfähig.

Ich hoffe ihr könnt mir helfen und meine VBA Kenntnisse verbessern. *Smilie

Gruß Daniel

:)

 

Hi

verstehe ich das richtig? du hast in der Mappe 100 Tabellen?
Soll der Hyperlink auf eine bestimmte Zelle verweisen?

 

Hallo Daniel,

benutze den Makrorecorder.

 

Ja du verstehst mich richtig, ich habe über 100 tabellen und sie sollen nicht auf einzelne zeilen oder spalten verweisen sondern nur auf die registerkarte.

 

Sub Hyperlinks_einfügen()
Dim intRow As Integer
For intRow = 6 To 100
Worksheets("Lead-Management-Report").Hyperlinks.Add _
Anchor:=Worksheets("Lead-Management-Report").Cells(intRow, 1), _
Address:="", _
SubAddress:=

 

könntest du mir noch ein paar informationen über den Makrorecorder geben? in Forum finde ich nicht direkt was dazu.

 

dein Code wurde nicht durch den Makrorecorder aufgezeichnet. Es wird schon seinen Grund haben warum Du uns den Code nicht zeigst.
Ich bin dann raus.

 

Es liegt vielleicht daran das ich kein Makrorecorder habe und den Code davor selbst geschrieben habe..

 

Hi

das würde auch per Formel funktionieren.

http://www.spotlight-wissen.de/archi...ge/531402.html

das sieht schieriger aus als es ist, dafür eine VBA freie Lösung.

über VBA:

Code:

p.s nur auf das Register geht nicht *wink.gif*, eine Zelle muss immer angegeben sein.
In der Formel habe ich A1 genommen.

 

Danke das hat super geklappt, kann man den Vorgang auch nach 100 Tabellen stoppen weil ich habe noch 100 weitere Tabellen die wiederrum mit den anderen 100 Tabellen verlinkt werden müssen... Tabelle2 mit B1 zu Tabelle101 (Tabelle3 mit B1 zu Tabelle102..)Gibt es da auch eine schnelle möglichkeit?

 

Hi

nur der verständishalber

in der Tabelle2 (dem zweiten Blatt deiner Anordnung) soll in Zelle B1 ein Hyplink eingetragen werden zur Tabelle101 (der 101 Tabelle deiner Anordnung)
usw...

Code:

 

Wow danke das du mir dabei auch noch hilfst. In der Tabelle2 ist der Hyperlink in B1 und soll auf Tabelle101 verweisen.

 

Hi

ist ja schon fertig. *Smilie
habe nur noch ein Edit eingefügt da ich den Hy. versehentlich auf Tabelle 101 gehabt hätte.

 

Danke das hat super geklappt! Vielen Dank nochmal! Vielleicht kommt nochmal eine Frage in einer Stunde.

 

Eine Frage hätte ich noch, nun brauche ich noch einen zurück hyperlink auf die erste Tabelle von Tabelle101 (hyperlink an Stelle A1),Tabelle102...

von Tabelle2 bis 100 habe ich es schon geschafft nur ich weiss nun nicht wie ich das auf 101,102, n anwenden kann. Hier der code:

Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", SubAddress:="'" & Sheets(1).Name & "'!A1"