Hallo ihr lieben,

ich bin auf der suche nach einer Möglichkeit in Calc eine komplette Zeile zu kopieren per makro wenn eine Bedingung erfüllt ist. Ich habe das ganze schon mit excel gemacht, doch leider wird diese liste jetzt auf einem linux rechner benönigt und excel geht nicht wirklich drauf... Ich kann gerne die ganze Exceldatei mal hochladen bzw. verlinken. Diese komplette liste soll nun auf Calc umgeschrieben werden.... bzw. eins nach dem anderen.

Sub ExtrahiereIrlbach()
Dim i, j, k As Integer
Dim wsQuelle, wsIrlbach, wsGast As Worksheet
Set wsGast = Worksheets("Gast")
Set wsIrlbach = Worksheets("Irlbach")
Set wsQuelle = Worksheets(1)
i = 1: j = 1: k = 1
While wsQuelle.Range("D" & i).Value <> ""
    If LCase(wsQuelle.Range("D" & i).Value) = "irlbach" Then
        wsQuelle.Rows(i).Copy wsIrlbach.Rows(j)
        j = j + 1
    Else
        wsQuelle.Rows(i).Copy wsGast.Rows(k)
        k = k + 1
    End If
    i = i + 1
Wend   End Sub

Dies habe ich in Excel und sowas brauche ich als erstes in Calc. Kann mir da jemand helfen?

https://1drv.ms/f/s!AnddpvFhgHQTiUFm7KFJdNBjTzvi (Excelliste)