Messdatei nach Datum mit array filtern
12.03.2020 12:22:40
Michael
ich habe eine Messdatei, in der die erste Spalte der Zeitstempel, also Datum + Uhrzeit sind. Die weiteren Spalten sind Messdaten.
Mein Logger kann leider keine Tagessätze (24h) erzeugen und nach drei Wochen sind die Dateien mehrere tausend Zeilen lang.
Bei kürzeren Messungen habe ich einfach mit einer Schleife die erste Zeile nach dem Tageswechsel durchlaufen und dann die Tagessätze erzeugt. Aber bei den Datenmengen dauert das zulange.
Ich hab gelesen, mit arrays geht das schneller, deswegen will ich mich mit der Filter-Funktion und Arrays beschäftigen.
so richtig funktionieren tut das aber noch nicht.
Ich schreib mal auf, was ich bis jetzt habe und wo die Fehlermeldungen kommen, vielleicht kann mir ja jemand weiterhelfen :-)
Sub Messdaten_Squirrel()
Dim ArrDat As Variant 'array für Messdatei
Dim ArrTagDat As Variant 'array für Tagesdatensatz
Dim Tagessatz As Variant 'Suchbegriff
Dim langZeile As Long 'letzte Zeile Arrdat
Dim langSpalte As Long 'letzte spalte Arrdat
Dim langZeileTag As Long 'letzte Zeile Arrtagdat
Dim langSpalteTag As Long 'letzte Spalte Arrtagdat
Tagessatz = "12.02.2020"
'erfasst Größe der Daten
langZeile = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
langSpalte = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Column
'MsgBox langZeile
'MsgBox langSpalte
ArrDat = Sheets("Tabelle1").Range(Cells(2, 1), Cells(langZeile, langSpalte)) 'Einlesen des _
array, passt auch im Lokalfeld
ArrTagDat = Filter(ArrDat, Tagessatz) 'hier kommt es zur Typenunverträglichkeit Error 13
Sheets("Tabelle2").Range(Cells(2, 1), Cells(UBound(ArrTagDat, 1), UBound(ArrTagDat, 2))) = _
ArrTagDat
End Sub