Werte aus geschlossener Excel Datei übertragen

Hello,
Ich hoffe mal Ihr könnt mir helfen.
Ich habe diverse Dateien erzeugt die mit Namen und Nummernschild bezeichnet wurden (z.B. Lahm, Phillip_M-FC 1990).
Ablage ist in Eigene Dateien\Dokumente.
Zur suche nach diesen Dateien soll aus der Zelle "B3" der Dateiname gezogen werden, sprich hier eben der oben erwähnte.
Das Makro welches ich benötige, soll die Datei suchen und dort folgendes auslesen und in mein aktuelles Arbeitsblatt übernehmen.
Die Werte stehen wie folgt in der Excel:
Die Werte stehen im Tabellenblatt "gefahrene_KM" in den Zellen C, D und E.
Problem hierbei ist, es muss nach "Januar" in Spalte A gesucht werden, dann in Spalte A nach "Gesamt" gesucht werden um die genaue Zeile zu definieren wo die Werte letzendlich stehen.
Es müssen somit wohl 2 Schleifen eingebaut sein, die zuerst nach dem Monat in Spalte A sucht und ab dort dann bis zum Wort "Gesamt" zählt um die Zeile zu definieren.
Die Werte sollen dann kopiert und übertragen werden, in das aktuelle Worksheet "Gefahrene Kilometer". Auch hier muss ich suchen nach dem Jahr und der genauen Zeile wo die Werte eingefügt werden sollen.
Ist komplex ich weiß, aber vielleicht ist ja jemand freundlich und kann weiterhelfen? :)
Beste Grüße
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen Rainer,
https://www.herber.de/bbs/user/119943.xls
In dieser Datei werden die Fahrtkilometer des Nutzers eingetragen. Am Ende sind dann im Januar 400, 200 und 60 km zusammengekommen, diese Werte sollen kopiert werden.
Fragebogen ist quasi nur eine Übersicht die ausgefüllt wird vom Bearbeiter ob das Fahrtenbuch korrekt gepflegt wurde. Hier befindet sich nur die Zelle wo der Dateiname generiert wird, Makro für das Erstellen einer neuen Exceldatei mit dem Namen ist bereits vorhanden, die einzelnen Nutzerdateien werden durch Klick auf einen Button generiert.
https://www.herber.de/bbs/user/119944.xls
Genau, hier werden die Kilometer der einzelnen Nutzer zusammengefügt, sprich die Monatskilometer des einzelnen Nutzers. Es wird eine Datei für jeden Nutzer geben. Es sollen also hier lediglich die KM von Horst Hrubesch eingefügt werden. Es gibt schon alle Dateien, allerdings müsste ich wohl das Makro dann in alle einfügen, daher werde ich das Makro das die neuen Dateien erstellt auf dem ersten Tabellenblatt einer Excel einfügen und alle Dateien somit neu erstellen. Anbei das Makro hierzu:

Sub SpeichernUnter()
Dim NeuerName As String
NeuerName = Worksheets("Fragebogen").Range("D3")
ActiveWorkbook.SaveAs NeuerName
End Sub

Eine Extra-Dateiliste ist nicht vorgesehen.
Wir erstellen sozusagen mit einem Button für jeden Nutzer eine eigene Datei, danach sollen mit einem Button in die jeweilige Datei die Kilometerdaten kopiert werden. Da wir mehrere Bearbeiter anverschiedenen Standorten haben, wird jede Datei eines Nutzers einzeln bearbeitet, somit ein Button/übertrag der Kilometer für jede Datei.
ich hoffe es wird ein wenig klarer. ;)
Gruß
Marco

Beliebteste Forumthreads (12 Monate)

Werte aus geschlossener Excel Datei übertragen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread