2 Sheets verwenden

Bild

Betrifft: 2 Sheets verwenden
von: Bio
Geschrieben am: 29.07.2015 13:33:49

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?

Bild

Betrifft: AW: 2 Sheets verwenden
von: SF
Geschrieben am: 29.07.2015 13:40:05
Hola,
da du es ja eh nicht tust, hier der Link, der schon einen Vorschlag enthielt:
https://www.herber.de/forum/messages/1439080.html
Sowie auch:
http://www.clever-excel-forum.de/thread-2606.html
Gruß,
steve1da

Bild

Betrifft: AW: Vorschlag
von: TomBiolein
Geschrieben am: 29.07.2015 14:07:31
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

Bild

Betrifft: AW: 2 Sheets verwenden
von: Sepp
Geschrieben am: 29.07.2015 14:54:30
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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "wenn bestimmter Monat, dann Zelle markieren"