Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
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

Liste in Kreuztabelle

Liste in Kreuztabelle
14.11.2016 14:44:55
Jaylan
Hallo zusammen,
ich habe eine Liste "Aufträge" welche ich in einem neuen Register als Kreuztabelle abspeichern möchte. Die Eingabetabelle sowie die "Wunschkreuztabelle" habe ich als Beispiel hochgeladen:
https://www.herber.de/bbs/user/109407.xlsx
Eine Umsetzung ist als MAKRO erwünscht. Vielleicht hat ja jemand schonmal so was programmiert.
LG
Jay

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste in Kreuztabelle
14.11.2016 15:35:37
UweD
Hallo
meinst du das so?
Sub Kreuz()
    Dim TB, LR As Long, LC As Integer, i As Long, j As Long, z As Long
    With Sheets("Aufträge")
        LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte 
        LC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
        Set TB = Sheets.Add(after:=Sheets(Sheets.Count))
        TB.Cells(1, 1) = "Aufträge"
        TB.Cells(1, 2) = "KW"
        TB.Cells(1, 3) = "Menge"
        z = 1
        For i = 2 To LR
            For j = 2 To LC
                z = z + 1
                TB.Cells(z, 1) = .Cells(i, 1)
                TB.Cells(z, 2) = .Cells(1, j)
                TB.Cells(z, 3) = .Cells(i, j)
            Next j
        Next i
    End With
    TB.Range("C2:C" & z).NumberFormat = "0.0"
End Sub
LG UweD
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige