Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Neuanordnen/Sortieren

Neuanordnen/Sortieren
16.09.2005 11:37:57
Matthias
Hallo zusammen!
Mir steht eine Tabelle zur Verfügung, in der für jeden Kunden die Artikelanzahl für einen bestimmten Zeitraum angegeben ist.
Nun sind die Artikel horizontal aufgelistet.
Für eine Weiterverarbeitung benötige ich die Angaben für die Artikel in einer Spalte, daneben die Mengenangaben für diesen Artikel. Bisher stehen diese Angaben nebeneinander (s. Bsp.-Tabelle).
Da es sich monatlich um ca. 500 Kunden mit ungefähr 30 Artikeln handelt, lässt sich diese Problemstellung nicht so leicht mit kopieren bewerkstelligen.
Vielleicht hat jemand von euch einen Lösungsansatz.
Wäre zumindestens ganz hilfreich.
Bis denn.
Matthias
https://www.herber.de/bbs/user/26648.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neuanordnen/Sortieren
16.09.2005 13:21:44
Uduuh
Hallo,
In der ersten Spalte der Kunde, in der letzten der Monat, dazwischen die Artikel.
Artikelbezeichnungen in Zeile2

Sub konvertieren()
Dim R As Long, C As Byte, iCols As Byte, R2 As Long
Application.ScreenUpdating = False
R2 = 2
With Sheets(1)
iCols = .Cells(2, Columns.Count).End(xlToLeft).Column
For R = 3 To Sheets(1).Cells(65536, 1).End(xlUp).Row
For C = 2 To iCols - 1
Sheets(2).Cells(R2, 1) = .Cells(R, 1)
Sheets(2).Cells(R2, 2) = .Cells(2, C)
Sheets(2).Cells(R2, 3) = .Cells(R, C)
Sheets(2).Cells(R2, 4) = .Cells(R, iCols)
R2 = R2 + 1
Next C
Next
End With
Application.ScreenUpdating = False
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Neuanordnen/Sortieren
16.09.2005 15:24:31
Matthias
Danke!
Ich habe ein paar Anpassungsschwierigkeiten, werde es aber hinbekommen.
Schönes WE!
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige