Excel soll die Tabelle automatisch nach einem Muster befüllen

[bibumuc1980]

Hallo Zusammen,

ich habe folgende Aufgabe zu lösen.
Es gibt eine OP Liste die wie folgt ausschaut


1010 BMW  
-
-
-
-
1020 Audi
-
-
-
-
1030 Porsche
-
-
-
-
-

Excel soll hergehen und die Liste selber ausfüllen, sprich überall wo die Striche sind (sind in Excel Leerzeilen) sollen Werte eingetragen werden.

Als Beispiel nehme ich BMW

1010 BMW  
- --> trage hier ein 1010 BMW
- --> trage hier ein 1010 BMW
- --> trage hier ein 1010 BMW
- --> trage hier ein 1010 BMW
1020 Audi
- --> trage hier ein 1020 Audi
- --> trage hier ein 1020 Audi
- --> trage hier ein 1020 Audi 
- --> trage hier ein 1020 Audi 
1030 Porsche
- --> trage hier ein 1030 Porsche
usw.

Anbei die Liste als Muster

Ich bedanke mich im Voraus bei Euch

Viele Grüße

Peter

[BoskoBiati]

Hi,

ein bißchen googeln:

https://www.business-wissen.de/artikel/e...uffuellen/
https://www.computerwissen.de/software/o...uffuellen/

[bibumuc1980]

Hi,

ein bißchen googeln:

https://www.business-wissen.de/artikel/e...uffuellen/
https://www.computerwissen.de/software/o...uffuellen/

Grüß dich und 1000 Dank, mein Kollege und ich haben ca. 30 Minuten gegoogelt, aber leider nichts gefunden.

Dir einen schönen Abend und Danke für die Hilfe

Peter

[Kuwer]

Hallo Peter,

Code:

Sub aaa()
  Dim rngA As Range, rngB As Range
  Set rngA = Range("A3:B" & Cells(Rows.Count, 3).End(xlUp).Row)
  If Application.CountBlank(rngA) Then
    Set rngA = rngA.SpecialCells(xlCellTypeBlanks)
    For Each rngB In rngA.Areas
      rngB.Value = rngB.Offset(-1).Resize(1).Value
    Next rngB
  End If
End Sub

Gruß, Uwe

[BoskoBiati]

Hallo Peter,

auf die Idee, die Links anzuklicken seid ihr wohl nicht gekommen!?