Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Sheets verwenden

2 Sheets verwenden
29.07.2015 13:33:49
Bio
Ich hatte heute Morgen schon mal eine Frage gestellt, die ich wieder als ungelöst hinstellen muss. Leider.
DIe Frage nochmal:
Es gibt 2 Excel Dateien.
in der einen stehen Zahlen,
in der anderen sind einfach nur lokale Links.
Ich hab in der Excel: "Zahlen" eine Spalte mit Nummern. A1 = 12345
Ich hab in der Excel: "Links" einen Link, der z.b. so heißt:
C:\Users\12345-AB-J.pdf.
Ich müsste jetzt aus dem Inhalt von Excel "A" 12345 einen Hyperlink erstellen.
Der PFad des Hyperlinks soll "C:\Users\12345-AB-J.pdf" sein.
Wie schaffe ich es jetzt für alle Werte aus der ersten Excelfile den Hyperlink zu finden?
Und 12345 soll auch weiterhin 12345 heißen. (Also soll nicht der PFad da stehen)
kennt jemand da einen Ansatz?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorschlag
29.07.2015 14:07:31
TomBiolein
Danke steve1da.
Leider hilft dieser Vorschlag nicht.
Er funktioniert leider absolut nicht mit den gegeben Anforderungen.
Danke trotzdem für den Link noch einmal.
lg Bio

AW: 2 Sheets verwenden
29.07.2015 14:54:30
Sepp
Hallo Tom,
das dir bisher nicht geholfen werden konnte, liegt vor allem an Dir.
Im Betreff sprichst du von 2 Sheets, dann wieder von zwei Dateien.
Was nun? Wie heißen die Dateien, wie die Tabellenblätter.
Ungetestet!
Sub tom()
Dim objSh As Worksheet, objShLink As Worksheet, objWB As Workbook
Dim vntRet As Variant, rng As Range

Set objSh = ThisWorkbook.Sheets("Zahlen")

Set objWB = Workbooks.Open("Pfad zur Datei mit den Links.xlsx")
Set objShLink = objWB.Sheets("Links")

With objSh
  For Each rng In .Range("A1:A" & .Cells(.Rows.Count).End(xlUp).Row)
    If rng <> "" Then
      vntRet = Application.Match("*" & rng & "*", objShLink.Columns(1), 0)
      If IsNumeric(vntRet) Then
        .Hyperlinks.Add Anchor:=rng, Address:=objShLink.Cells(vntRet, 1).Text, TextToDisplay:=rng.Text
      End If
    End If
  Next
End With

objWB.Close False

Set objShLink = Nothing
Set objSh = Nothing
Set objWB = Nothing
End Sub


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige