Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Petra65 vom 20.10.2021, 08:42 Options
Fehler im Makro .... Hyperlink soll generiert werden
Hallo, guten Morgen,
ich knobel mal wieder an einem Makro, leider funktioniert es nicht wie gewünscht ..: folgendes Problem
In Spalte A stehen die Kunden-Nummern, zu diesen Nummern existieren gleichlautende Tabellen in dem Ordner Behandlungen (also Kunden-Nummer = 1, dann Tabelle 1.xls).
Ich möchte einen Hyerlink zu den Tabellen herstellen.
Mein Makro generiert zwar Hyperlinks, doch beim Auswählen kommt die Meldung "Die angegebene Datei konnte nicht geöffnet werden".
Meiner Meinung nach liegt der Fehler in der Adressangabe .... ich finde aber leider die Lösung nicht ;-(
So sieht das Makro zurzeit aus:
Sub HyperlinksEinfuegen()
Dim raZelle As Range
Dim strPath$
strPath = ThisWorkbook.Path & "\Behandlungen"
For Each raZelle In Range("A5:A65536")
If raZelle <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=raZelle, _
Address:="strPath & raZelle & .xls", SubAddress:="'" & raZelle & "'!A5"
Next raZelle
End Sub
Ich hoffe mal wieder auf Hilfe, vielen Dank und viele Grüße
Petra
ich knobel mal wieder an einem Makro, leider funktioniert es nicht wie gewünscht ..: folgendes Problem
In Spalte A stehen die Kunden-Nummern, zu diesen Nummern existieren gleichlautende Tabellen in dem Ordner Behandlungen (also Kunden-Nummer = 1, dann Tabelle 1.xls).
Ich möchte einen Hyerlink zu den Tabellen herstellen.
Mein Makro generiert zwar Hyperlinks, doch beim Auswählen kommt die Meldung "Die angegebene Datei konnte nicht geöffnet werden".
Meiner Meinung nach liegt der Fehler in der Adressangabe .... ich finde aber leider die Lösung nicht ;-(
So sieht das Makro zurzeit aus:
Sub HyperlinksEinfuegen()
Dim raZelle As Range
Dim strPath$
strPath = ThisWorkbook.Path & "\Behandlungen"
For Each raZelle In Range("A5:A65536")
If raZelle <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=raZelle, _
Address:="strPath & raZelle & .xls", SubAddress:="'" & raZelle & "'!A5"
Next raZelle
End Sub
Ich hoffe mal wieder auf Hilfe, vielen Dank und viele Grüße
Petra
Antwort 1 von coros vom 20.10.2021, 09:06 Options
Hallo Petra,
Du hast den Backslash hinter "Behandlungen" vergessen, also
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Du hast den Backslash hinter "Behandlungen" vergessen, also
strPath = ThisWorkbook.Path & "\Behandlungen\"MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von coros vom 20.10.2021, 09:11 OptionsLösung
Hallo Petra,
ich nochmal. Dann ist noch ein Fehler in der Erstellung des Pfades im Hyperlink. Nachfolgend mal Dein Makro, wie es funktionieren sollte.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ich nochmal. Dann ist noch ein Fehler in der Erstellung des Pfades im Hyperlink. Nachfolgend mal Dein Makro, wie es funktionieren sollte.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub HyperlinksEinfuegen()
Dim raZelle As Range
Dim strPath$
strPath = "C:\Behandlungen\"
For Each raZelle In Range("A5:A65536")
If raZelle <> "" Then _
ActiveSheet.Hyperlinks.Add Anchor:=raZelle, Address:=strPath & raZelle & ".xls"
Next raZelle
End Sub
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Hyperlink - Formelproblem
Meikel 30.08.2008 - 34 Hits - 2 Antworten
Hyperlink per Makro starten
afetinci 27.02.2009 - 559 Hits - 2 Antworten
Hyperlink per Makro erstellen ??
Petra65 06.06.2009 - 309 Hits - 12 Antworten
Fehler beim Abbrechen des Speichern-Dialoges in Excel-Makro
Sdisno 19.07.2009 - 439 Hits - 7 Antworten
Makro automatisches Hyperlink zu Email
Dareertzu 09.09.2009 - 114 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
