|
Hallo,
ich habe Messdaten die etwa so aussehen wie die unten.
Das Ende ist dann erreicht, wenn Datum und Uhrzeit in A und B nicht mehr weitergehen.
Ich möchte nun ein Makro das zum einen die Daten in F nach "oben schiebt",
also dass die Zahlen dann aufhören wenn auch die in Spalten D und E aufhören.
Danach sollen die ganzen 0 (Nullen) die unterhalb des letzten Datums / Uhrzeit stehen gelöscht werden.
Problem dabei,
die Zeilennummern sind immer unterschiedlich...
Brauche also etwas wie Range(Selection, Selection.End(xlDown)) mit dem man danach sagen kann alles unterhalb und rechts davon löschen.
Danke und viele Grüße
Teglo
A B C D E F
11.10.2018 12:18:42 0 2,207 29,246 737,037
11.10.2018 12:21:15 0 1,418 29,242 737,902
11.10.2018 12:23:47 0 1,618 29,265 736,903
11.10.2018 12:26:19 0 1,658 29,282 737,328
11.10.2018 12:28:51 0 1,668 29,269 736,558
11.10.2018 12:31:23 0 1,987 29,268 737,438
11.10.2018 12:33:55 0 1,757 29,335 736,434
11.10.2018 12:36:28 0 1,787 29,325 737,213
11.10.2018 12:39:01 0 1,677 29,335 736,864
11.10.2018 12:41:33 0 1,947 29,35 736,219
11.10.2018 12:44:06 0 1,717 29,355 735,626
11.10.2018 12:46:38 0 2,147 29,399 735,421
11.10.2018 12:49:11 0 1,947 29,394 735,516
11.10.2018 12:51:43 0 1,977 29,387 735,21
11.10.2018 12:54:15 0 1,398 29,405 735,98
11.10.2018 12:56:48 0 1,638 29,424 735,827
0 0 0 735,32
0 0 0 734,307
0 0 0 734,646
0 0 0 734,068
0 0 0 734,474
0 0 0 733,805
0 0 0 734,311
0 0 0 733,217
0 0 0 733,312
0 0 0 733,303
0 0 0 733,14
0 0 0 734,742
0 0 0 733,178
0 0 0 731,787
0 0 0 731,993
0 0 0 732,361
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
|