Zellenverweise über Dateiauswahlfenster
11.09.2017 17:55:23
Daniel
ich habe eine Frage: Ich habe mehrere Excel listen mit Terminplänen. Meine Überlegung war das ich alle Terminpläne in einer Excel Liste "Übersicht" zusammenfüge und mir dort dann die "offenen" Termine anzeigen lasse. Ich habe dann für jede Datei ein Blatt in der Übersicht Datei angelegt, die Zellen per "=c:...." verwiesen und anschließend mir über einen VBA welcher nach dem Wort "offen" sucht die einzelnen Termine in das erste Blatt kopiert. Das ganze funktioniert gut allerdings würde ich gerne das ganze so automatisieren das wenn neue Dateien hinzukommen, diese einfach mit einem Suchfenster(wie im Explorer) hinzugefügt werden kann und sich die Verweise automatisch anhand des Pfades kopieren. Mein Ansatz ist folgender aber leider spuckt mir die Funktion den Pfad ohne die eckigen Klammern aus und excel kann damit nichts anfangen.
Falls jemand eine Bessere Lösung hat oder mir sagt wie ich es anders machen kann wäre ich sehr glücklich :)
Danke :)
Code:
Sub Hinzufügen_mit_Link()
'Bezüge werden nicht richtig angelegt. Es wird nur der Pfad verknüpft nicht die Datei.
Dim pfad As String
pfad = GetFile
For Zeile = 1 To 2
For Spalte = 1 To 16
Cells(Zeile, Spalte).Value = pfad
Next Spalte
Next Zeile
End Sub
Function GetFile() As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFile = sItem
Set fldr = Nothing
End Function