[VBA] GetDataClosedWB

[jules]

Er gibt mir immer "ADOSheet = FALSCH" an .. 

Es muss an der externen Datei "Struktur" liegen ..
Sobald die externe Datei mehrere Blätter hat, geht es nicht mehr habe ich das Gefühl ?

[Case]

Hallo, :19:

lade doch mal so eine Datei hier hoch. Mit anonymisierten Daten. Nur die Struktur ist wichtig. :21:

[jules]

selbst wenn ich eine völlig leere, neue Datei mit mehreren Blättern erstelle passiert es..

Jetzt gehts selbst bei einem Blatt nicht mehr haha..

oh man

[Case]

Hallo, :19:

Ooohhh Mann - mein Fehler. Lösche das ": Exit Function" bei der Else raus.

Dann klappt es bei mir - sofern Daten im Blatt sind. :21:

[jules]

Knaller !!


Danke !

[Fennek]

Es war doch etwas komplizierter als gedacht:

Code:

Sub T_0()
Cells(10, 1).Formula = "=isref('Z:\xxx\Foren\[Jules.xlsx]OCT ALL'!$A$1)"
Cells(11, 1).Formula = "=isref('Z:\xxx\Foren\[Jules.xlsx]MAY'!$A$1)"
Cells(12, 1).Formula = "=isref('Z:\xxx\Foren\[Jules.xlsx]NOV ALL'!$A$1)"
End Sub

Die Prüfung aus A10 - A12 zeigt, welche Sheets enthalten sind, Leerzeichen stören nicht.

[Case]

Hallo Fennek, :19:

mit "=isref(..." hat er doch das gleich Problem wie am Anfang. Ist das Tabellenblatt nicht vorhanden wird er von Excel per Dialog aufgefordert ein Tabellenblatt auszuwählen. Diese Meldung lässt sich - zumindest bei mir - mit den üblichen Mitteln (On Error..., DisplayAlerts...) nicht unterdrücken. :21:

[jules]

Richtig :)

Daher die von Case gepostete Variante.

Tip Top!