Links auf Tabellenblatt aktualisieren
jorka
ich möchte gerne auf einem Tabellenblatt "Kunden" Hyperlinks einfügen. Dazu wird in Spalte A nach dem Wort "Kunde" gesucht, die Adresse der Zelle genommen und in der gleichen Zeile in Spalte G als Link eingefügt. Da auf diesem Tabellenblatt die Liste der Kunden ständig wächst, werden jedesmal bei Aktivierung des Tabellenblattes die Links aktualisiert. Auf einem anderen Blatt "Übersicht" wird dann über einen Button in dem Kundenblatt nach den Kundennamen gesucht und diese dann in einer Liste fein säuberlich untereinander aufgelistet. Dabei soll auch der Link kopiert werden, damit man aus der Übersicht direkt zu dem jeweiligen Kunden springen kann.
Mein Problem dabei ist, daß nur beim ersten Auffinden von "Kunde" ein Link erzeugt wird, und dann ist scheinbar Feierabend. Woran kann das liegen?
Die Linkaktualisierung sieht so aus:
Private Sub Worksheet_Activate()
Columns("G").ClearContents
Dim wks1 As Worksheet
Dim wert As String
Dim rFind As Range
Dim lrow As Long
Dim sFirst As String
Dim row1 As String
Set wks1 = Sheets("Kunden")
lrow = wks1.Range("A65536").End(xlUp).Row + 1
wert = ("Kunde")
Set rFind = wks1.Range("A21:A65536").Find(what:=wert, LookIn:=xlValues, lookat:=xlWhole)
If Not rFind Is Nothing Then
sFirst = rFind.Address
row1 = rFind.Row
Do
Range("G" + row1).Select
rFind.Hyperlinks.Add Anchor:=Selection, Address:="Kundenprojekte.xls", SubAddress:=(" _
Kunden!" + sFirst), TextToDisplay:=("link")
Set rFind = wks1.Range("A22:A65536").FindNext(rFind)
lrow = lrow + 1
Loop While sFirst rFind.Address
End If
sFirst = vbNullString
Set rFind = Nothing
Range("B5").Activate
End Sub
Habt ihr da eine Idee?
Viele Grüße,
Jörg