Zeilen löschen nach Muster

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franziska,
... kommen ganz ohne VBA aus.
Die eine wäre eine PQ (Power Query) Lösung., die je nach Betrachtungsweise den Vorteil oder Nachteil hat, dass das Ergebnis immer in eine neue Tabelle geschrieben hat und die Quelldaten vorhanden bleiben.
Der M-Code dieser Lösung könnte z.B. so aussehen:


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Datum (Europe/Berlin)", type text}, {"Tempin (°C)", type number}, {"Temp (°C)", type number}, {"Chill (°C)", type number}, {"Dewin (°C)", type any}, {"Dew (°C)", type number}, {"Heatin (°C)", type any}, {"Heat (°C)", type any}, {"Humin (%)", Int64.Type}, {"Hum (%)", Int64.Type}, {"Wspdhi (m/s)", type number}, {"Wspdavg (m/s)", type number}, {"Wdiravg (°)", Int64.Type}, {"Bar (hPa)", type number}, {"Rain (mm)", Int64.Type}, {"Et (mm)", type any}, {"Rainrate (mm/h)", Int64.Type}, {"Solarrad (W/m²)", type any}, {"Uvi ()", type any}}),
#"Duplizierte Spalte" = Table.DuplicateColumn(#"Geänderter Typ", "Datum (Europe/Berlin)", "Datum (Europe/Berlin) - Kopie"),
#"Spalte nach Position teilen" = Table.SplitColumn(#"Duplizierte Spalte", "Datum (Europe/Berlin) - Kopie", Splitter.SplitTextByPositions({0, 14}, false), {"Datum (Europe/Berlin) - Kopie.1", "Datum (Europe/Berlin) - Kopie.2"}),
#"Gefilterte Zeilen" = Table.SelectRows(#"Spalte nach Position teilen", each [#"Datum (Europe/Berlin) - Kopie.2"] = "00:00"),
#"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"Datum (Europe/Berlin) - Kopie.2", "Datum (Europe/Berlin) - Kopie.1"}),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Entfernte Spalten",{{"Datum (Europe/Berlin)", type datetime}})
in
#"Geänderter Typ1"

Eine andere Möglichkeit wäre mit folgender Hilfsspalten-Formel: =TEXT(A3;"mm") ermittelst Du für jeden Datensatz die Minutenangabe der Messung als Textwert. Dann filterst Du in dieser alle Nicht-"00"-Werte aus oder als Variante dazu filterst alle diese und löschst die so gefilterten Zeilen einfach.
Gruß Werner
.. , - ...

Hallo Daniel,
welche Methode meinst Du?
Die mit der Formel in der Hilfsspalte =wenn(minute(A3)=0;Zeile();0), das habe ich auch probiert und hat den gleichen Effekt wie das Makro von GerdL;
oder meinst Du das mit "Da ist man aber von Hand schneller als dieses Makro"? Ich weiß nicht, was damit gemeint ist, mit "Da ist man aber von Hand schneller als dieses Makro".
Beider Versionen sorgen dafür, dass die Liste auf das "Stunden-Niveau" gekürzt wird. Das passt ja.
Es ist nur so, wenn ich nun aus dieser Tabelle ein bestimmtes Diagramm haben möchte, z.B. die Regenmenge, dann habe ich an einem Tag mehrere Werte zwar zu unterschiedlichen Stunden, aber so ist das in Realität nicht. Hier ist es nur ein Wert und so muss ich nun diese Spalte händisch mit den sog. doppelten Werten die Zeilen zusätzlich löschen. Dafür gibt es keine Lösung.
Gruß Franziska

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread