Ich hab n Problem beim einlesen mehrer Datein, dass mich heut schon einige Stunden
gekostet hat. Vielleicht kann mir hier wer weiterhelfen.
ich hab auf einem PC volgendes Macro geschrieben:
-----------------
Public
Sub DateinEinlesn()
Dim varRetVal As Variant
Dim n As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Text-Datein (*.txt), *.txt", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
MsgBox (varRetVal(1) & " " & varRetVal(2))
End Sub
----------------
jetzt soll das aber am Mac auch laufen (OSX, neuste Office versuion), habs also
nur die Formaterkennung abgeändert:
-----------------
Public
Sub DateinEinlesn()
Dim varRetVal As Variant
Dim n As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="TEXT", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
MsgBox (varRetVal(1) & " " & varRetVal(2))
End Sub
----------------
Das gibt allerdings ne Fehlermeldung. Wie die genau lautet kann ich morgen noch
posten, wenns weiterhilft. Jedenfalls scheints Probs mit dem Multiselect zu geben. Ohne "MultiSelect:=True" funktioniert das einlesen einzelner Datein.
Wär super wenn mir da wer helfen könnte
thx
Andy