.Hyperlinks.Add Laufzeitbeschränkung
02.06.2016 10:03:26
Basti
ich benötige Eure Hilfe bei der Optimierung einer Prozedure, die ich mir duch Google-Suche zusammengestellt habe.
Der Code funktionert und macht eigentlich was er soll. Leider hat meine Datenbasis 120.000 Zeilen und bei Zeile 65532 bricht der Code mit dem Fehler: Runtime Erro 1004 ab.
Ich habe schon gelesen, dass die Funktion .Hyperlinks.Add diese Einschränkung hat. Dummerweise kenne ich keine Alternativen bzw. würde gerne, dass ich nicht jedesmal die Startzeile angeben muss, sondern immer der von mir markierte Bereich mit dem jeweiligen Hyperlink versehen werden soll.
Sub HyperLinkAdd()
Dim Name As String, zeile As Long
Application.ScreenUpdating = False
For zeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Name = Cells(zeile, 1)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(zeile, 1), Address:= _
"AdresseTeil1" & Name & AdresseTeil2", TextToDisplay:=Name
Next
Application.ScreenUpdating = False
End Sub
Dank für Eure Hilfe.
Gruß
Basti