habe kleines Problem.
Wie kann ich über einen Button es ermöglichen eine Datei einlesen zu lassen die der Benutzer aber erst aussucht und somit variabel vom Speicherplatz ist.
Gruß
Christian
Sub openDatei()
Dim sFileToOpen As Variant
Dim sSaveCurDir As String
Dim sSaveCurDrive As String
On Error Resume Next
sSaveCurDir = CurDir()
sSaveCurDrive = Left(CurDir(), 1)
sFileToOpen = Application.GetOpenFilename("Excel Datei (*.xls), *.xls", , "Excel Datei öffnen")
If sFileToOpen <> False Then
Application.Workbooks.Open (sFileToOpen)
ActiveWorkbook.RunAutoMacros xlAutoOpen
End If
ChDrive (sSaveCurDrive)
ChDir (sSaveCurDir)
On Error GoTo 0
End Sub