Hallo André!
Ich hab Deine letzte Datei um die Ende-Datumswerte ergänzt. Wie Du richtig vermutet hast, liegt das Problem darin, dass die Hilfstabelle nicht sortiert wird.
Aber auch wenn die Tabelle sortiert ist, führen zwei gleiche Kundennummern für Verwirrung.
Liebe Grüße
Marcus
Hallöchen,
Die Zusatztabelle muss nach Kundennummer und Datum von sortiert werden.
Das ist jetzt hier dabei.
Hallo André!
Vielen Dank für das Umschreiben, es funktioniert prima! :19:
Ich habe versucht den Makro in eine andere Datei einzufügen so wie es in der Endfassung werden soll.
Bei den Offset funktionen und bei den Vergleichen bin ich aber nicht drauf gekommen von wo weg die Auswahl verschoben werden soll
Liebe Grüße
Marcus
Hallöchen,
schaue mal, so sollte es klappen. Ich habe das jetzt nur mit dem einen Eintrag getestet...
Guten Morgen André!
Vielen Dank! Irgendwie klappt es nicht, weil ich den Makro nicht richtig Abändern konnte.
Ich bin irgendwie nicht drauf gekommen von welcher Zelle aus Du die Auswahl verschriebst (Offset).
Es sollte ja, nachdem jede Person nur eine Datenteile besitzt, jede Person einmal aufscheinen.
Liebe Grüße
Marcus
Hallo André!
Leider funktioniert etwas mit der Datei nicht.
Die Hilfstabelle wird total ignoriert und es wird wieder jede Zeile aus den Daten 1 zu 1 übertragen.
Liebe Grüße
Marcus
Hallöchen,
auch hier spielt die Sortierung eine Rolle. Schaue mal in meine Antwort #13, da steht
Zitat:die untere Tabelle wird ja auf Basis der Daten der oberen erstellt. Damit das funktioniert, müssen die oberen Einträge, wie in Deinem Beispiel, sortiert sind.
Wenn das so nicht kommt bzw. keiner macht, kann ich das auch noch ins Makro einbauen.
Hallo André!
Ich Sposten!!!!! :16:
Wenn die Datentabelle sortiert ist klappt es!
Aber, leider gibt es doch noch ein "Aber". Denn das Endedatum wird trotzdem nicht berücksichtigt.
Sehe ich das richtig dass dafür die Formel in der Spalte B zuständig ist?
Vielen Dank!
Liebe Grüße
Marcus
Hallöchen,
wenn Daten unmittelbar zusammenhängen, werden diese auch zusammengezählt, unabhängig vom Ende-Eintrag. Wenn Du bei Deinem Mustermann aus dem April den Mai machst, ist das dann erst ein extra Eintrag.
Guten Morgen André!
Stimmt, hab schon komplett den Überblick verloren...
Ich habe das jetzt alles in meine eigentliche Datei übertragen und es klappt alles wunderbar!
Nur bei 2 Abschnitten im Makro bekomm ich eine Fehlermeldung und ich weiß auch nicht wirklich das diese Befehle machen.
Wenn ich eine Änderung in der Spalte für das Endedatum vornehme stoppt der Makro bei...
Range("tbl_Hilfstabelle[enthalten]").FormulaR1C1 = _
"=countifs(R20:C2:R30C2,[@EVNr.], R20C6:R30C6,[@von], R20C9:R30C9,[@bis])*countifs[EVNr.],[@EVNr.], [von], [@von], [bis], [@bis])"
...mit der Meldung ...
Laufzeitfehler '1004': Die Methode 'Range' für das Objket '_Worksheet' ist fehlgeschlagen
Das Datum wird aber zuvor richtig in die Hilfstabelle eingetragen.
Überspringt man den ersten Fehler hängt er in der Hilfstabelle bei...
With ActiveWorkbook.Worksheets("Daten").Listobjekt("tbl_Hilfstabelle").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlToptoBottom
.SortMethod = xlPinYin
.Apply
End With
...mit der Meldung ...
Laufzeitfehler '438' Objekt unterstützt diese Eigenschaft oder Methode nicht
Dann sind die Werte aus der Hilfstabelle wieder weg.
Hast Du vielleicht eine Ahnung woran es liegen kann? Die Bezeichnungen der Sheets und Tabellen hab ich alle kontrolliert.
Vielen Dank für die Hilfe!!
Liebe Grüße
Marcus