Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Je nach anzahl Menge in Zeile schreiben

Je nach anzahl Menge in Zeile schreiben
10.06.2017 14:10:45
Adem
Hallo, undzwar habe ich ein Problem und brauche einen VBA-Code für mein Excel Programm. Je nach Menge möchte ich das mein ID Spalte untereinander in Zeilen geschrieben wird.
zb. Spalte ID Menge
123 3
456 2
78 1
Als Lösung möchte ich haben per VBA Code
123 1
123 1
123 1
456 1
456 1
78 1
wäre sehr dankbar für jede kleine hilfe
Danke im Vorraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 14:20:24
Adem
Hier noch mal zur mein Beispiel
"Malzeme" ist mein ID und "Faturalanan miktar" meine Menge.
mit vba code würde ich da gerne stehen haben 9x"23SAN4277AWID00" UNTEREINANDER und dem entsprechen bei "Faturalanan miktar" die 1
2x untereinander 202ELBT570200026"
usw.
ich hoffe sie können mir weiterhelfen.
Userbild
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:03:43
Daniel
HI
als VBA Code so:
die neue Tabelle wird neben der alten eingefügt:
Sub Duplizieren1()
Dim ID
Dim Anz
Dim Erg
Dim i As Long, a As Long, e As Long
With Cells(1, 1).CurrentRegion
ID = .Columns(4).Value
With .Columns(13)
Anz = .Value
ReDim Erg(1 To WorksheetFunction.Sum(.Cells), 1 To 2)
End With
End With
For i = 2 To UBound(ID, 1)
For a = 1 To Anz(i, 1)
e = e + 1
Erg(e, 1) = ID(i, 1)
Erg(e, 2) = 1
Next a
Next i
Cells(1, 1).End(xlToRight).Offset(0, 2).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg
End Sub
Gruß Daniel
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:36:28
Adem
Hallo,
Vielen Dank für die schnelle Antwort.
Die Lösung ist Richtig so hatte ich mir es vorgestellt aber würde gerne auch die anderen Spalten A bis S mit kopiert haben.
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 15:54:21
Daniel
Hi
Sub Duplizieren2()
Dim Arr
Dim Erg
Dim z As Long, a As Long, e As Long, s As Long
With Cells(1, 1).CurrentRegion
Arr = .Value
ReDim Erg(1 To WorksheetFunction.Sum(.Columns(13)), 1 To .Columns.Count)
End With
For z = 2 To UBound(Arr, 1)
For a = 1 To Arr(z, 13)
e = e + 1
For s = 1 To UBound(Arr, 2)
Erg(e, s) = Arr(z, s)
Next s
Erg(e, 13) = 1
Next a
Next z
Cells(1, 1).End(xlToRight).Offset(0, 2).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg
End Sub
Gruß Daniel
Anzeige
AW: Je nach anzahl Menge in Zeile schreiben
10.06.2017 16:00:47
Adem
Genau so Vielen Dank

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige