Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink automatisch setzen

Betrifft: Hyperlink automatisch setzen von: Thomas
Geschrieben am: 02.11.2014 10:58:48

Guten Morgen alle zusammen,

ich habe eine große Tabelle (kleiner Ausschnitt anbei) in der in der Spalte G gelegentlich das Wort Dokument steht nd in der Spalte H gelegentlich das Wort Notiz steht.

In meinen Hilfsspalten L und M stehen die korrekten dokumentennamen für eine Verlinkung in der Spalte G und/oder H.

Wenn in Spalte G das Wort Dokument steht, dann soll dieses Wort mit dem Dateinamen aus Spalte L und Wenn in Spalte H das Wort Notiz steht, dann soll dieses Wort mit dem Dateinamen aus Spalte M verlinkt werden.

Ich kenne auch den Befehl teilweise hierfür
.Hyperlinks.Add Anchor:=.Cells(lngRow, 8), Address:="D:\Ordner1\Unterordner1\" & myFile.Name, TextToDisplay:="Dokument"
aber ich kann das beim besten Willen nicht selber umsetzten (3 Tage sind schon verstrichen ohne Erfolg).

https://www.herber.de/bbs/user/93491.xlsm

Der Pfad auf die Links steht in Zelle L2 sollte aber vielleicht besser direkt im Makro eingearbeitet werden.

Könnt Ihr mir bitte helfen das ich einen automatismus mit VBA habe um alle Links automatisch zu setzen?

Danke im voraus und Gruß Thomas

  

Betrifft: AW: Hyperlink automatisch setzen von: Beverly
Geschrieben am: 02.11.2014 17:44:46

Hi Thomas,

versuche es mal so:

Sub HyLinkErstellen()
    Dim lngZeile As Long
    For lngZeile = 6 To IIf(IsEmpty(Cells(Rows.Count, 1)), _
        Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
        If Cells(lngZeile, 7) = "Dokument" Then
            Cells(lngZeile, 7).Hyperlinks.Add Anchor:=Cells(lngZeile, 7), _
                Address:="D:\Ordner1\Unterordner1\" & Cells(lngZeile, 12), _
                TextToDisplay:=Cells(lngZeile, 7).Value
        End If
        If Cells(lngZeile, 8) = "Notiz" Then
            Cells(lngZeile, 7).Hyperlinks.Add Anchor:=Cells(lngZeile, 8), _
                Address:="D:\Ordner1\Unterordner1\" & Cells(lngZeile, 13), _
                TextToDisplay:=Cells(lngZeile, 8).Value
        End If
    Next lngZeile
End Sub


GrußformelBeverly's Excel - Inn



  

Betrifft: AW: Hyperlink automatisch setzen von: Thomas
Geschrieben am: 02.11.2014 17:56:17

Hallo Beverly,

vielen Dank funktioniert einwandfrei
Schönen Abend noch und
Gruß Thomas


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink automatisch setzen"