Hyperlink
Markus
Sub CCC()
Dim Link As String
Dim Name As String
Dim i As Double
For i = 1 To 200000
Name = ActiveCell.Offset(0, -1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Link, TextToDisplay:=Name
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next i
End Sub
Diese Schleife bringt nach 65534 durchläufen einen 1004 Laufzeitfehler
ohne Hyperlink z.B.
activecell.offset(0,3).value = "SS"
läuft die Schleife bis zum Ende
Warum ?
Anzeige