HERBERS Excel-Forum - die Beispiele

Thema: Neue Anordnung einer Tabelle in zweitem Tabellenblatt

Home

Gruppe

Allgemein

Problem

Die Daten aus der einen Tabelle sollen in einer neuen Tabelle neu angeordnet werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub TabUmwandeln()
   Dim wks As Worksheet
   Dim var As Variant
   Dim iRowL As Integer, iRow As Integer, _
      iCol As Integer, iRowT As Integer
   Dim iColT As Integer
   Dim sLager As String
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   Set wks = ActiveSheet
   Worksheets.Add after:=Worksheets(wks.Index)
   iRowT = 1
   For iRow = 1 To iRowL
      If IsEmpty(wks.Cells(iRow, 2)) Then
         If IsEmpty(Range("B1")) Then
            iCol = 2
         Else
            iCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
         End If
         Cells(1, iCol).Value = wks.Cells(iRow, 1).Value
         sLager = wks.Cells(iRow, 1).Value
      Else
         var = Application.Match(wks.Cells(iRow, 1).Value, Columns(1), 0)
         If IsError(var) Then
            iRowT = iRowT + 1
            Cells(iRowT, 1).Value = wks.Cells(iRow, 1).Value
            Cells(iRowT, 2).Value = wks.Cells(iRow, 2).Value
         Else
            iColT = WorksheetFunction.Match(sLager, Rows(1), 0)
            Cells(var, iColT).Value = _
               Cells(iRowT, iColT).Value + wks.Cells(iRow, 2).Value
         End If
      End If
   Next iRow
   Cells(1, iCol + 1).Value = "Gesamt"
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, iCol + 1).Value = _
         WorksheetFunction.Sum(Range(Cells(iRow, 2), Cells(iRow, iCol)))
      iRow = iRow + 1
   Loop
   Rows(1).Font.Bold = True
   Rows(1).HorizontalAlignment = xlRight
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren

Pivot nach "% Differenz von" sortieren Todo-Liste sortieren
mit combobox sortieren Daten aus CSV per Makro sortieren
Zellen aus Liste in Spalten korrekt umsortieren Sporttabelle sortieren
revers sortieren Sortieren mithilfe Excel Makro
Automatisches sortieren mit Hilfe einer Formel Sortieren von Datumswerten in Zelle durch VBA
sortieren mit Zeilen hinzufügen Link ändert sich beim Sortieren
zweidimensionales Array sortieren Zahlenwerte mit QuickSort in Spalte sortieren
Sortieren-Makro erweitern Liste automatisch neu erstellen und umsortieren
ohne Vornamen sortieren Laufzeitfehler beim sortieren
Sortieren Sortieren
Spalte automatisch sortieren per Makro Sortieren einer Tabelle mit VBA
Auslesen und sortieren Überschriften zum Sortieren in Zeile 2
Sortieren auf anderer Tabelle VBA alphabetisch sortieren
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Arbeitsblätter sortieren Fehler bei Umlauten bestimmten Bereich sortieren
Sortieren-Fehler ListBox sortieren
Bei Klick auf Spaltenköpfe Tabelle sortieren per Formel sortieren + andere spalte mitnehmen
Daten mit Excel sammeln und sortieren Sortieren ein Fehler, BITTE nochmal helfen
Daten sortieren Sortieren klappt nicht
Range sortieren - Frage zu Sort Key Jedes 2 Wort umsortieren
Sortieren nach Textinhalt einer Zelle Arbeitsblätter nach Datum sortieren
Daten nach Datum zuordnen/sortieren Daten sortieren, 0 unten anstellen
Rang richtig sortieren Pivot Table nach dem Ergebnis autom. sortieren
ListBox sortieren, trotzdem Daten richtig auslesen Daten nach Import untereinander sortieren
suchen und Sortieren Sortieren