title image


Smiley Hyperlink!?
Hi,



ich nehme jetzt einfach mal an du hast in Spalte A komplette Pfade zu Dateien stehen. Warum wandelst du die Pfade und Dateinamen nicht in einen Hyperlink um, dann kannst du dir das X in einer anderen Spalte ersparen.









Sub Hyperlink_Erstellen()

Dim i As Long

'Spalte notfalls anpassen!

On Error Resume Next

For i = 1 To[A65536].End(xlUp).Row

    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:=Range("A" & i).Value, TextToDisplay:=Range("A" & i).Value

Next

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: