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
Makro - Zeile löschen wenn WERT kleiner als
Moderator: Moderatoren
Re: Makro - Zeile löschen wenn WERT kleiner als
z.B.:
GRuß
Stephan
Code: Alles auswählen
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
Stephan
Re: Makro - Zeile löschen wenn WERT kleiner als
Hallo,
etwas einfacher wäre es die Zeilen von unten nach oben zu durchlaufen:
etwas einfacher wäre es die Zeilen von unten nach oben zu durchlaufen:
Code: Alles auswählen
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
Gruß,
mikeleb
mikeleb
Re: Makro - Zeile löschen wenn WERT kleiner als
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....
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....