Office: (Office 2010) in VBA Ablauf zum erstellen einer Tabelle aus vielen Tabellenblättern

Hallo ihr Lieben,

ich erstelle immer wieder für unterschiedliche Projekte Daten, die mir in einzelnen Excel-Mappen abgespeichert werden. Der Probename wird nur im Dateinamen abgelegt. Aus diesen Mappen benötige ich jeweils nur ganz bestimmte Daten (diese liegen stets in Tabellenblatt "SFE"), die in einer Tabelle abgelegt werden sollen. Das soll ca. folgendermaßen aussehen:

|Probename (=Dateiname)|Wert aus Zelle "B6"|Wert aus Zelle "C6"|Wert aus Zelle "B5"|Wert aus Zelle "B6"|...
|Probename (=Dateiname)|Wert aus Zelle "B6"|Wert aus Zelle "C6"|Wert aus Zelle "B5"|Wert aus Zelle "B6"|...
...

Die Exel-Dateien, die zusammen gehören werden immer in einem neuen Ordner gespeichert.

Ich möchte nun das Erstellen dieser Tabelle über ein Makro einrichten, sodass die Auswertung der Daten schnell erfolgen kann. Dabei möchte ich
1. eine Ordnerabfrage und das Eintragen aller Excel-Dateinamen des Ordners in Spalte A der Ziel-Excel
2. Eintragen der Daten, wie oben in der Tabelle schon angedeutet
3. Tabellenüberschriften, die nicht überschrieben werden, wenn das Makro abläuft
4. einen "Makrobutton" den man in der Excel klickt, und nach der Ordnerabfrage abläuft

Mittlerweile weiß ich, dass ich mir hier ganz schön viel vorgenommen habe. Mit Excel VBA habe ich vorher nie etwas zu tun gehabt. Aber irgendeine Lösung muss her...vielleicht könnt ihr mir ja weiterhelfen:

Der Sub funktioniert, allerdings wird mir der komplette Pfad der Dateien und nicht der Name eingetragen. Wenn die Endung .xlsx mit dranhängt macht das nichts. Wie gebe ich denn ein, dass nur der Dateiname und nicht der gesamte Pfad eingetragen wird?
-----
Private Sub Ordnerabfrage()
Dim dat
Dim I As Integer

Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = "Netzwerk..."
.InitialFileName = ""
.AllowMultiSelect = True
If .Show = -1 Then
For I = 1 To .SelectedItems.Count
Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0).Value = .SelectedItems(I)
Next
End If
End With
End Sub
-----
Vorher habe ich versucht, die Liste für einen Ordner zu erstellen, was auch funktioniert hat, allerdings ändern sich ja die Ordner nach jedem Projekt und daher benötige ich die Ordnerabfrage... wie kann man das eine und das andere miteinander verbinden?!
Der vorherige Code, den ich genutzt habe ist folgender:
-----
Sub DateienAuflisten()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("R:\Hänsel, Katharina\Krüss-Kontaktwinkelmesssystem\jab-Proben")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 2

For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei

End Sub
-----

Ich würde mich riesig über Hilfe freuen.

Vielen Dank schonmal fürs mit nachdenken!

Grüße
Käthe