Automatisches Öffnen von Dateien

Hallo Björn,

danke für die Nachricht.

Haben Sie schon versucht, die App neu zu installieren? Durch Neuinstallation ersetzt der Prozess beschädigte Dateien und korrigiert möglicherweise falsche Einstellungen. Sie können auch versuchen, das iPad neu zu starten. Probieren Sie zuerst diese Fehlerbehebung
aus und kontaktieren Sie uns erneut, damit wir Ihnen bei Bedarf helfen können.

Wir freuen uns auf Ihre Rückmeldung.

LG

AEG

Ergänzung: Ich meine natürlich das automatische Öffnen der Datei nach dem Öffnen der App....

Hallo Frank,
gestern habe ich dir doch eine Antwort gegeben, bei der die Dateinamen in ein Array eingelesen werden.
Statt im unteren Teil die einzelnen Dateien in einer MsgBox auszugeben, kannst du doch die Dateien über dieses Array öffnen:

Sub Öffnen()

Dim i As Long

Const Pfad = "P:\0000_Kevin\"

For i = LBound(varDateien) To UBound(varDateien)

Workbooks.Open Pfad & varDateien(i)

Next

End Sub

Sollte sich deine Frage heute nicht auf das gestrige Problem beziehen, probiere es so:

Sub Öffnen()

Dim LRow As Long

Dim rngC As Range

Const Pfad = "P:\0000_Kevin\"

With ActiveSheet

LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For Each rngC In .Range("A2:A" & LRow)

Workbooks.Open Pfad & rngC

Next

End With

End Sub

Claus

Hallo Claus
und Sorry - funktioniert alles einwandfrei. Fehler lag bei mir. In Spalte A stehen zu Zeitpunkt des Öffnens der *csv Dateien noch Werte. Folglich öffnet der Sub die gewollten Dateien findet dann aber noch weitere Werte in der Spalte A - und zu diesen gibt es natürlich keine Dateien. Habe also im Sub auf Spalte AF geändert und alles ist TOLLLLL!!!
Hab vielen Dank
(bis zum nächsten Problem) Gruß --> Frank

Hallo Claus
Dein Sub öffnet die gewünschten Dateien bleibt dann aber mit aufgezeigtem Fehler stehen.
Frank