Registriert seit: 23.10.2018
Version(en): versrion 10
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
Angehängte Dateien
TABELLE XLS FORUM.xlsx (Größe: 39,03 KB / Downloads: 20)
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
Autofilter.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
22.01.2019, 14:48
(Dieser Beitrag wurde zuletzt bearbeitet: 22.01.2019, 14:48 von Kuwer .
Bearbeitungsgrund: Code ergänzt
)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag: 1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• sandjar
Registriert seit: 23.10.2018
Version(en): versrion 10