SPALTE MIT GRÖSSEN GENERIEREN

[sandjar]

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

[Klaus-Dieter]

Hallo,

Autofilter.

[Kuwer]

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

[sandjar]

PERFEKT !! DANKE!!