Sverweis per Makro?

Bild

Betrifft: Sverweis per Makro?
von: TomBiolein
Geschrieben am: 29.07.2015 08:18:05

Hallo
ich habe in der Excel "A" viele Listen mit Nummern wie dieser hier:
T-1.3-GP.00.05
in einer anderen Excel habe per Makro 15.000 PDF´s in einer SPalte verlinkt.
Ein Passender Link zu dieser Artikelnummer sieht so aus:
F:\01 Porsche\FT KK200 NH300 ITS 4tlg_Eneton_1 x\05 Qs\04.1. DOKUS\DOC T-1.3-GP.00.05.pdf
Ich möchte jetzt, dass in der Excel "A" Spalte "Z" alle Einträge
"T-1.3-GP.00.05" ersetzt werden, ohne das ich da den Name ändere.
Per Sverweis (so stelle ich mir das vor, vielleicht gibt es eine andere Lösung?)
will ich jetzt Diesen Link hinter dem T-1.3-GP.00.05 Text als Hyperlink reinstellen.
jaja blöde Frage....aber vielleicht hat sowas von euch schon mal jemand gemacht?!
Grüße - Biolein

Bild

Betrifft: AW: Sverweis per Makro?
von: Andre
Geschrieben am: 29.07.2015 10:17:25
Hallo Biolein,
hier ein Lösungsansatz mit Hilfsspalte.

Range("B9").Hyperlinks.Add Anchor:=Range("B9"), Address:=Range("C9").FormulaR1C1

In B9 steht T-1.3-GP.00.05 in C9 steht F:\01 Porsche\FT KK200 NH300 ITS 4tlg_Eneton_1 x\05 Qs\04.1. DOKUS\DOC T-1.3-GP.00.05.pdf
Nach dem Macro ist T-1.3-GP.00.05 mit dem Hyperlink aus C9 belegt.
Gruß
Andre

Bild

Betrifft: AW: Sverweis per Makro?
von: TomBiolein
Geschrieben am: 29.07.2015 10:45:23
Ich bekomme eine Fehlermeldung. Könntest du eine Beispieldatei hochladen?
Danke, Bio

Bild

Betrifft: AW: Sverweis per Makro?
von: Andre
Geschrieben am: 29.07.2015 11:29:51
Hallo Bio,
hier die kurze Beispieldatei.
https://www.herber.de/bbs/user/99144.xlsm
Wie lautet die Fehlermeldung? Bei mir läuft es ohne Probleme.
Gruß
Andre

Bild

Betrifft: AW: Sverweis per Makro?, Andre
von: TomBiolein
Geschrieben am: 29.07.2015 11:56:22
Ja, stimmt. Ich hatte mit ctrlA+C+V nicht alles kopiert :-)
Wie verlinke ich in der Link-Range ein anderen Sheet?
Ansonsten hast du recht, es funktioniert einwandfrei!!!!
lg Bio

Bild

Betrifft: und zu
von: robert
Geschrieben am: 29.07.2015 15:29:43


Bild

Betrifft: AW: Sverweis per Makro?, Andre
von: Andre
Geschrieben am: 29.07.2015 15:34:55
Hallo Bio,

Sub test()
Dim ZellenInhalt
ZellenInhalt = Workbooks("Mappe22.xlsx").Worksheets("Tabelle1").Range("B3").Value
Range("C10").Value = ZellenInhalt
Range("B9").Hyperlinks.Add Anchor:=Range("B9"), Address:=Range("C10").FormulaR1C1
End Sub
Probier mal das hier.
Gruß
Andre

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sverweis per Makro?"