Öffnen von Datein an aus einer Zelle
05.01.2022 09:06:28
Datein
Hallo, ich bin ganz neu und versuche mich nur an einer Aufgabe und hoffe Ihr könnt mir Tips geben.
Aus den Zelllen einer Spalte möchte ich Hyperlinks erzeugen um auf entsprechende Dateien zu verweisen.
Dies gelingt mir auch schon. Mein Problem ist der Verweis auf die Verzeichnisse in welchen die Dateien enthalten sind.
Die Daten liegen in Spalte 2 der Tabelle.
Der Dateiname/Zeichen in der Zelle hat 7 Stellen.
Aus den ersten 4 Zeichen ist eine eindeutige Zuordnung des Verzeichnisses möglich.
Ich würde gern ein "Grundprogramm" und eine Zuordnung der Verzeichnisse als Variablen haben, welche ich immer ergänzen kann.
Sub HlSpalteB()
Dim aSpalteB() As Variant, Zeile As Long, strPfad As String, strDat As String
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'neue Spalte einfügen
Columns(3).Insert
With ActiveSheet
'Datenfeld ist in Spalte B in der Zelle
aSpalteB = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
'Schleife über alle Zeilen
For Zeile = 1 To UBound(aSpalteB)
'schreibe Dateiname SpalteB Zeile 1,,, und pdf
strDat = aSpalteB(Zeile, 1) & ".pdf"
'Erstelle den Pfad
strPfad = "I:\!Test\3100000\-1000" & "\"
'Hyperlink einfügen
.Hyperlinks.Add Anchor:=.Cells(Zeile, 3), Address:=strPfad & strDat, _
ScreenTip:=strPfad & strDat, TextToDisplay:=strDat
Next
End With
Application.ScreenUpdating = True
End Sub
So funktioniert das Programm für ein Verzeichnis.
Ich dachte an eine Definition wie in den nächsten Zeilen
strPfad = "=WennLeft(strDat, 4))="3100"Ja"";"I:\!Test\3100000\-1000" & "\"
WennLeft(strDat, 4))="3101"Ja"";"I:\!Test\3100000\-1000" & "\"
Oder wie in dem anghängten Beispiel.
Über eine Hilfe würde ich mich sehr freuen.
Vielen Dank Lars
