Die­se Lück­en sol­len ge­füllt wer­den

Für eine sin­nvolle Fil­terung, Piv­ot-Auswer­tung oder aus an­de­ren Grün­den müs­sen nun die lee­ren Zei­len unter­halb des Na­mens mit dem gle­ichen Na­men aufge­füllt, also bis zum näch­sten Na­men bzw. der let­zen Daten­zeile ko­piert wer­den.

▲ nach oben …

Bei we­ni­gen Da­ten

Bis zu 10, vielle­icht 25 Na­men lässt sich die­ses ganz sim­ple Vorge­hen sehr be­quem durch­führen (nach Wun­sch natür­lich auch mehr):

• Die ein­zel­ne Zel­le mit dem Na­men mar­kie­ren
• Dop­pelk­lick auf das Aus­fül­lkästchen

Das war’s dann auch schon für die­sen Daten­satz. Das gle­iche Vorge­hen bei den fol­gen­den Na­men. Aus­nahme: Der let­zte Daten­block. Hier das Aus­fül­lkästchen von Hand nach un­ten zie­hen, weil ja kein fol­gen­der Tex­tein­trag (Name) die Begren­zung dar­stellt.

▲ nach oben …

In­ter­es­sant und be­quem

Prinzip­iell mit beliebi­gen Daten­men­gen mög­lich: „Trick 17“.  😎

• Mar­kie­ren Sie die Spal­te mit den fehlen­den Ein­trä­gen kom­plett bis zur let­zten Zei­le, wo Dat­en zum unter­sten einge­tra­ge­nen Na­men enthal­ten sind. Im Bild: A1:A13.
• Entwed­er den Be­fehl Gehe zu oder F5, alter­na­tiv StrgG.
• Im aufge­taucht­en Fen­ster wäh­len Sie den Punkt Leer­zel­len, dann OK.

In dem obi­gen Bei­spiel wä­ren im vor­her mar­kier­ten Bere­ich (in Spal­te A) nun die Zei­len 3–6, 9 und 12–13 mar­kiert. Die An­ker­zel­le A3 ist hel­ler her­vorge­hoben. Schrei­ben Sie nun in die An­ker­zel­le die For­mel =A2 und been­den Sie die Ein­ga­be mit StrgEin­ga­be. – Da­mit ist die Auf­gabe ge­löst.

▲ nach oben …

Be­son­ders leis­tungs­fä­hig

Wenn Sie in ein­er Excel-Ver­sion ab 2010 das Add-In Pow­er Que­ry instal­liert ha­ben (bzw. ab ²⁰¹⁶⁄₃₆₅ bere­its inte­gri­ert), dann bie­tet sich hier auch eine recht kom­fort­able und leis­tungs­fähige Lö­sungs­mög­lich­keit an.

• Klick­en Sie irgend­wo in den Daten­bere­ich und la­den Sie dann un­ter dem As­pekt (Men­üband) Excel-Dat­en | Von Ta­bel­le.
• Klick in die Über­schrift Name, die Spal­te wird bis zur Zei­le 12 mar­kiert
• Menü Trans­formieren, Grup­pe Be­lie­bi­ge Spal­te, Aus­füllen ▼, Nach un­ten.
• Zum Ab­schluss Schlie­ßen und la­den.

Vielle­icht müs­sen Sie noch et­was an den For­matierun­gen nach­bes­sern, aber wenn die Dat­en so­wie­so beispiel­sweise in ein­er Piv­ot­Table weit­er aus­gew­ertet wer­den sol­len, ist die­ses ein opti­maler Weg. Ins­beson­dere dann, wenn die Basis­dat­en stän­dig erweit­ert oder verän­dert wer­den zeigt sich der Vor­teil, dass die­ser Vor­gang nur ein­ma­lig erforder­lich ist und spä­ter jew­eils nur eine Aktu­al­isierung durchge­führt wer­den muss.

Nach­trag Juni 2020: Mit Pow­er Que­ry ist es gle­icher­maßen prob­lem­los mög­lich, „von un­ten nach oben” (bis zum dar­über liegen­den Ein­trag oder ers­ter Zei­le der Lis­te) die Dat­en aus­zu­fül­len.

▲ nach oben …

(Per VBA)

Ei­gent­lich eine ein­fache Übung. Den­noch oder vielle­icht auch dar­um hier kein Code. Wenn Sie Inter­esse ha­ben, dann ein­fach eine E‑Mail schick­en. Dann sen­de ich Ih­nen eine mög­li­che Lö­sung zu.

Sub LeerzellenAuffuellen()
   Dim rng As Range, c As Range
   Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlup).Row)
   For Each c In Bereich.SpecialCells(xlCellTypeBlanks)
      c = c.Offset(-1, 0)
   Next c 
End Sub

▲ nach oben …

Hat Ih­nen der Bei­trag ge­fal­len?
Er­leich­tert die­ser Bei­trag Ihre Ar­beit?

Dann wür­de ich mich über ei­nen Bei­trag Ihrer­seits z.B. 2,00 € freu­en …