Office: (Office 365) Hyperlink zu Dateien

Hallo,
ich möchte in einer dynamischen Tabelle mit Rechnungsnummern, die entsprechende Rechnung (alle in einem Verzeichnis) zuweisen,
in der Tabelle fangen alle an mit LU24-15XXX
die Excelrechnungen fangen alle mit "15XXX_.... .xlsx" an
gibt es eine Möglichkeit dies zuvereinbaren?
danke
Gruß Stephan.

 

Hi Stephan,

kannst du bitte per Upload eine Excel-Bsp-Datei mit Bsp-Daten zeigen und bitte vollständige Einträge anstelle von ...XXX_... zeigen?

Ciao
Thorsten

 

Moin allerseits,

so wie ich das verstehe, stehen die XXX wohl für eine fortlaufende Nummer. Also kein Problem.

Aber meine Frage dazu: Warum löst Du das nicht einer Arbeitsmappe mit zwei/drei Sheets: Eine Überblicksseite, eine Seite, in der für jede Rechnung die Daten in einer Zeile stehen und ein Blatt mit einer Vorlage, die Du einfach per Klick füllen und drucken/exportieren kannst? XL kann das.

Ergänzung: Ein Blatt für die Eingabe der Rechnungspositionen, ähnlich einem Rapport ...

Bei "Rechnung (alle in einem Verzeichnis)" muss ich -sorry- irgendwie an Vielweiberei denken ...

Grüße
d'r Bastler von den VBAsteleien.de

 

Hallo,
anbei die Tabelle und eine Musterrechnung

 

Hi,

versuch es mit der Datei im Anhang.

Wichtig!
Die ZIP-Datei zuerst in einem neuen, leeren Ordner entpacken.
Darin befinden sich dann...
...die Datei 2024_gesamt - Kopie.xlsm
...der Unterordner "alle Rechnungen"
...und im Unterordner noch die Datei 15002_BG_Unfallklinik_Ludwigshafen.xlsx

So, wenn du so weit bist, starte jetzt bitte die xlsm-Datei.

Mein Code überwacht im Blatt "Rechnungen" die Datums-Spalte (Spalte D) nur innerhalb der intelligenten Tabelle.
Wenn du eine andere Zelle in Spalte D änderst, passiert nix.

Wenn du innerhalb der intell. Tab. in Spalte D einen Eintrag hinzufügst/änderst/auch ein Doppelklick reicht, dann...
- "merkt sich mein Code" die Zelle, die du in Spalte D ändern willst
- "merkt sich mein Code" den Wert aus der "R-Nr"-Spalte (Spalte B)
- das Makro sbHypLink wird gestartet; die vorher gemerkten Werte werden als Parameter an das Makro übergeben
- im Makro sbHypLink werden nun im benannten Unterverzeichnis alle Dateien durchsucht und mit dem Wert aus "R-Nr" verglichen
- wenn eine Datei mit dem Wert aus "R-Nr" übereinstimmt, dann
...wird im Blatt "Rechnungen", in der "Link zur Rechnung"-Spalte, gleiche Zeile der gewünschte Hyperlink zur gefundenen Datei erstellt und das Makro wird beendet
- wenn aber keine Datei mit der "R-Nr" gefunden wird, dann...
...erscheint eine Meldung

So, fertig.

Bei mir funktioniert alles mit der Bsp-Datei und dem Unterordner und der einzigen Datei im Unterordner.

Bei dir auch?

Ciao
Thorsten

 

na ferris, kommt denn von dir auch noch mal ne Antwort?! :-/

 

Sorry, ich war im Urlaub und komme jetzt erst dazu, mir das anzuschauen,
gruss stephan

 

Hallo,
ich habe es lokal hinbekommen, aber ich habe die Dateien im Onedrive, da kommt immer Rechnungsnummer nicht vohanden.
lstrPfad = ThisWorkbook.Path = Environ("UserProfile") & "\Geschäft\Rechnungen_Hajok\Rechnungen_2024\"

ich bin für jede Hilfe dankbar, fast alles aus dem Internet hab ich schon versucht.

danke
Gruß Stephan

 

Moin Stephan,

dass Du erst jetzt mit so einer essentiellen Information OneDrive rüberkommst, ist schade. Aber hier haben wir genau dieses Thema schon mal ausführlich diskutiert.

Lies Dich einfach mal ein

Grüße
d'r Bastler von den VBAsteleien.

 

Hallo,
sorry,

Sorry,
ich wollte es lokal auf dem Onedrive holen nicht via http:, ich hab es auch auf ein normales Netzlaufwerk versucht, kommt immer "Keine Datei mit der Re... gefunden"

gruss stephan

 

Moin,
das sind dann aber zwei voneinander unabhängige Schritte. die nicht unbedingt in XL passieren müssen (aber notfalls können): Erst einmal eine Kopie aus der Cloud nach Lokal, und dann Deine gewünschte Bearbeitung auf Deinem PC.

Hier gilt es noch einmal konzeptionell neu zu denken ...

d'r Bastler von den VBAsteleien lässt grüßen