automatisch per Hyperlink Ordner auf Server erstellen

Question

Hallo ,

ich habe da mal ne brennende Frage. ich arbeite in einem kleinen Unternehmen und habe eine Kundendatenbank mittels Excel erstellt. Die wächst und wächst....
Ich erkläre das mal für DAUs. Die Excel- Datei hat mehrere Arbeitsblätter, die aus mehreren Spalten besteht. z.B. Spalte B "Firmenname". Ich möchte einen Automatismus erstellen: Immer wenn ich in Spalte B (Zeile 2 bis x) etwas eintrage, soll auf dem Server ein Ordner erstellt werden, in den ich Dateien jeder Art speichern kann. Der Ordner soll den Wert als Namen tragen, der in der Spalte B (Zeile 2 bis x) eingetragen wurde. Außerdem möchte ich, dass der Ordner geöffnet wird, wenn ich auf die Zelle klicke (Hyperlink).
Anforderungen: dieses System muss für MS Office 03 - 07 kompatibel sein.

Ich danke euch jetzt schon für den investierten Hirnschmalz!
Sagt mir bitte auch, wenn meine Vorstellung realitätsfern sein sollte, oder bietet mir bitte Alternativen zu diesem Vorhaben.

Es grüßt ganz freundlich
das Reh

Answer 1

Hi,

Das sollte durchaus machbar sein. Ob es mittels UNC-Pfadangabe läuft, habe ich nicht getestet, aber zur Not sollte sich ja das Server-Verzeichnis als Laufwerk mappen lassen...

Lege Dir für einen Test folgendes Verzeichnis an: C:\TestHyperLinks\
Lade Dir einmal diese Beispieldatei herunter, und erlaube nach dem Öffnen das Ausführen der Makros (je nach Excel-Version und Sicherheitseinstellungen unterschiedlich).

Die Tabelle1 der Datei sollte Deinen Wünschen entsprechen. Einfach einmal einen Firmennamen in Spalte B eintragen.

Als Auslöser wird das Worksheet_Change-Ereignis der Tabelle1 genutzt. Der restliche Code liegt im Standardmodul (Modul1). Dort wäre auch der Pfad zum Verzeichnis anzupassen, welches die einzelnen Verzeichnisse aufnehmen soll. Const strPath As String = "C:\TestHyperLinks\"Sollten Dir die Kommentare im Code nicht ausreichen um ihn an Deine Bedürfnisse anzupassen, einfach wieder nachfragen.

bye
malSchauen

Answer 2

Hallo malSchauen,

die Testdatei und auch das Testverzeichnis funktionieren super.
Genau so habe ich mir das auch vorgestellt. Aber ich habe Probleme das in meine Datei bzw. mein Zielverzeichnis umzusetzen. Im Modul muss doch nur die oberste Zeile geändert werden. Da steht jetzt: Const strPath As String = "T:\Bitte NICHT öffnen! Kundendatenbank!" Aber es klappt nicht. Muss ich in der Tabelle auch noch etwas anpassen?

Danke schon mal!

Answer 3

Hi,

Der Code ist so geschrieben, dass in der Konstanten als letztes Zeichen ein Backslash zwingend erforderlich ist.
Versuch es mal mit

Const strPath As String = "T:\Bitte NICHT öffnen! Kundendatenbank!\"

bye
malSchauen

Answer 4

Lieber malSchauen,

ich habs hinbekommen. Dummheit meinerseits. Ich hätte mir gar nicht vorgestellt wie toll das tatsächlich ist. Vielen Vielen Dank.
Du hast mir sehr geholfen!!!