Clever-Excel-Forum

Hallo XLS FORUM,

ich habe eine XLS Liste mit unzähligen Artikeln. Ich benötige eine Spalte mit Größen Angaben von 34-48 pro Artikel wie in der angehängten Tabelle in GRÜN dargestellt.
Könnt Ihr mir weiterhelfen ?

Vielen Dank Sandjar

Hallo,

Autofilter.

Hallo,

lass folgendes Makro laufen:

Sub GroessenEinfuegen()

  Dim arrGroessen(1 To 8, 1 To 1) As Long

  Dim i As Long

  

  arrGroessen(1, 1) = 34

  arrGroessen(2, 1) = 36

  arrGroessen(3, 1) = 38

  arrGroessen(4, 1) = 40

  arrGroessen(5, 1) = 42

  arrGroessen(6, 1) = 44

  arrGroessen(7, 1) = 46

  arrGroessen(8, 1) = 48

  

  Application.ScreenUpdating = False

  For i = Cells(Rows.Count, 1).End(xlUp).Row To Cells(Rows.Count, 4).End(xlUp).Row + 1 Step -1

    Rows(i).Copy

    Rows(i + 1).Resize(7).Insert

    Cells(i, 4).Resize(8).Value = arrGroessen

    Cells(i + 1, 1).Resize(7, 2) = ""

  Next i

  Application.CutCopyMode = False

  Application.ScreenUpdating = True

End Sub

Gruß Uwe

PERFEKT !! DANKE!!