Spalte befüllen bis zum nächsten Eintrag

[franken]

Hallo zusammen

ich bräuchte mal eure Mithilfe

ich lade täglich Artikel und Auftragsdaten
das sind oft mehrere 100 Zeilen

Da oft der der gleiche Artikel für unterschiedliche Aufträge verwendet wird 
hab ich dann in der Spalte Artikel Leerzeilen die mit der darüberstehenden 
Nummer vervollständigt werden soll bis zum nächsten Eintrag 

Anbei ein Beispiel 

gibt es da eine Möglichkeit

Danke an alle im Voraus

[MisterBurns]

Hallo,

folgender simpler Weg:
Spalte A markieren - Taste F5 - Inhalte - Leerzellen - Ok
Gib nun die Formel =A2 ein und drücke bei gehaltener Strg-Taste auf Enter - Fertig.

Lässt sich auch als Makro aufzeichnen.

[Sigi.21]

Hallo Franken,

oder als Makro:

Sub ArtikelErgänzen()
Dim i As Long, z As Long, Artk As Long
        z = ActiveSheet.UsedRange.Rows.Count
        Artk = Cells(2, 1).Value
        For i = 3 To z
            If Cells(i, 1) <> "" Then
                Artk = Cells(i, 1).Value
            Else
                Cells(i, 1).Value = Artk
                Cells(i, 1).Font.Color = 255
            End If
        Next i
End Sub


Gruß
Sigi

[bug99]

Hallo,

folgender simpler Weg:
Spalte A markieren - Taste F5 - Inhalte - Leerzellen - Ok
Gib nun die Formel =A2 ein und drücke bei gehaltener Strg-Taste auf Enter - Fertig.

Lässt sich auch als Makro aufzeichnen.

evtl. noch anschließend
strg-C  und Werte Einfügen