PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

Forumthread: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

31.10.2024 15:51:24

Marcel2000

Hallo liebe Excel-Gemeinde,

ich soll eine Datei mit PowerQuery aufbauen, in der die Personalstärke der nächsten 18 Monate prognostiziert wird. Dazu bekomme ich alle möglichen Infos von der HR-Abteilung.
Bin auch schon relative weit. Ich hänge jetzt allerdings bei der Berücksichtigung der Themen Mutterschutz bzw. Elternzeit. Die Info wann wer in Mutterschutz bzw. Elternzeit ist, bekomme ich ebenfalls von HR.
Eine Person geht z.B. von Monat 2 bis einschl. Monat 4 in Mutterschutz, kommt dann wieder und ist danach nochmals von Monat 11 bis Monat 12 in Elternzeit.
Mir liegen aber keine Informationen vor, was in den Monat dazwischen ist. Ich muss aber wissen dass jemand in den Vormonate in Mutterschutz oder Elternzeit war, um Ableitungen zur Arbeitszeit treffen zu können.
Um das zu erreichen, wollte ich jetzt "einfach" per Funktion "nach unten ausfüllen" die Lücken schließen. Und dabei komme ich an meine Grenzen. Denn "nach unten ausfüllen" darf immer nur pro Mitarbeiter sein.
Sobald eine neue Personalnummer kommt, soll die Informationen des vorherigen Mitarbeiters nicht weiter nach unten ausgefüllt werden.
Ich beharre nicht auf das "nach unten ausfüllen". Falls jemand von euch eine bessere Idee hat, ist sie natürlich auch gerne willkommen.
Ich danke euch schon vielmals im Voraus und freue mich auf eure Lösungsvorschläge.

Bis dahin alles Gute

Marcel

Anbei der Link zur Test-Datei:
https://www.herber.de/bbs/user/173330.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

31.10.2024 19:09:32

Eifeljoi 5

Hallo

Wo ist dein Versuch mit PQ , ich sehe nix.??
Was soll in Spalte F??

AW: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfü

31.10.2024 19:24:21

Luschi

Hallo Marcel,

hier mal mein PQ-M-Code:

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,

        {{"PersonalNR", type text}, {"Monat", Int64.Type}, {"EZ/MS von HR", type text}}),

    #"Sortierte Zeilen" = Table.Sort(#"Geänderter Typ",

        {{"PersonalNR", Order.Ascending}, {"Monat", Order.Ascending}}),

    #"Gruppierte Zeilen" = Table.Group(#"Sortierte Zeilen", {"PersonalNR"},

         {{"Gruppe", each _, type table [PersonalNR=nullable text, Monat=nullable number, #"EZ/MS von HR"=nullable text]

         }}),

    #"Sortieren Gruppe" = Table.TransformColumns(#"Gruppierte Zeilen",

        {{"Gruppe", each Table.Sort(_, {{"Monat", Order.Ascending}})}}),



    #"in Gruppe auffuellen" = Table.TransformColumns(#"Sortieren Gruppe",

        {{"Gruppe", each Table.FillDown(_, {"EZ/MS von HR"})}}),

    #"Erweiterte Gruppe" = Table.ExpandTableColumn(#"in Gruppe auffuellen", "Gruppe",

        {"Monat", "EZ/MS von HR"}, {"Monat", "EZ/MS von HR"})

    

in

    #"Erweiterte Gruppe"

Gruß von Luschi
aus klein-Paris

Achtung: die Spalte 'Ergebnis' habe ich vorher aus fder formatierten Tabelle 'Tabelle1' entfernt!

AW: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfü

04.11.2024 11:00:54

Marcel2000

Hi Luschi,

Perfekt! Sehr coole Lösung. Genau das was ich brauchte. Hab wieder eine Menge dazu gelernt.

Vielen lieben Dank.

AW: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

31.10.2024 20:56:30

Klexy

Das funktioniert:

Sub Mutterschutz_ausfuellen()

Dim EintragSpalte As Range, z As Range

    Set EintragSpalte = Range("Tabelle1[[EZ/MS von HR]]")

    EintragSpalte.Select

    For Each z In EintragSpalte

        z.Select

        If z = "" Then

            If z.Offset(-1, 0) > "" And z.Offset(-1, 0) > "EZ/MS von HR" Then

                If z.Offset(0, -2) = z.Offset(-1, -2) Then

                    z = z.Offset(-1, 0)

                End If

            End If

        Else

        End If

    Next z

End Sub

AW: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

04.11.2024 10:58:19

Marcel2000

Hi Klexy,

vielen lieben Dank. Hab es getestet und es funktioniert auch bei mir :)

Beliebteste Forumthreads (12 Monate)

PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

Forumthread: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

Forumthread: PowerQuery Zeilenübergreifend / Bedingt nach unten ausfüllen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread