Clever-Excel-Forum

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

Hi,

ein bißchen googeln:

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

(20.07.2023, 17:59)BoskoBiati schrieb: [ -> ]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

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

Hallo Peter,

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

[attachment=48814]

bibumuc1980

BoskoBiati

bibumuc1980

Kuwer

BoskoBiati