Du hast nachträglich auf mein vorheriges Posting folgenden Code gepostet:
Option Explicit
Sub Test()
Dim Fso, Ordner, varDatei
Dim DateiName As String
Dim i As Long
'ab welcher Zeile einfügen
i = 2
Set Fso = CreateObject("Scripting.FileSystemObject")
'hier Pfad angeben
Set Ordner = Fso.getfolder("J:\1 Forum")
'Schleife über alle Dateien im Ordner
For Each varDatei In Ordner.Files
If LCase(varDatei) Like "*.xlsm" Then
'Dateiname ausfiltern
DateiName = LCase(Right$(varDatei, Len(varDatei) - InStrRev(varDatei, "\")))
If IsNumeric(Replace(DateiName, ".xlsm", "")) Then
'Name der Datei schreiben ohne Extention
Cells(i, "A") = Replace(DateiName, ".xlsm", "")
'String Formel erstellen, Achtung hier ist der Tabellenname zu beachten, hier Tabelle1
DateiName = "'" & Replace(varDatei, DateiName, "[" & DateiName & "]Tabelle1'!" & Range(" _
U4").Address(ReferenceStyle:=xlR1C1))
'schreibe Wert in Zelle
Cells(i, "B") = ExecuteExcel4Macro(DateiName)
'Zähler hochzählen für nächste Zeile
i = i + 1
End If
End If
Next varDatei
End Sub
Diesen habe ich auch eingebunden, der Code läuft ohne "Bezugsfehler". Danke dafür.
Jetzt hätte ich eine Frage und es wäre absolut super, wenn ich das hinbekommen würde:
Der in Zelle U4 stehende -Wert setzt sich aus verschiedenen Gewerken zusammen.
d.h. z.B.
U4 = 100.000
dabei steht in Spalte E ab Zeile 6 ggf. ein String z.b. "Textmuster" dieses Textmuster enthält eine zugehörigen Wert in Spalte U ab Zeile 6. Ist es möglich diese mitzuübetragen? so, dass ich auf meinem neuen "Auswertungsbogen" sehe wie sich das Total (U4) zusammensetzt?
Wäre super, wenn es da eine Möglichkeit geben würde...
LG
Jessi