Hyperlinks kopieren
18.02.2014 17:30:25
klaus
Aus dem Sheet mit den Hyperlinks gehen Hauptprojekte (1) und zugeordnete Subprojekte (2) hervor. Das VBA-Programm soll nun die Hauptprojeke finden, die Subprojekte haben und deren Sheets den Hyperlink zu den jeweiligen Subprojekten reinkopieren. So soll z.B. das Hauptprojekt Dos_A1-G80-NW mit den drei folgenden Subprojekten (Zelle A4 bis A6) eine Kopie des jeweiligen Hyperlinks im gleichnamigen Sheet Dos_A1-G80-NW in den Zellen B2 bis D2 haben.
Der bisherige Code sieht wie folgt aus:
Sub LinkvonHzuSProjekt()
Dim Sp As Integer
Set wks = Worksheets(sDos)
Ze = 2
Sp = 3
Do While Not IsEmpty(wks.Cells(Ze, 1))
strHP = Left(wks.Cells(Ze, 1).Formula, 12)
If strHP = Left(wks.Cells(Ze, 1).Offset(1, 0).Formula, 12) Then
wks.Cells(1, Sp).Copy
'Ziel ist das jeweilige Sheet, des Hauptprojektes
End If
Ze = Ze + 1
Loop
End Sub
Ihr habt die bestimmte Ideen. Freue mich auf eine Antwort
Klaus.
Anzeige