Hallo,
hoffentlich kann mir jemand helfen. Folgendes:
in einem bestimmten Folder:
Dim strDir As String
strDir = Sheets("Mapping").Range("strDir")
Dim strFile As String
strFile = Dir(strDir & "*.xls*")
sind mehrere Excel dateien.
Nun versuche ich in:
ThisWorkbook.Activate
Dim rgBase As Range
Set rgBase = Sheets("Recon").Range("A1")
Die Ergebnisse darzustellen/auflisten:
zunächst habe ich schon problem richtig erste schleife zu machen, denn ich möchte Dateiname in die erste Spalte A haben. Es soll sich so oft wiederholen wieviel verschiede Beiträge in der Spalte B kommen werden.
Beispiel:
Spalte A, Spalte B
1111, 1
1111, 2
1111, 3
1112, 1
1112, 2
1113, 1
1113, 2
usw...
Gruss
Vaidotas |