Hyperlinks hinzufügen klappt nicht
06.08.2007 11:38:00
JStadler
ich hätt da mal wieder eine Frage. Wie man Hyperlinks prinzipiell hinzufügt, weiß ich inzwischen (danke nochmal an dieser Stelle). Jetzt habe ich aber folgendes Problem:
In meiner Testdatei habe ich in Tabelle3 in Spalte A ein paar Daten stehen ("Tabelle4", "Tabelle5", "Tabelle6"). Jetzt sollen automatisch Hyperlinks erstellt werden, die genauso heißen und auf die gleichnamigen Arbeitsblätter verweisen. Normalerweise mache ich das so (verkürzt dargestellt):
Private Sub links()
Dim gsb As String
Dim zeile As Integer
For zeile = 1 To 3 Step 1
gsb = Worksheets("Tabelle3").Cells(zeile, 1)
Worksheets("Tabelle3").Cells(zeile, 1).Hyperlinks.Add Range("A" & zeile), Testdatei, "#" & gsb & _
"!A1"
Next zeile
End Sub
das funktioniert eigentlich auch super. Jetzt will ich aber in Tabelle1 (eine Art Inhaltsverzeichnis) einen Button installieren, der unter anderem den o.a. Code in Tabelle3 ausführen soll (also alles wie gehabt, nur eben durch einen Button in Tabelle1 ausgeführt. Quasi so:
Private Sub CommandButton1_Click()
Dim gsb As String
Dim zeile As Integer
For zeile = 1 To 3 Step 1
gsb = Worksheets("Tabelle3").Cells(zeile, 1)
Worksheets("Tabelle3").Cells(zeile, 1).Hyperlinks.Add Range("A" & zeile), Testdatei, "#" & gsb & _
"!A1"
Next zeile
End Sub
Dieser Code steht im Code-Fenster unter "Tabelle1", weil da ja der Button ist. Klappt aber alles nicht, die Links werden nicht in Tabelle3, sondern in Tabelle1 erstellt. Was mache ich falsch und wie kann ichs beheben?
Danke im Voraus für Eure Tips und einen schönen sonnigen Tag
Johannes