Auswahlfenster für Dateien aufrufen
27.01.2005 13:41:32
Jens
folgender Programmcode läuf unter meiner Excel Version (2000) nicht. Hat jemand eine Lösung wie ich diesen Code zum laufen bekomme?
Sub ChooseFolder(Pos As Integer)
Mpath = GetFile(Range(Cells(Pos - 1, 12), Cells(Pos - 1, 12)).Value)
If Mpath = "" Then
Else
Range(Cells(Pos, 12), Cells(Pos, 12)).Value = Mpath
End If
End
Sub
Function GetFile(Ti As String)
End
Function
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = Ti
.Show
If .SelectedItems.Count = 0 Then
Else
GetFile = .SelectedItems(1)
End If
End With
End Function
Anzeige