Office: Monatsreport aus verschiedenen xls.Files erstellen

Hallo!

Setze mal zwischen diese beiden Zeilen

Code:

Ende = [=MAX((B7:J65536<>"")*ROW(7:65536))]
Workbooks.Open Pfad & Mappe, UpdateLinks:=0 

diese Zeile:

Code:

If Ende < 6 Then Ende = 6

Ungetestet, aber könnte klappen...

 

Hurra, jetzt funktioniert es.

Danke

Jetzt hab ich noch eine kleine Sache, ich möchte die Zahl in N1 im Grafiksheet als ausgeschriebenen Monat haben. Habe dieses über die "wenn"-Funktion gemacht. Geht das auch anders ?

 

Mit WENN wird das doch ellenlang...
Mach's lieber so:

=TEXT(DATUM(1;N1;1);"MMMM")

 

Hi,
funktioniert leider nicht so richtig.
Er schreibt mir nur Dezember hin, egal was für eine Zahl in N1 steht.
Ersetze ich ind der Formel N1 mit 1-12 funktioniert es.
Habe verschiedene Formate ausprobiert, keine Besserung.

 

Hallo!

Du schreibst diese Formel doch hoffentlich nicht in die Zelle N1, oder???

 

Hi,
hab den Fehler gefunden.
Bin ein Trottel , wenn ich auf ein anderes Sheet gehe, sollte ich die richtige Zellenbezeichnung angeben.
Jetzt funktioniert es auch.

Danke für Deine Hilfe

 

Hi,
eine Sache hab ich noch.
Wenn ich das Makro mehrmals ausführe, hängt er die Daten immer an die letzten an. D.h. wenn ich den z.B. 1.11 übertrage und am nächsten Tag den 2.11 schicke überschreibt er nicht den ersten Tag sondern hängt den ersten und zweiten Tag an die Daten ran. Ich habe also zweimal die selben Werte. Kann man das so machen das die Daten jedesmal überschrieben werden ?

Danke

 

Hallo!

Dann füge direkt hinter die Variablen-Deklarationen diese Zeile ein

Code:

Range("B7:J65536").Clear

 

Hi,
versteh ich leider nicht, wo ich es einfügen muß.
Komme zwar langsam dahinter wie das Makro funktioniert und was die einzelnen Befehle bedeuten, aber leider hab ich keine Ahnung wo ich das einfügen muß. :-(


Danke

 

Das kommt unter die Zeile mit dem letzten "Dim".

 

Danke,
jetzt bin ich rundum glücklich und zufrieden.
Jetzt muß ich nur noch meinen Kollegen beibringen das Sie den Dateinamen immer gleich schreiben.

Nochmals Danke für die SUPER HILFE von Dir.

Nachtrag: Habe es auf der Arbeit ans laufen gebracht.
Meine Vorgesetzten waren begeistert und haben
mich als "Mitarbeiter der Woche" vorgeschlagen.
Habe es aber abgelehnt da es ja nicht meine Arbeit war.
Nochmals vielen Dank für die Super Hilfe.