Zeilen kopieren

[pflaumi]

Hallo Hallo,

Bin gebeten worden folgendes Problem zulösen:

In tabelle1 sind 1 bis 10000 Zeilen mit Zahlen & Datum & Text in etwa 2 Dutzend Spalten gefüllt.
Nun soll ich in jeder Zeile prüfen, ob in Spalte X eine positive oder negative Zahl steht.
Wenn: Zahl positiv dann egal und weiter zur nächsten Zeile
Wenn: Zahl negativ dann gesamte Zeile in Tabelle2 kopieren
In Tabelle 2 dürfen aber keine Leerzeilen entstehen, da diese Tabelle ausgedruckt werden muß.

Da ich aber bisher nur in der Word & Excelwelt unterwegs war, habe ich von Open Office überhaupt keine Ahnung aber schon das erste Problem.

Hoffe die Aufgabe ist klar und wäre sehr dankbar wenn mir jemand helfen könnte.

Bis dahin PFLAUMI

[Karolus]

Hallo Pflaumi

Schau mal hier:
viewtopic.php?t=7819

Das dort gepostete Makro hab ich für dein Problem angepasst :

Sub PosXdelete
'löscht alle Zeilen mit postiven Werten in Spalte X
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
For i = 0 To letzte_Zeile
if oSheet.GetCellByPosition(23, i).Value > 0 Then
oSheet.Rows.removeByIndex(i,1)
i = i - 1
letzte_Zeile = letzte_Zeile - 1
End If
Next i
End Sub

Du musst jetzt nur noch Tabelle 1 nach Tabelle 2 kopieren , und dort das Makro starten.

Gruß Karo

[pflaumi]

Hallo Karo,

vielen Dank erstmal, habe es leider noch nicht ausprobieren können.

Tschau PFLAUMI