Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Pfad in der Zelle dann öffnen durch Button
#1
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


Angehängte Dateien
.xlsm   MA.xlsm (Größe: 34,77 KB / Downloads: 6)
Liebe Grüße 

Liebe und schöne Grüße von der Ostsee Smile Heart

××××××××××××××××××××××××××××××××××××××××

EXCEL 2010 
Antworten Top
#2
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
Antworten Top
#3
(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


Angehängte Dateien
.xlsm   MA.xlsm (Größe: 38,64 KB / Downloads: 8)
Liebe Grüße 

Liebe und schöne Grüße von der Ostsee Smile Heart

××××××××××××××××××××××××××××××××××××××××

EXCEL 2010 
Antworten Top
#4
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
Antworten Top
#5
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
Liebe Grüße 

Liebe und schöne Grüße von der Ostsee Smile Heart

××××××××××××××××××××××××××××××××××××××××

EXCEL 2010 
Antworten Top
#6
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


Angehängte Dateien
.xlsm   MA.xlsm (Größe: 37,35 KB / Downloads: 3)
Antworten Top
#7
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
Liebe Grüße 

Liebe und schöne Grüße von der Ostsee Smile Heart

××××××××××××××××××××××××××××××××××××××××

EXCEL 2010 
Antworten Top
#8
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
[-] Folgende(r) 1 Nutzer sagt Danke an IchBinIch für diesen Beitrag:
  • Jürschen175
Antworten Top
#9
Hallo,

besten Dank für deine Hilfe und deine Zeit.

Funktioniert super Smile

Danke für alles
Liebe Grüße 

Liebe und schöne Grüße von der Ostsee Smile Heart

××××××××××××××××××××××××××××××××××××××××

EXCEL 2010 
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste