habe wieder ein kleines Problem, ich mochte meine Pfadangaben der Taqbelle1 Spalte H 2 bis ende in Hyperlinks umwandeln,
ist das möglich und wenn ja wie!
für eure hilfe danke ich euch schon mal im vorraus.
gruß
erich
Sub Hyperlinks_erzeugen()
Dim z As Long
For z = 1 To 100
With ActiveSheet
On Error Resume Next
.Hyperlinks.Add .Cells(z, 1), .Cells(z, 1).Value
End With
Next
End Sub
Sub Hyperlinks_erzeugen()
Dim z As Long
For z = 1 To 100'Hier die Anzahl Zeilen angeben
With ActiveSheet
On Error Resume Next
.Hyperlinks.Add .Cells(z, 8), .Cells(z, 8).Value
End With
Next
End Sub