Private Sub UserForm_Initialize()
'Es muß ein Verweis zur "Microsoft scripting runtime" gesetzt sein!
Const strPFAD As String = "C:\XLSDOKU" 'Dein Suchpfad
Dim FS As New Scripting.FileSystemObject
Dim Datei As Scripting.File
Dim Dateien As Scripting.Files
Dim Ordner As Scripting.Folder

Set Ordner = FS.GetFolder(strPFAD)
Set Dateien = Ordner.Files

For Each Datei In Dateien
ComboBox1.AddItem Datei.Name
Next

'Verweise freigeben
Set Dateien = Nothing
Set Ordner = Nothing
End Sub

Private Sub CommandButton1_Click()
Const strPFAD As String = "C:\XLSDOKU\"
Dim WB As Excel.Workbook
Dim Zeile As Long
Dim Spalte As Long
If ComboBox1.Value <> "" Then
Set WB = Workbooks.Open(strPFAD & ComboBox1.Value)
With WB.Sheets(1)
ThisWorkbook.Sheets(1).Range("A1") = .Range("A1")
ThisWorkbook.Sheets(1).Range("B5") = .Range("B5")
ThisWorkbook.Sheets(1).Range("A10") = ComboBox1.Value
For Spalte = 4 To 6
For Zeile = 10 To 20
ThisWorkbook.Sheets(1).Cells(Zeile, Spalte) = .Cells(Zeile, Spalte)
Next Zeile
Next Spalte
End With
End If
Set WB = Nothing
Me.Hide
Unload Me
End Sub

Private Sub CommandButton2_Click()
Const strPFAD As String = "C:\XLSDOKU\"
Dim WB As Excel.Workbook
Dim Zeile As Long
Dim Spalte As Long
On Error Resume Next
If ComboBox1.Value <> "" Then
Set WB = Workbooks(ThisWorkbook.Sheets(1).Range("A10"))
If Err.Number <> 0 Then
Err.Clear
Set WB = Workbooks.Open(strPFAD & ThisWorkbook.Sheets(1).Range("A10"))
End If

With WB.Sheets(1)
.Range("A1") = ThisWorkbook.Sheets(1).Range("A1")
.Range("B5") = ThisWorkbook.Sheets(1).Range("B5")
For Spalte = 4 To 6
For Zeile = 10 To 20
.Cells(Zeile, Spalte) = ThisWorkbook.Sheets(1).Cells(Zeile, Spalte)
Next Zeile
Next Spalte
End With
End If
WB.Save
Set WB = Nothing
Me.Hide
Unload Me
End Sub

End Sub

Das sollte es in etwa tun.

Severus