OpenOffice.info

oDoc = ThisComponent
oSheets = oDoc.Sheets
oSheet = oSheets.getbyName("Test")
oRows = oSheet.getRows
raus = 10
i = 1

Do
tmp = oSheet.getCellByPosition(3,i).FormulaLocal
     if tmp = "x" Then
   oRows.removeByIndex(i,1)
       raus = 10
       i = i - 1
   Else
     raus = raus - 1
     i = i + 1
  End If
 
Loop While raus > 0

Ich hab deinen Vorschlag mal umgesetzt und dies kam raus (für andere die das selbe Problem haben)
[code]oDoc = ThisComponent
oSheets = oDoc.Sheets
oSheet = oSheets.getbyName("Test")
oRows = oSheet.getRows
raus = 10
i = 1

Do
tmp = oSheet.getCellByPosition(3,i).FormulaLocal
if tmp = "x" Then
oRows.removeByIndex(i,1)
raus = 10
i = i - 1
Else
raus = raus - 1
i = i + 1
End If

Loop While raus > 0
[/code]
Es funktioniert super ^-^
Danke nochmals Stephan. *imaginären Keks geb*
Damit ist das Problem gelöst.

raus = 10
i = 1

Do
tmp = oSheet.getCellByPosition(3,i).FormulaLocal
     if tmp = "x" Then
        for j = 0 to 1
      oRows.removeByIndex(j,i)
   Next j
       raus = 10
       i = i - 1
   Else
     raus = raus - 1
     i = i + 1
  End If
  
Loop While raus > 0

for j = 0 to 1
      oRows.removeByIndex(j,i)
Next j

oRows.removeByIndex(0,2) 

oRows.removeByIndex(i,2)

for j = 0 to 1
      oRows.removeByIndex(i,1)
Next j

[quote]Irgendwie scheint es bei If/then nen Konflikt zu geben aber ganz sicher bin ich mir nicht.[/quote]

Naja, ich habe es jetzt nicht ausprobiert aber das Problem hängt doch typischerweise sicher damit zu tun das sich der Index der Zeilen ändert wenn Du Zeilen löscht, d.h. wenn Du mittendrin zwei Zeilen löscht wird in Folge z.B. aus Zeile 100 Zeile 98 und der Zähler i übersprint zwei zu bearbeitenden Zeilen.
Auch darf die ursprüngliche Wertzuweisung für i nicht in der Schleife stehen.

Also im Prinzip müsste es so lauten (nicht geprüft):

[code]raus = 10
i = 1

Do
tmp = oSheet.getCellByPosition(3,i).FormulaLocal
if tmp = "x" Then
for j = 0 to 1
oRows.removeByIndex(j,i)
Next j
raus = 10
i = i - 1
Else
raus = raus - 1
i = i + 1
End If

Loop While raus > 0
[/code]
Auch bin ich nicht sicher ob Du wirklich tun willst was:

[code]for j = 0 to 1
oRows.removeByIndex(j,i)
Next j
[/code]
sagt, denn das löscht ja immmer die 2 ersten Zeilen, auch reichte dafür:

[code]oRows.removeByIndex(0,2) [/code]

ich denke aber es soll doch das hier passieren:

[code]oRows.removeByIndex(i,2)[/code]

was dasselbe wäre wie:

[code]for j = 0 to 1
oRows.removeByIndex(i,1)
Next j
[/code]

Gruß
Stephan

Sub DeleteTest

oDoc = ThisComponent
oSheets = oDoc.Sheets
oSheet = oSheets.getbyName("Test")
oRows = oSheet.getRows
raus = 10

Do
i = 1
	
tmp = oSheet.getCellByPosition(3,i).FormulaLocal
  	if tmp = "x" Then
  		for j = 0 to 1
      oRows.removeByIndex(j,i)
	Next j
    	raus = 10
	Else
     raus = raus - 1
  End If
  i = i + 1
Loop While raus > 0

End Sub

Hi nochma.
Brauch nochmal eure Hilfe bei nem Makro
[color=#00AA00][size=85][b]Moderation:[/b] Gerne! Aber bitte in einem neuen Thread. → [url=http://de.openoffice.info/viewtopic.php?f=1&t=54568]Allgemeinen Hinweise zur Forumsbenutzung[/url]—lorbass, Moderator
[/size][/color]

Das folgende Makro soll im Prinzip das selbe wie das obrige[color=#AA0000][b]*[/b][/color] machen aber statt die zeile umzufärben sie Löschen
Mein bisheriges Makro für das:
[code]
Sub DeleteTest

oDoc = ThisComponent
oSheets = oDoc.Sheets
oSheet = oSheets.getbyName("Test")
oRows = oSheet.getRows
raus = 10

Do
i = 1

tmp = oSheet.getCellByPosition(3,i).FormulaLocal
if tmp = "x" Then
for j = 0 to 1
oRows.removeByIndex(j,i)
Next j
raus = 10
Else
raus = raus - 1
End If
i = i + 1
Loop While raus > 0

End Sub
[/code]

Irgendwie scheint es bei If/then nen Konflikt zu geben aber ganz sicher bin ich mir nicht.

Ich bedanke mich schon ma für Vorschläge
[color=#00AA00]


_________________
[b]Moderation:[/b][/color]
[size=85][color=#AA0000][b]*[/b][/color] [color=#00AA00]Gemeint ist das Thema [url=http://de.openoffice.info/viewtopic.php?f=18&t=64194]Makroproblem[/url]
lorbass, Moderator
[/size][/color]