excel vba

[rookie]

Hallo zusammen,

ich habe mir eine kleine „Datenbank“ für Bücher erstellt (siehe Anhang). Über ein Eingabeformular  möchte ich Daten in eine Tabelle schreiben, das klappt auch soweit. Über einen Button lade ich die verschiedenen Datensätze ins Formlar. Was ich aber mit meinen wenigen vba Kenntnissen nicht hinbekomme ist folgendes: Ich möchte für die einzelnen Datensätze über einen Button auf den Speicherort verweisen, d.h. nach Drücken des Buttons soll der entsprechende Ordner, der das Buch beinhaltet, in einem neuen Fenster geöffnet werden Die Bücher sind nach Kategorien in verschieden Ordner abgelegt.

Wie kann ich das bewerkstelligen oder anders gefragt geht das überhaupt so, wie ich mir das vorstelle? Ich arbeite mit excel 2019.

Für eure Hilfe wäre ich dankbar! 

Zum besseren Verständnis habe ich eine Beispieldatei hochgeladen.


Gruss rookie

[schauan]

Hallöchen,

in irgendeiner Zelle steht der Pfad, z.B. A1? Im Prinzip

Shell "explorer.exe """ & Range("A1").Value & """", vbNormalFocus

[Raoul21]

Hi rookie

Wenn man den roten CommandButton "Speicherort" klickt, soll ein Dateidialog aufgehen, mit dem Du dein Buch auswählst.

Mach in der Userform neben dem roten CommandButton eine Textbox "txtStandort", in dem der Ordner und Dateiname reinkommen soll.


Schreibe dazu in Deine Userform an der entsprechenedn Stelle:

Private Sub CommandButton1_Click()
    txtStandort = Application.GetOpenFilename
End Sub

Übertrage dann den Standort praktischerweise als Hyperlink in die große Tabelle, so:

ActiveSheet.Hyperlinks.Add Anchor:=Range(activerow, 6), Address:=txtStandort, TextToDisplay:="Klick Buch"
 
Hoffe, das hilft.

[rookie]

Hi Raoul21,

Erst einmal vielen Dank für deine Hilfe!

Ich habe deinen Vorschlag soweit umgesetzt, meine Frage ist, an welche Stelle füge ich den Programmcode :ActiveSheet.Hyperlinks.Add Anchor:=Range(activerow, 6), Address:=txtStandort, TextToDisplay:="Klick Buch" ein?

Gruss rookie

[Raoul21]

Hi,

dort, wo auch die anderen Einträge in die Tabelle eingefügt werden.

Ich glaube, das ist bei "Private Sub cmdEinfuegen_Click()".

LG