Office: Hyperlinks mit VBA Makro erstellen

Hi

*wink.gif*

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

wenn du diese Zeile noch im Code einbindest hast du auf 101 bis 200 dein zurück

 

Danke! *Smilie

 

Leider gehen die links doch nicht die neu hinzugefügten 101 bis 200 :/


// funktioniert doch, musste nur A1:B2 statt A1 bei range eintragen da ich die beiden Zellen miteinander verbunden hatte.


Vielen Dank nochmal!

 

Eine und letzte Frage habe ich doch noch, wie baue ich die Verlinkung zwischen Tabelle 101 und Tabelle1 ( sozusagen der zurückbutton zur vorherigen Seite) , also den Verweis von tabelle101 zu tabelle1 (nicht zur Übersicht der Hyperlinks)?

 

Hi

^^

In C1?

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


einfach den EINSER (1) durch (i) erstetzten

 

Super Danke! *Smilie

Gebe es eigentlich auch eine Option dies Ohne Hyperlinks zu regeln sondern nur mit Makros? Also Tabellenwechsel mit Makro?

 

Hi

ja, wäre möglich aber bei dieser großem Menge an Sprungmarken...,
wo sollten diese untergebracht werden? Ich denke mal die Hy. sind dafür gut geeignet.
Wobei ich gestehen muss, ich kann mir immer noch nicht vorstellen warum man so viele Tabellenblätter braucht. *wink.gif*

 

Also diese Sprungmarken bräuchte ich dann an den gleichenstellen wie davor.
Jede einzelne Tabelle ist ein Kunde *wink.gif* und jeder Kunde hat noch eine Tabelle wo weitere Informationen hinterlegt sind..^^

Also wenn das jetzt nicht so schwer ist, würde ich dich bitten, dies auch nochmal zu zeigen damit das Forum und ich in zukunft besser damit umgehen kann. *wink.gif*

wäre zumindestens toll.*Smilie

D.h. Sprungmarken Einmal von der Übersicht zu den 100 ersten Kundentabellen, dann von den 100 Tabellen zu je den Detailtabellen der Kunden (100stk) und bei beiden Tabellen (Kunden- und Detail.) ein Rücksprung zur Übersicht(der Kunden) und einen Rücksprung von Detailtabelle zur Kundentabelle.*Smilie

 

Hi

das jetzt alles für die Tabelle umzubauen wäre mir jetzt zu viel Arbeit...
die Hy. passen da schon.

Hier mal ein kleines Bsp.

Code:

nur gehört der Code NICHT in ein Modul sondern in "dieseArbeitsmappe"
nicht im Orginal einfügen!

 

okay alles klar, ich probiere es mal *wink.gif* Danke nochmals *Smilie du hast mir viel Zeit erspart *wink.gif*

 

wie ist nochmal der Makro um tabellen zu erstellen??*wink.gif*

 

moin

sub neue_Tab()
sheets.add
end sub

meinst Du das?

 

Genau das meinte ich danke ! *Smilie