OpenOffice.info

Ihr seid SUPER!
Das funktioniert genauso, wie es soll und geplant ist. Auf diese Lösung wäre ich nicht gekommen und ich lerne dazu. Echt geil. Vielen, vielen Dank an Euch....

For i = letzte_zeile To 4 Step -1
		If blatt.getCellByPosition(5, i).Value < (15/(24*60)) Then
			blatt.rows.removeByIndex(i, 1)
		End If
	Next i

Hallo,

etwas einfacher wäre es die Zeilen von unten nach oben zu durchlaufen:
[code]For i = letzte_zeile To 4 Step -1
If blatt.getCellByPosition(5, i).Value < (15/(24*60)) Then
blatt.rows.removeByIndex(i, 1)
End If
Next i[/code]

Sub Main
	blatt = ThisComponent.CurrentController.ActiveSheet
	
	cur = blatt.createCursor()
	cur.GotoEndOfUsedArea(True)
	letzte_zeile = cur.RangeAddress.EndRow
	
	For i = 4 To letzte_zeile
		If blatt.getCellByPosition(5, i).Value < (15/(24*60)) Then
			blatt.rows.removeByIndex(i, 1)
			letzte_zeile = letzte_zeile - 1
			i = i - 1
		End If
	Next i

End Sub

z.B.:

[code]Sub Main
blatt = ThisComponent.CurrentController.ActiveSheet

cur = blatt.createCursor()
cur.GotoEndOfUsedArea(True)
letzte_zeile = cur.RangeAddress.EndRow

For i = 4 To letzte_zeile
If blatt.getCellByPosition(5, i).Value < (15/(24*60)) Then
blatt.rows.removeByIndex(i, 1)
letzte_zeile = letzte_zeile - 1
i = i - 1
End If
Next i

End Sub
[/code]

GRuß
Stephan

Hallo an alle meine Erlöser....

ich habe hier eine kleine Herausforderung die ich auch mit viel Googlen und probieren nicht gelöst bekomme. Mit Makros habe ich schon geschafft, aber dieses Problem schafft mich :-(
Wenn ihr mir helfen könnt wäre das echt klasse....

Erläuterung:
Ich benutze LibreOffice Version: 6.0.7.3 und brauche ein Makro weil ich noch andere Sachen und Änderungen in einem Rutsch machen möchte.

Als Export aus einem Programm bekomme ich eine xls-File.
Nun möchte ich ab Zelle F5 in der ganzen Spalte F nach unten durchsuchen lassen und prüfen, ob die Zeit in dieser Zelle kleiner 15 Min ist. Wenn ja, dann lösche diese Zeile, sonst diesen Wert (die Zeit) fett formatieren. Nebenbemerkung: Ich weiss nicht wieviele Zeilen die Tabelle mit Fahrteinträge nach unten hat.

Die Defintion der Zelle ist durch den Export bedingt mit WERT definiert, also z.B. WERT(00:10:00) - vielleicht muss man das erst konvertieren.

Ich hoffe ich habe es gut beschrieben und ihr wisst was ich vorhabe. Alle Zeiten zur Firma und zurück und so kleine Umparkerei sollen weg.

Ich DANKE Euch jetzt schon, dass ihr es Euch mal anschaut.

Grüsse
MavMan

[attachment=0]Screenshot-Tabelle_Fahrtenbuch.png[/attachment]