bestimmen Zeilen markieren bzw. löschen

[Karolus]

Hallo
-Färbe die dritte Zeile ein.
-kopiere den Bereich A1:x3
-Gib im Adressfenster A4:x1000 ein und enter.
-Rechtsklick--Inhalte einfügen (alles abwählen ausser [x]Formate )

Gruß Karo

[chrk]

Hallo,
Karol hat wohl - wie ich auch erst - das mit dem Markieren falsch verstanden (und das 'löschen' übersehen).

Das lässt sich bestimmt irgendwie mit einem Makro machen. Da kann ich aber nichts zu beitragen.

Statt dessen könnte ich Dir den Standardfilter anbieten:
Entweder haben Deine Daten in irgendeiner Spalte ein Merkmal, das sich in jeder dritten Zeile wiederholt, oder Du schaffst Dir eins, indem Du noch eine Spalte zum Filtern einfügst. Da gibst Du dann in die ersten drei Zeilen ein:

Code: Alles auswählen

Filterspalte
1
2
3

, kopierst das unterhalb der Überschrift und fügst es bis unten ein (den Rest der Spalte markieren und einfügen).

Dann schaltest Du den Standardfilter ein: Extras>Filter>Standardfilter und setzt als Kriterium für die Filterspalte <> der Ziffer, die Du ausschließen willst. Der Filter verbirgt jetzt die Zeilen, die vom Filter ausgeschlossen werden. Das ganze kopierst Du in die Zwischenablage.

Jetzt hast Du zwei Möglichkeiten: Die sicherere ist, das Kopierte in ein anderes Tabellenblatt einzufügen. Die andere ist, Du entfernst den Filter (Daten>Filter>Filter entfernen) und überschreibst beim Einfügen die originalen Daten. Dabei bleiben natürlich unten Zeilen über (1/3), die Du noch manuell löschen musst.

Vielleicht reicht Dir aber das Ausblenden durch den Filter schon, und Du brauchst die Zeilen gar nicht endgültig zu löschen?

[chrk]

Das mit der Platzhaltersuche funktioniert bei OOo über die Regulären Ausdrücke. Die funktionieren etwas anders: Da ist ein Stern ein Quantifizierer für das voranstehende Zeichen. Um beliebig viele beliebige Zeichen zu suchen, benötigst Du den Ausdruck ".*" - Der Punkt steht für ein beliebiges Zeichen...
Informier' Dich mal in der Hilfe über Reguläre Ausdrücke, die machen das Suchen und Ersetzen zu einem ganz schön mächtigen Instrument (leider eher das Suchen als das Ersetzen, weil nicht alle Ausdrücke in beiden Feldern funktionieren).

Aber das Suchen und Ersetzen hilft Dir nicht wirklich, weil es mit der Schaltfläche "Suche alle" offensichtlich nur wirkt, wenn der Suchbegriff in zusammenhängenden Zellbereichen vorkommt.

Der Standardfilter versteht auch Reguläre Ausdrücke. Dazu musst Du im Dialog die Optionen aufklappen und Reguläre Ausdrücke aktivieren. Dann gibst Du als Kriterium für die Suchspalte ungleich (<>) ".*/.*" ein. Das sucht nach einem Slash mit beliebig vielen Zeichen davor und danach, und die Zeilen, in denen es vorkommt, werden ausgeblendet. Der Rest wie oben.

Wenn das nicht klappt, hilft Dir wirklich nur noch ein Makro, das das ganze sequenziell löst.

[Karolus]

Hallo
Ich hab wohl zuerst nicht verstanden was du möchtest, wenn du generell jede dritte Zeile entfernen möchtest ? -lass folgendes Makro laufen:

Code: Alles auswählen

sub jedeDritteZeileweg
odoc=thiscomponent
mysheet=odoc.sheets(0) '1.Tabellenblatt
myrows=mysheet.getrows
	for i = 2 to 666 step 2 'entfernt Zeilen 3 6 9 ...  999
		myrows.removebyindex(i,1)
	next
end sub

Gruß Karo