Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
996to1000
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

Zeilen wiederholen

Zeilen wiederholen
01.08.2008 12:43:00
uw
Hallo,
ich habe eine Tabelle mit den Spalten A , B , C ; D
In Spalte A steht die Artikelnummer und in B die Anzahl der Wiederholungen.
In den Spalten C und D sind Lagerort und Mengen
Artikel1 2 Lager3 2500
Artikel2 5 Lager1 500
Artikel3 3 Lager2 1000
Jetzt soll das Makro eine neue Tabelle erstellen mit den Anzahl der Artikel untereinander.
So soll's dann ausssehen:
Artikel1 2 Lager3 2500
Artikel1 2 Lager3 2500
Artikel2 5 Lager1 500
Artikel2 5 Lager1 500
Artikel2 5 Lager1 500
Artikel2 5 Lager1 500
Artikel2 5 Lager1 500
Artikel3 3 Lager2 1000
Artikel3 3 Lager2 1000
Artikel3 3 Lager2 1000
Gruss
Uwe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen wiederholen
01.08.2008 12:57:00
Ramses
Hallo
am einfachsten
Daten - Pivot Tabelle
und dem Assistenten folgen
Im letzten Schritt des Assistenten über "Layout" das Layout der Ausgabetabelle festlegen indem du die Felder entsprechend positionierst
Gruss Rainer

AW: Zeilen wiederholen
01.08.2008 13:31:00
Erich
Hallo Uwe,
probier mal

Option Explicit
Sub Wiederhol()
Dim arrA, lngZ As Long, arrN(), ii As Long, jj As Integer, kk As Long
arrA = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 4)
lngZ = WorksheetFunction.Sum(Columns(2))
ReDim arrN(1 To lngZ, 1 To 4)
For ii = 1 To UBound(arrA)
For jj = 1 To arrA(ii, 2)
kk = kk + 1
arrN(kk, 1) = arrA(ii, 1)
arrN(kk, 2) = arrA(ii, 2)
arrN(kk, 3) = arrA(ii, 3)
arrN(kk, 4) = arrA(ii, 4)
Next jj
Next ii
Worksheets.Add before:=Sheets(1)
Cells(1, 1).Resize(lngZ, 4) = arrN
End Sub

(Beim Start muss das Quellblatt das aktive Blatt sein.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen wiederholen
01.08.2008 14:24:41
uw
Hallo Erich,
vielen Dank,
das habe ich gesucht.
Gruss
Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige