Mehrere Dateien in eine Tabelle zusammenfassen

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen werden, sondern nur bestimmte. dabei sind die spalten, in denen die informationen zu finden sind, immer gleich, die zeile kann sich allerdings verändern.
des weiteren möchte ich den namen der quelldatei in die zieldatei eintragen, um später die werte auch zuordnen zu können.
ich habe mal eine beispieldatei angehängt, um den aufbau der quelltabelle zu zeigen.
https://www.herber.de/bbs/user/55339.xls
auslesen möchte ich daraus folgendes:
dieses ABC/P in zeile 9, wobei dabei "/P" bei allen dateien vorhanden ist, das ABC wird durch 3 andere buchsteben ersetzt.
die kostenstellennummer in zeile 10, wobei es auch fälle gibt, bei denen hier statt einer zahl ein * steht
die gelbe summenspalte, und zwar von spalte C bis spalte O. diese Zeile kann jedoch, je nach menge der leistungsarten, verschoben sein.
ich hoffe, das mir jemand von euch helfen kann : )
liebe grüße
marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Firmenname As String wksZiel.Cells(ZeileDaten, 2) = wbQuelle.Name 'Name Quelldatei Select Case Firmenname Case wbQuelle.Name = "49155.xls" Firmenname = "Fabrik A" Case Else Firmenname = "test" End Select wksZiel.Cells(ZeileDaten, 1) = Firmenname 'Firmenname wksZiel.Cells(ZeileDaten, 3) = fncABC_P(.Range("B9").Text) 'Beschreibungstext wksZiel.Cells(ZeileDaten, 4) = fncKST(.Range("B10").Text) 'Kostenstelle

Hallo Marco,
die Select Case-Anweisung muss du etwas anders aufbauen, wenn du abhängig vom Quell-Dateinamen den Firmennamen festlegen willst.
Bitte achte bei den Dateinamen auf korrekte Groß-/Klenschreibung in den Case-Zeilen!
Oder verwende in der Select-Case-Anweisung zusätzlich die Funktion LCase oder UCase.
Gruß
Franz


wksZiel.Cells(ZeileDaten, 2) = wbQuelle.Name 'Name Quelldatei
Select Case wbQuelle.Name
Case "49155.xls"
Firmenname = "Fabrik A"
Case Else
Firmenname = "test"
End Select
wksZiel.Cells(ZeileDaten, 1) = Firmenname  'Firmenname
wksZiel.Cells(ZeileDaten, 3) = fncABC_P(.Range("B9").Text) 'Beschreibungstext
wksZiel.Cells(ZeileDaten, 4) = fncKST(.Range("B10").Text) 'Kostenstelle
'oder
wksZiel.Cells(ZeileDaten, 2) = wbQuelle.Name 'Name Quelldatei
Select Case LCase(wbQuelle.Name) 'Dateiname in Kleinschreibung
Case "49155.xls"
Firmenname = "Fabrik A"
Case Else
Firmenname = "test"
End Select
wksZiel.Cells(ZeileDaten, 1) = Firmenname  'Firmenname
wksZiel.Cells(ZeileDaten, 3) = fncABC_P(.Range("B9").Text) 'Beschreibungstext
wksZiel.Cells(ZeileDaten, 4) = fncKST(.Range("B10").Text) 'Kostenstelle

Beliebteste Forumthreads (12 Monate)

Mehrere Dateien in eine Tabelle zusammenfassen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Dateien in eine Tabelle zusammenfassen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread