1.5k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo erst ein mal...brauche ein mal wieder eure Hilfe... :)

Ich habe eine Excel Datei in der in Zeile A5 bis A500 eintragungen
vorgenommen werden.
z.b Zelle A5 / Lochung01
A6/ Lochung02

und so weiter.....

jetzt möchte ich wenn ich in den Zellen A5 bis A500 Eintragungen vor
nehme das er mir den Text z.b Lochung01 in einen Hyperlink
umwandelt da Lochung01 eine Exeldatei ist und alle immer unter dem
selben Pfad gespeichert wurden.

ist das irgend wie möglich mit einem Makro..??

Für eure Hilfe bin ich euch jetzt schon Dankbar.

Gruß nero

6 Antworten

0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo,

du könntest z.b: in Zelle B5 die folgende Formel schreiben:
=HYPERLINK("C:\Test\"&A5&".xls";A5)
und so weit wie benötigt nach unten ziehen, dann würde in Spalte B der Hyperlink angezeigt. Den Pfad musst du natürlich entsprechend anpassen.

Falls du es per Makro wie oben beschrieben willst, dann probier es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A5:A500")) Is Nothing Then
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range(Target.Address), _
Address:="C:\Test\" & Target.Value & ".xlsx", _
TextToDisplay:=Target.Value
End With
End If

End Sub


Das Makro gehört in das VBA-Projekt des betreffenden Arbeitsblatts.
Den Pfad musst du natürlich auch hier noch entsprechend anpassen.

Gruß

M.O.
0 Punkte
Beantwortet von
Hallo M.O.

erst ein mal vielen dank für deine Hilfe !!!

Ich habe es erst mit der Formel versucht und es klappt wunderbar !!!

Dann wollte ich es mit dem Makro aber er zeigt mir immer einen Fehler
an...???

Laufzeitfehler 5
ungültiger Prozeduraufruf oder ungütiges rgument


in diesem Bereich

.Hyperlinks.Add Anchor:=.Range(Target.Address), _
Address:="C:\Test\" & Target.Value & ".xlsm", _
TextToDisplay:=Target.Value[u]
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo,

kommt der Fehler immer, wenn du einen Namen eintippst oder nur bei bestimmten Namen?

Gruß

M.O.
0 Punkte
Beantwortet von
Hallo,

es ist bei jedem namen ....?!
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo,

und das Makro steht auch im VBA-Projekt des betreffenden Arbeitsblattes?
Ansonsten lade mal eine Beispieltabelle auf einen Hoster deiner Wahl hoch und poste den Link hier.

Gruß

M.O.
0 Punkte
Beantwortet von
Hallo M.O.

sorry das ich mich so spät erst zurück melde... :(

Dein Makro geht doch..... es war mein fehler sorry !!!!!!!!

vielen ank noch ein mal an dich für deine Hilfe

gruß nero
...