Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel 2000: Per vba hyperlink auf Zelle zuweisen

535 views
Skip to first unread message

Andreas Kramer

unread,
Jan 21, 2002, 3:00:56 PM1/21/02
to
Hallo,
ich habe ein Problem mit der Vergabe von Hyperlinks. Ich habe zwei
Tabellenblätter. In Tabelle1 stehen in Zeile 1 verschiedene Namen. Diese
Namen sollen auf Tabelle 2 in der Spalte A untereinander kopiert werden.
Diese kopierten Namen sollen einen Hyperlink auf die Zelle des Originals
haben.

Ich möchte also, einen Namen aus der Liste der Tabelle 2 anklicken können
und dann bei der Spalte des Namens auf Tabelle 1 springen.

Ich bekomme es aber nicht hin, auf die Zelle zu verweisen. Ich wäre über
rasche Hilfe sehr erfreut und bedanke mich im voraus.

Viele Grüße
Andreas


Andreas Kramer

unread,
Jan 22, 2002, 3:23:24 PM1/22/02
to
Hallo,
als Ergänzung mein gebasteltes dazu:
Sub aktualisieren()
Dim spalte, zeile As Double
spalte = 2
zeile = 5

Do While Worksheets("Tabelle1").Cells(1, spalte).Value <> ""
Worksheets("Tabelle2").Cells(zeile, 1).Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Worksheets("Tabelle1").Cells(1, spalte).Value,
TextToDisplay:=Worksheets("Tabelle1").Cells(1, spalte).Value
spalte = spalte + 1
zeile = zeile + 1
Loop

End Sub
Die Links werden erstellt aber nicht zur Zelle, sondern zu einer Datei, die
dem Text der Zelleninhalts entspricht. Ich verzweifle bald und werde alle
Links manuell setzen. Ich hoffe, jemand erspart mir das.

Viele Grüße
Andreas

"Andreas Kramer" <Andreas...@T-Online.de> schrieb im Newsbeitrag
news:a2hshb$nba$07$1...@news.t-online.com...

Andreas Kramer

unread,
Jan 23, 2002, 3:43:20 PM1/23/02
to
Hallo,
langsam komme ich der Lösung wohl näher. Mein Makro

Sub aktualisieren()
Dim spalte, zeile As Double
spalte = 2
zeile = 5
Do While Worksheets("Tabelle1").Cells(1, spalte).Value <> ""

Ancre = ("Tabelle1" & "!A" & "1")


Worksheets("Tabelle2").Cells(zeile, 1).Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

Ancre


spalte = spalte + 1
zeile = zeile + 1
Loop

End Sub

Die Zeile Ancre = ("Tabelle1" & "!A" & "1") muss jetzt so umgestellt werden,
dass "!A" den Werte der Variable Spalte nimmt, d.h. statt 2 müsste B ...
statt 43 müsste AQ usw. stehen. Geht das irgendwie?

Ich hoffe jemand weiß einen Rat.

Danke und Gruß
Andreas

0 new messages