Pivottable Gruppierung - Laufzeitfehler 1004
Maximilian
ich bin leider ein ziemlicher Anfänger was die Makroprogrammierung mit VBA bei Excel angeht und brauche deshalb dringend Hilfe. Vor langer Zeit hatte ein Kollege noch mit Excel 97 ein Makro programmiert was jetzt irgendwie nicht mehr funktioniert, dabei kann ich leider nicht sagen ob es sich lediglich um ein Versionsproblem handelt oder ob jemand anders in der Datei etwas ausversehen verändert hat o.Ä. , jedenfalls funktioniert es leider nicht mehr, brauche die Datei aber relativ schnell wieder Einsatzbereit.
Bisher bin ich bei der Fehlerbehebung jedoch ziemlich verzweifelt, ich erhalte in der Zeile
ActiveSheet.PivotTables(1).PivotFields("Datum2").DataRange.Cells(1).Group _
Start:=CDbl(anf_dat), End:=CDbl(end_dat) + 1, By:=1, Periods:=Array(False, False, False, True, False, False, False)
Ich habe die Exceldatei mal bei rapidshare hochgeladen weil sie zu groß für den upload hier ist.
Es geht dabei darum, Messdaten aus einer von einem Messgerät erzeugten .dat-file zu lesen, zu ordnen und dann in Diagramm zu fassen. Ausgelöst wird das Makro durch den Button Daten einlesen im Sheet "Messwerte" alle anderen Funktionen folgen dann direkt darauf auch wenn es keine neuen Messwerte gibt, dann kann man den Bereich auswählen für den man das Diagramm erzeugen will.
Excelfile: http://rapidshare.com/files/406480831/06_70-ad-Wasserstand_Durchfluss.xls
.dat-file: http://rapidshare.com/files/406482274/WS_Kok1_.dat
das datfile hat folgenden Aufbau:
17 4 3 11 35 0 0.000
17 4 3 11 36 0 0.000
17 4 3 11 37 0 0.001
17 4 3 11 38 0 -0.001
17 4 3 11 39 0 0.000
wobei die Zahlen von Links nach Rechts wie folgt stehen: Tag, Monat, Jahr, Stunde, Minute, Sekunde, Messwert.
Hab mir mit dieser Erfahrung nun vorgenommen mich mehr mit VBA zu beschäftigen, bin auch schon soweit dass ich den Quelltext insgesamt verstehe, aber der Fehler ist mir absolut schleierhaft würde mich sehr über Hilfe freuen! Danke im vorraus!
Gruß, Maximilian
Anzeige