13.10.2019, 13:27
Hallo zusammen,
ich bräuchte bitte eure Hilfe...
Ich habe eine Hauptmappe, hier wird durch den DTPicker ein Datum ausgewählt und in eine Zelle übertragen. Jetzt müsste das Makro nacheinander 9 weitere Mappen öffnen, die Spalte A nach dem zuvor ausgewählten Datum durchsuchen, die ganze Zeile markieren und in die Hauptmappe unter dem letzten Eintrag einfügen.
Die Hauptmappe liegt in einem Ordner, in diesem Ordner befinden sich 9 weitere Ordner mit den Namen der Mitarbeiter. In jedem dieser Ordner ist nur 1 Mappe in denen Berichte eingetragen werden, jede Mappe hat nur 2 Reiter (Prüfberichte, kein PB). Das Makro müsste zuerst den Ordner öffnen, dann die Mappe und den Reiter "Prüfberichte". Hier müsste dann die Spalte A nach dem vorher eingetragenem Datum durchsucht werden, alle Zeilen markiert, kopiert und unter dem letzten Eintrag des Reiters "Prüfberichte" in der Hauptmappe eingetragen werden.
Auch die Google Suche liefterte nicht Ansatzweise das was ich bräuchte.
Die Übergabe von dem DTPicker läuft ganz gut aber ab da komme ich nicht mehr weiter.
Hier zumindest mal der Coder für die Übergabe an die Zelle:
Dim rng As Range
Dim sRow, sAdd, sFind As String
Sheets("Makro").Select
ActiveSheet.Range("a1") = Me.DTPicker1.Value
Vielen, vielen Dank schon mal für eure Hilfe!
ich bräuchte bitte eure Hilfe...
Ich habe eine Hauptmappe, hier wird durch den DTPicker ein Datum ausgewählt und in eine Zelle übertragen. Jetzt müsste das Makro nacheinander 9 weitere Mappen öffnen, die Spalte A nach dem zuvor ausgewählten Datum durchsuchen, die ganze Zeile markieren und in die Hauptmappe unter dem letzten Eintrag einfügen.
Die Hauptmappe liegt in einem Ordner, in diesem Ordner befinden sich 9 weitere Ordner mit den Namen der Mitarbeiter. In jedem dieser Ordner ist nur 1 Mappe in denen Berichte eingetragen werden, jede Mappe hat nur 2 Reiter (Prüfberichte, kein PB). Das Makro müsste zuerst den Ordner öffnen, dann die Mappe und den Reiter "Prüfberichte". Hier müsste dann die Spalte A nach dem vorher eingetragenem Datum durchsucht werden, alle Zeilen markiert, kopiert und unter dem letzten Eintrag des Reiters "Prüfberichte" in der Hauptmappe eingetragen werden.
Auch die Google Suche liefterte nicht Ansatzweise das was ich bräuchte.
Die Übergabe von dem DTPicker läuft ganz gut aber ab da komme ich nicht mehr weiter.
Hier zumindest mal der Coder für die Übergabe an die Zelle:
Dim rng As Range
Dim sRow, sAdd, sFind As String
Sheets("Makro").Select
ActiveSheet.Range("a1") = Me.DTPicker1.Value
Vielen, vielen Dank schon mal für eure Hilfe!
