|
Hallo!
Ich suche jetzt schon seit Stunden im Internet die Lösung, aber ich finde nichts bzw. habe wohl einen Denkfehler...
Das Problem ist Folgendes: Ich habe Daten aufgezeichnet, welche aber leider pro Sekunde aufgezeichnet wurden. Ich brauche für weitere Berechnungen aber die Daten pro Minute. Da es sich um mehrere Dateien mit dem selben Problem handelt und auch um teilweise mehr als 3000 Zeilen versuche ich ein Makro zu schreiben, dass eben nur den Wert bei Sekunde 01 in eine neue Spalte kopiert.
Sub Kopieren()
Dim rng As Range
For Each rng In Sheets("Kontrollmessung 05_15").Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp))
If Second(CDate(Sheets("Kontrollmessung 05_15").Cells(rng.Row, 1))) = "1" Then
Sheets("Kontrollmessung 05_15").Cells(rng.Row, 2).Copy _
Destination:=Sheets("Kontrollmessung 05_15").Cells(rng.Row, 9)
End If
Next rng
End Sub
wenn ich statt = "1" >0 schreibe wird jede Zelle kopiert, also denke ich, dass der Fehler in der if Abfrage liegt...
Ich hoffe ihr könnt mir helfen!
Grüße JJ
|