Clever-Excel-Forum

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

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

(17.09.2016, 13:34)IchBinIch schrieb: [ -> ]pack das Makro mal hinter Deinen Button:

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

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

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

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

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

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

Hallo,

besten Dank für deine Hilfe und deine Zeit.

Funktioniert super Smile

Danke für alles

Jürschen175

IchBinIch

Jürschen175

IchBinIch

Jürschen175

IchBinIch

Jürschen175

IchBinIch

Jürschen175