ich brauche unbedingt mal eure Hilfe.
Zur Zeit lese ich aus allen Unterordnern eines Pfades mehrere Zellen aus allen Sheets ("WeeplyRep") der XLS-Dateien aus,
die ich mir untereinander in ein seperates Sheet kopiere. Hier ein Auszug meines Makro:
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
ThisWorkbook.Worksheets("Tabelle1").[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("WeeplyRep").[F65536].End(xlUp)
ThisWorkbook.Worksheets("Tabelle1").[B65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("WeeplyRep").[J65536].End(xlUp)
ThisWorkbook.Worksheets("Tabelle1").[C65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("WeeplyRep").[K65536].End(xlUp)
ThisWorkbook.Worksheets("Tabelle1").[D65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("WeeplyRep").[P65536].End(xlUp)
quelle.Saved = True
quelle.Close
Next i
End Sub
Nun möchte ich aber noch einen zusetzlichen Wert mit auslesen und diesen ebenso untereinander ins
seperate Sheet kopieren. Der Wert soll die Anzahl von Einträgen in Spalte B des quelle.Worksheets("WeeplyRep") sein.
Also so: =ZÄHLENWENN(B5:B98;">1")
Jetzt habe ich schon folgendes probiert:
ThisWorkbook.Worksheets("Tabelle1").[E65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("WeeplyRep").Range("B100").FormulaR1C1 = "=COUNTIF(R[-95]C:R[-2]C,"">1"")"
Leider bekomme ich nur den Wert ´FALSCH`.
Hat jemand nicht ein Tip für mich?
Danke für eure Mühe mir zu helfen...
Christian
PS: Am besten würde mir natürlich noch gefallen wenn der Wert der Anzahl von Zelle B5 bis zum
letzten Eintrag der spalte errechnet wird, da die Anzahl der Einträge in Spalte B von Quellsheet
zu Quellsheet unterschiedlich sind.