Daten aus mehrern Blättern in Master sammeln
#11
Hallo

ich freue mich sehr das du es hinbekommen willst, also in Ruhe den Fehler suchen:  Schau mal hier:   Users/mein.name/
Wenn ich das richtig sehe fehlt bei dir der Laufwerkbuchstabe, z.B.  C:\  oder F:\

Ich habe dir gerade ein Makro aus meinem Archiv geladen mit dem du den ganzen Ordner, alle Dateien, mit dem korrekten Pfad auflisten kannst.  
Ich hoffe danach wird es funktionieren.

Die Dateien sollen normalerweise nicht geöffnet sein.  Probier mal aus was passiert wenn sie bereits geöffnet sind?  Das habe ich nicht getestet. 

mfg  Gast 123

Code:
Sub Ordner_Einlesen()
   Dim sFile As String
   Dim sPath As String
   Dim z As Integer: z = 2
   
   sPath = ActiveWorkbook.Path
   Range("Y2") = ActiveWorkbook.Path
   
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sFile = Dir(sPath & "*.xl*")

   Do Until sFile = ""
      Cells(z, "x").Value = sFile
      z = z + 1   'Next Zeile
      sFile = Dir()
   Loop
End Sub
Top
#12
Moin,
der Mac hat doch so ein paar Eigenheiten, die anders sind als unter Windows. Dazu gehört auch u.A. die Nomenklatur der Pfad-Angaben ...
Schau einfach einmal hier nach, die Seite wir dir gewiss an vielen Stelle weiter helfen.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Top
#13
Vielen Dank Leute, leider hab ich es jetzt über Sverweise lösen müssen, da mir die Zeit davon rennt.

Trotzdem vielen Dank, ich werde mich irgendwann mal mehr mit dem Thema "Makros" und VBA auseinandersetzten,
dann verstehe ich auch was mein Copy/Past anrichtet :)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste