Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Transponieren

Transponieren
17.09.2003 16:24:22
Gerhard Henneicke
Hallo Profis,
ich habe folgendes Problem:
Ich erhalte eine Excel-Tabelle in folgender Form:
Betrieb Rechnungs-Wert
Nr.
00001 10,00 (dabei ist die Anzahl der Betriebe
00001 20,00 und die Zahl der Rechnungen pro Betrieb variabel)
00001 30,00
00002 50,00
00003 30,00
00003 40,00
00003 40,00
00003 60,00
00004 90,00
00004 80,00

Ziel ist folgende Darstellung:

Betr-Nr 1. Rg. 2. Rg. 3. Rg. 4. Rg.
00001 10,00 20,00 30,00
00002 50,00
00003 30,00 40,00 40,00 60,00
00004 90,00 80,00

Für eine funktionierende Lösung bin ich dankbar.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Pivot-Tabelle
17.09.2003 16:43:36
ChrisL
Hi Gerhard

Grundsätzlich kannst du es mit einer Pivot-Tabelle umsetzen. Brauchst dann aber in Spalte A noch Rg.1, Rg.2, Rg.3 etc. Ein kleines Makro nimmt dir die Arbeit ab.

https://www.herber.de/bbs/user/1060.xls

Option Explicit


Sub Macro1()
Dim i As Long, Counter As Long
Columns("A:A").Insert Shift:=xlToRight
Range("A1") = "Rechnung"
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i - 1, 2) = Cells(i, 2) Then
Counter = Counter + 1
Cells(i, 1) = "Rg. " & Counter
Else
Counter = 1
Cells(i, 1) = "Rg. " & Counter
End If
Next i
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R" & Range("A65536").End(xlUp).Row & "C3", TableDestination:="", TableName:="PivotTable4"
ActiveSheet.PivotTables("PivotTable4").AddFields RowFields:="Nummer", _
ColumnFields:="Rechnung"
ActiveSheet.PivotTables("PivotTable4").PivotFields("Betrag").Orientation = _
xlDataField
End Sub


Gruss
Chris
Anzeige
AW: Pivot-Tabelle
18.09.2003 09:17:40
Gerhard Henneicke
Vielen Dank.
Ich bin echt begeistert.
Formellösung
17.09.2003 17:33:10
Ingo
Hallo Gerhard,
hab mal eine Formellösung aufgebaut, die aus tabelle1 (sortiert nach a2:a1000)
die entsprechenden werte nach tabelle2 zieht.
Du mußt nur die Matrixformel weiter nach unten bzw nach rechts kopieren, je nach platzbedarf (spalte A Formel natürlich nur nach unten formel aus b2 nach unten bzw nach rechts.
Da es probleme mit der wenn funktion gab hab ich die zellen, in denen keine werte vorkommen mit 0 gefüllt und über optionen deren ausgabe unterdrückt.

solltest Du mehr als 1000 zeilen in dseiner ausgangstabelle haben, einfach in den formeln die 1000 in den entsprechenden wert ändern

Ich hoffe, das hilft dir weiter

Gruß Ingo

https://www.herber.de/bbs/user/1061.xls
Anzeige
AW: Formellösung
17.09.2003 17:38:33
ChrisL
Hi Ingo

Bin ich echt beeindruckt. Hätte nicht gedacht, dass sich dieses Problem auch mit Formeln lösen lässt. Well done!

Schönen Feierabend.
Chris
AW: Formellösung
17.09.2003 17:54:38
ingo
Hallo Chris,
freut mich, dass dir die lösung gefällt ;-)
Gruß Ingo
AW: Formellösung
18.09.2003 09:33:30
Gerhard Henneicke
Vielen Dank.
Funktioniert auch.
Formellösung 2, bei nicht sortierten Bereich
18.09.2003 09:37:05
Panicman
Hallo Gerhard,

die Lösung von Ingo ist schon suuuper *staun*
Falls du aber Daten bekommst, die nicht sortiert sind,

schau dir mal mein Beispiel an. Ein bischen komplizierter aber funzt (bei mir)

Gruß
Holger
AW: sorry, zu blöd zum hochladen, jetzt aber
18.09.2003 10:57:08
Gerhard Henneicke
Echt Super!!!! Danke.
Bitteschön, hab gern geholfen !! o.T.
18.09.2003 11:06:59
Panicman

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige