Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neuanordnen/Sortieren

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige