Hallo,
ich habe eine ellenlange Exceltabelle, bei der ich jede 42. Zeile komplett löschen möchte. Startpunkt soll aber Zeile 43 sein.
Ich möchte also Zeile 43, 85, 127 etc löschen.
Gibt es da eine elegante Lösung?
Oder auch nicht elegant, aber trotzdem schneller als per Hand 
Lg
Sina
ich habe eine ellenlange Exceltabelle, bei der ich jede 42.
Zeile komplett löschen möchte. Startpunkt soll aber Zeile 43
sein.
Ich möchte also Zeile 43, 85, 127 etc löschen.
Hi Sina,
nimm dir eine Hilfsspalte, z.B. H und schreib dann in H 2
=WENN(REST(ZEILE();42)=1;„x“;"")
und kopiere das nach unten, dann sortiere die Tabelle nach H.
Anschließend wieder sortieren wie sie war.
Gruß
Reinhard
Hallo Reinhard,
danke für die schnelle Hilfe!
Wenn ich die Formel allerdings so kopiere und runterziehe passiert nichts. Klicke ich dann in eine Zelle rein kommt eine Warnmeldung, dass die Formel falsch sei.
Viele Grüße
Sina
Wenn ich die Formel allerdings so kopiere und runterziehe
passiert nichts. Klicke ich dann in eine Zelle rein kommt eine
Warnmeldung, dass die Formel falsch sei.
Hallo Sina,
schalt die Warnmeldungen ab 
Im Ernst, bei meinem XL2000 klappt die Formel problemlos, müßte m.E. auch in höheren Versionen funktionieren.
Vor was warnt die Warnmeldung eigentlich?
Okay, mit dem anschließenden Sortieren kam ich nicht klar, halt ne elegante Vba-Lösung.
Alt-F11, Einfügen–Modul, Code reinkopieren, stelle den Curser irgendwo in den Code und drücke F5.
Rechtsklick links auf „Modul1“ und Modul entfernen, Editor schließen.
Gruß
Reinhard
Hatte Winzigkeit vergessen
Hallo Sina,
hier der Code:
Sub Loesch()
Dim Zei As Long, Z As Long
Zei = Range("A" & Rows.Count).End(xlUp).Row
While Zei \> 0 And (Zei Mod 42 1)
Zei = Zei - 1
Wend
For Z = Zei To 43 Step -42
Rows(Z).Delete
Next Z
End Sub
Gruß
Reinhard
Hallo,
die Hilfsspalte sollte sich mit dem Herunterziehen der Markierung leicht erstellen lassen.
1 und 2 eingeben, beides markieren und herunterziehen bis 42.
Alles 1 bis 42 markieren und herunterziehen bis Ende.
Sortieren, alle 42er loeschen, zuruecksortieren.
Gruss Helmut
Super, danke für deine Hilfe!!