ergebnis der msgbox in zelle schreiben
29.09.2003 14:42:46
Stefan
Sub FileSelection()
Dim var As Variant
Dim iCounter As Integer
var = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien (*.xls), *.xls", _
MultiSelect:=True)
On Error GoTo ERRORHANDLER
For iCounter = 1 To UBound(var)
MsgBox iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
Next iCounter
Exit Sub
ERRORHANDLER:
Beep
MsgBox "Abbruch!"
End Sub