Pfad in der Zelle dann öffnen durch Button

[Jürschen175]

Hallo zusammen,

ich hoffe ihr könnt mir Helfen.
Wir haben ein User Form mit Mitarbeiter Daten.
klicke ich auf einen Mitarbeiter ( Listbox )sehe ich die Grunddaten.
Jetzt möchte ich gerne in User Form Blatt2 PERSONALGESPRÄCHE den Button klicken und das Formular wird geöffnet.
Also so.
Wir haben ein Firmenformular Personal. Wenn wir mitarbeitergespräche führen, geben wir die Daten ein und Speichen es unter:
C:\Excel\ .....
Jetzt gehe ich in meine Datei Tabellenblatt Anlagen und gebe den Pfad in der Spalte M ein des jeweiligen Mitarbeiters. sie Datei.
Jetzt möchte ich, das wenn ich den Mitarbeiter 1 auswähle, dann auf Blatt Personalgespräche gehe und auf dem Button klicke, das dann die Datei aufgeht, da wo der Pfad in Spalte M hinterlegt ist .

Wäre sowas möglich?

Danke

[IchBinIch]

Hi,

pack das Makro mal hinter Deinen Button:

Code:

Option Explicit

Sub DateiÖffnen()
Dim strQuelle As String
Dim z As Long
Dim zm As Long

With Tabelle9
zm = .Cells(Rows.Count, 13).End(xlUp).Row

   For z = 1 To zm
       If .Cells(z, 13).Value = "" Then
       
       Else
           strQuelle = .Cells(z, 13).Value
           Workbooks.Open Filename:=strQuelle
       End If
   Next z

End With

End Sub

Gruß
Ich

[Jürschen175]

pack das Makro mal hinter Deinen Button:

Hallo IchBinIch, leider geht es nicht. sie Datei: Danke dir erstmal

[IchBinIch]

Hallo,

na wie auch? :21: 
Dein Tabelle "Anlagen" enthält bis auf "Pfad Formular" keinerlei Überschriften oder Beispieldaten.
Wie soll man da prüfen ob der Wert in der Tabelle mit dem Namen in der UF übereinstimmt oder wo auch immer :32:?

BTW:
Wieso wird aus "C:\Excel\Daten1.xslm" im ersten Upload "C:\Excel\LKW2.xlsm" im zweiten Upload?

Pack den Code einmal in ein Modul und lass das laufen.

Gruß
Ich

[Jürschen175]

Hallo,

Danke erstmal. Es stehen überall Date drin, die wurden nur mit Text weiß gemacht. Ich habe den Pfad : C:\Excel\LKW2.xlsm
genommen um hier zu hause zu testen. Aber leider geht das nicht.

Steh ich da auf den Schlauch ???
Ich habe den Code auch in Modul 1 abgelegt. kommt die Meldung:

Pfad Formular Xlsx nicht gefunden.

Im Code wird das als Fehler markiert:
   Workbooks.Open Filename:=strQuelle

Hoffe du kannst mir nochmal helfen.

Danke dir

[IchBinIch]

Hallo,

dann teste mal. Bei mir läuft das so.
Du musst zunächst einen Mitarbeiter auswählen und dann auf Personalgespräch wechseln.
Sofern für den Mitarbeiter ein Dokument hinterlegt ist, wird dieses geöffnet.

Gruß
Ich

[Jürschen175]

Hallo ,

es funktioniert jetzt, ich will den unteren Button den Pfad in die TabelleN eintragen was oder wo muss ich das ändern,
Also Statt Spalte M in Spalte N der Pfad.

Danke dir

[IchBinIch]

Hallo,

an dieser Stelle

If Not Treffer Is Nothing Then
        strQuelle = Treffer.Offset(0, 13)
            If strQuelle = "" Then
                Exit Sub
            Else
                Workbooks.Open Filename:=strQuelle
            End If
    End If

Mit Offset wählst Du in Bezug auf eine Zelle eine andere Zelle an.
In diesem Fall also vom Mitarbeiternamen, der in Spalte A gesucht wird, 13 Spalten weiter nach rechts (= Spalte N).
Die 0 steht für den Zeilenversatz. In diesem Fall also in der geichen Zeile.
Mit negativen Werten kannst Du nach links oder oben "springen".

Gruß
Ich

[Jürschen175]

Hallo,

besten Dank für deine Hilfe und deine Zeit.

Funktioniert super

Danke für alles