|
Hallo!
Das meinte ich mit in die SUB reinschreiben. :-) Du kanst zwar außerhalb der Prozeduren (SUBs) zwar was anlegen und auch feste Werte (bspw. Konstanten ) zuweisen aber nicht dynmisch erstellen. .
In dem Code von der Seite das hier Const sRootPath As String = "C:\TEST" löschen.
Dafür in der Public Sub MWDateienMitUnterordnernAuslesen() deine DIm Zeile oben mit der Zuweisung eintragen. Dein Modul sollte am Anfang dann so aussehen.
Private lRowCounter As Long
Private oSheet As Object
'Start der Routine: Call MWDateienMitUnterordnernAuslesen
Public Sub MWDateienMitUnterordnernAuslesen()
Dim sRootPath As String
sRootPath = ThisWorkbook.Path
Set oSheet = Sheets.Add
.
.
.
Damit sollte es gehen. Wenn immer noch Fehler kommen, poste mal deinen Code, so wie er bei dir steht. Da kann man besser schauen, was nicht passt.
Viele Grüße
|