OpenOffice.info

Ihr seid die besten! Vielen Dank - jetzt funktioniert es einwandfrei.

Dieser Beitrag kann als gelöst markiert werden (weiss nicht wie es geht).
Viele Grüsse
MavMan

Hallo,
[quote](mit Punkt) [/quote]
natürlich - :oops:

If  aktuelles_Blatt.getCellByPosition(5, i).Value < "0,002083" Then

If  aktuelles_Blatt.getCellByPosition(5, i).Value < 0.002083 Then

die Zeile:

[code]If aktuelles_Blatt.getCellByPosition(5, i).Value < "0,002083" Then
[/code]
muss lauten:

[code]If aktuelles_Blatt.getCellByPosition(5, i).Value < 0.002083 Then
[/code]

(mit Punkt)


Gruß
Stephan

"0,002083"

0,002083

Hallo,
[code]"0,002083"[/code] ist ein String.
Den Wert vergleichst du mit
[code]0,002083[/code]

Sub ONLINE
	'Mit der Hilfe aus de.openoffice.info Community 
	'20191021 - Initiale Erstellung
	blattanzahl = ThisComponent.Sheets.Count
	For j = 0 To blattanzahl-1
		aktuelles_Blatt = ThisComponent.Sheets.getByIndex(j)
		
			'Start Schleifencode ueber alle Arbeitsblaetter	
			Dim LocalSettings As New com.sun.star.lang.Locale
	
			cur = aktuelles_Blatt.createCursor()
			cur.GotoEndOfUsedArea(True)
			letzte_zeile = cur.RangeAddress.EndRow
	
			'unterhalb Tabellenkopf ab Zeile 5 und Spalte F - Zeile loeschen, wenn Wert <= 3 min
			For i = 4 To letzte_zeile
				If  aktuelles_Blatt.getCellByPosition(5, i).Value < "0,002083" Then
					aktuelles_Blatt.rows.removeByIndex(i, 1)
				End if
			Next i 
	
	Next j 'Ende Schleifencode ueber alle Arbeitsblaetter
	MsgBox "Programmcode durchgelaufen."
End Sub

vielen Dank für die schnelle Antwort. Deine Erklärung habe ich verstanden und wollte es so jetzt lösen - aber es klappt nicht :-(

Liegt es am Format in der Zelle oder ist mein Vergleich auf den Value falsch?
So habe ich es probiert....(im Anhang ist auch ein MRI-Export der Zelle)

[code]
Sub ONLINE
'Mit der Hilfe aus de.openoffice.info Community
'20191021 - Initiale Erstellung
blattanzahl = ThisComponent.Sheets.Count
For j = 0 To blattanzahl-1
aktuelles_Blatt = ThisComponent.Sheets.getByIndex(j)

'Start Schleifencode ueber alle Arbeitsblaetter
Dim LocalSettings As New com.sun.star.lang.Locale

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

'unterhalb Tabellenkopf ab Zeile 5 und Spalte F - Zeile loeschen, wenn Wert <= 3 min
For i = 4 To letzte_zeile
If aktuelles_Blatt.getCellByPosition(5, i).Value < "0,002083" Then
aktuelles_Blatt.rows.removeByIndex(i, 1)
End if
Next i

Next j 'Ende Schleifencode ueber alle Arbeitsblaetter
MsgBox "Programmcode durchgelaufen."
End Sub
[/code]

Hallo,
worin besteht jetzt die Frage?
1:06:38 bedeutet 1 h, 6 min , 38 s. Das sind also 1+6/60+38/3600=1,1105556 h oder in Tagen: 1,1105556/24=0,0462731.
Kurz: der Zellwert ist die Zeit in Tagen.
Bei 3 min muss also auf einen Wert von 3/60/24=0,002083 (Periode 3!) getestet werden.

Hallo zusammen,

habe noch ein Problemchen und mit Zeitformat kenn ich mich leider (noch nicht) aus.
Ich habe eine Tabelle und gehe da über die Zeilen in einer Spalte drüber.....

In der Spalte sind Zeiten enthalten. Nun möchte ich alle Zeilen löschen, wenn der Wert kleiner 3 Minuten ist.
In der Beispielzelle sehe ich zum Beispiel: 01:06:38

Im Anhang habe ich für Euch die Daten der Zelle aus MRI exportiert.
Meine Libre Version ist: 6.0.7.3

Vielen Dank für Eure Hilfe im voraus...

Grüsse
MavMan