Hallo,
ich möchte mit folgendem Makro automatisch Links zu vorhandenen Zeichnungen erstellen lassen. Es gibt verschiedene Nummern und jede Nummer hat eine eigene Zeile, es existieren manchmal zu einer Nummer mehrere Zeichnungen (max. 12), deshalb habe ich zwölf Spalten eingefügt, wo dann die Links zu den Zeichnungen erscheinen sollen. Die Zeichnungen liegen alle in einem Ordner. Ich habe in Sheet2 eine Hilfstabelle eingebaut wo alle Zeichnungsnamen mit zugehöriger Nummer beinhaltet (in Spalte A steht die Nummer und in Spalte B der Name der Zeichnung). Dieses Makro vergleicht nun die Nummer mit den Nummern der Hilfstabelle und wenn eine Nummer übereinstimmt nimmt er den Namen und generiert automatisch einen Hyperlink mit diesem Namen. Leider funktioniert das Makro nicht und ich weiß absolut nicht woran es liegen kann…Ich hoffe mir kann jemand weiterhelfen.
Viele Grüße
Chris
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim ID_complete As String
Dim hyper_adress As String
Dim drw_avail(1500, 2) As String
Dim file_name As String
Dim i As Integer
Dim j As Integer
Dim z As Integer
Sheets(„Sheet2“).Select
For i = 1 To 1500
drw_avail(i, 1) = Cells(i, 1)
drw_avail(i, 2) = Cells(i, 2)
Next i
Sheets(„Sheet1“).Select
For i = 1 To 100
ID_complete = Cells(i + 2, 4)
z = 1
For j = 1 To 100
If ID_complete = Empty Then GoTo sprung
If ID_complete = drw_avail(j, 1) Then GoTo hyper
sprung:
Next j
bubble:
Next i
GoTo Ende
hyper:
hyper_adress = „Q:\E-Bbs\Zvs\335“ & drw_avail(j, 2)
Cells(i + 2, z + 4) = z
Cells(i + 2, z + 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=hyper_adress
z = z + 1
If z = 12 Then GoTo bubble
GoTo sprung
Application.ScreenUpdating = True
Ende:
End Sub