dyn. Tabelle in 2tes Sheet sortiert

Hallo liebe Leute
Ich habe aus meiner UserForm eine unsortierte Tabelle mit vielen Spalten (bereits Zahlenwerte) sowie zwei Typenbezeichnungen (Spalte A + B - Gruppe resp. Stadtname). Diese Zahlen möchte ich nun in mein Berechnungssheet rüber-referenzieren (transponieren, ich möchte dort eine Spalte pro Stadt nicht eine Zeile), damit ich diese dort weiterverarbeiten kann. Das ganze soll natürlich dynamisch sein, da die Ausgangstabelle ständig wächst..
Normalerweise mache ich das mit SVERWEIS oder INDEX/VERGLEICH, um die Zahlenwerte entsprechend der Stadt zu referenzieren, nur geht das hier m.M.n. nicht, da ich die Reihenfolge der Zeilen (neu dann Spalten) eben auch gleich ändern möchte - und zwar zuerst alle Städte aus Gruppe A auflisten (darin alphabetisch sortiert), dann Gruppe B etc. (Total 4 Gruppen).
Das heisst, ich weiss nicht wie viele Spalten es pro Gruppe gibt (geben wird)..was sich nach Schlaufe mit Range(Länge der Liste) anhört oder? Am liebsten wächst die neue Berechnungstabelle automatisch anhand der Ausgangstabelle (aus UserForm).. v.a. muss ich ja die Gruppen / Städte irgendwie dynamisch sortieren und referenzieren können, die Zahlenwerte mache ich am besten weiterhin mit INDEX etc..
Am liebsten würde ich das ohne VBA machen, und benötige dazu bloss einen kleinen Schupps in die richtige Richtung. Aber evt. ists ohne VBA gar nicht möglich, dann müsste der Schubs etwas grösser ausfallen :)
Danke euch!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TabZweischreiben() Dim i As Long, j As Long, lz As Long arrSort = Tabelle5.ListObjects("Tbl_Kosten").DataBodyRange.Value With Tabelle1 If .ListObjects("Tbl_Ergebnis").ListRows.Count >= 1 Then .ListObjects("Tbl_Ergebnis").DataBodyRange.Delete End If For i = 0 To UBound(arrSort, 1) - 1 For j = 1 To UBound(arrSort, 2) .Cells(i + 2, j) = arrSort(i + 1, j) Next j Next i End With End Sub

Sub Gruppen_Filter() Sheets("A").Cells.Clear 'Sheet leeren, falls Datenbank-Tab geändert haben sollte Sheets("#Datenbank_Inputs").Select Range("A1").Select Selection.Autofilter ActiveSheet.Range("$A$1:$V$5").Autofilter Field:=1, Criteria1:="A" 'Filtern nach allen Städten aus Gruppe A Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("A").Select Range("A1").Select ActiveSheet.Paste Range("F2").Select With ActiveSheet.Sort .SortFields.Add Key:=Range("B1"), Order:=xlAscending 'Städte Alphabetisch sortieren .SetRange Range("A1", Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)) .Header = xlYes .Apply End With ..... ' das ganze nochmal 3 Durchläufe mit Gruppen B,C,D Sheets("#Datenbank_Inputs").Select ActiveSheet.Rows.Autofilter Sheets("#Output").Select Range("B2").Select End Sub

Sub SortMultipleColumns() With ActiveSheet.Sort .SortFields.Add Key:=Range("A1"), Order:=xlAscending .SortFields.Add Key:=Range("B1"), Order:=xlAscending .SetRange Range("A1:C13") .Header = xlYes .Apply End With End Sub

Hallo Beni,
positioniere der Cursor in Dateneingabe, Zelle A1,
Drücke Strg+t (oder Einfügen, Tabelle), hat überschriften: ja,
Es öffnet sich einen Menü "Tabellentools".
Gehe auf "Mit Pivottabelle zusammenfassen", einfach ok drücken. Dann hast Du ein neues Blatt mit einer Pivot.
Verschiebe das Pivottabel-Feld "Typ" im Bereich "SPALTEN" (Drag&Drop), dito für Objekt, aber direkt unter "Typ",
Verschiebe die Felder "Kosten 1", 2, 3, im Bereich "WERT",
mit einem klick auf "Anzahl von Kosten1" gehst Du auf "WertFeldeinstellungen..." und setzst "Wertfeld zusammenfassen nach" auf "Summe",
dito für Anzahl Kosten 2 und 3.
Weil Du mehrere Wertfelder hast, gibt es jetzt in Bereich "SPALTEN" einen "Werte"-Bezeichner. Den verschiebst Du in "ZEILEN".
Rechtsklicke noch auf "A" und schalte den "Teilergebnis Typ" aus.
Jetzt hast Du den Stand, den Du als Berechnung haben möchtest. Sortierung ist automatisch.
Kommen neue Städte in "Dateneingabe" rein, dann rechtsklicke auf dem Pivottabelle und wähle aktualisieren. Wenn nicht, dann sind die wenige Klickerei schnell nochmal gemacht.
In dem Menü "Pivottabellentools" (nur sichtbar wenn der Cursor auf der Pivot liegt), gehst Du auf "Felder, Elemente und Gruppen" und wähle "berechnetes Feld".
In dem Assistent gibst Du ein Name "Berechnung" und eine Formel = Kosten1 / 5 * Kosten3
Hinzufügen drücken, bevor Ok drücken.
Dann diesen neuen Feld "Berechnung" unter den "Summe von Kosten3" platzieren.
Ausgabe: mehrere Möglichkeiten
per Formel:
wenn Du irgendwo neben dieser Pivottabelle ein "=" reinschreibe und eine Wert-Zelle aus der Pivottabelle anklickst, dann hast Du eine Formel
=PIVOTDATENZUORDNEN("Summe von Kosten1";$A$3;"Typ";"A";"Objekt";"Berlin")
Damit kannst ummodeln ("Wien" anstatt "Berlin", "Summe von Berechnung" anstatt von Kosten1, ...), und Werte nebeneinander legen.
per gefilterte Spaltenüberschrift
wenn Du den "Typ" zurück in die Felderliste verschiebst, hast Du dann nur noch die Städte als Spaltenüberschrift. Gehe auf dessen Auswahlelement (neben "Spaltenbeschriftungen") und selektiere nur die Städe, die Du anzeigen möchtest.
Der Rest wirst Du selber durch "rumspielen" entdecken. Video-Tutorial gibt es wie Sand am Meer.
Es geht nichts kaputt, alles wird separat angezeigt.
Keine VBA, keine Formel.
Na gut: berechnetes Feld. Aber das muss due nicht wie eine Excel-Formel runterkopieren, wenn neue Zeilen vorkommen.
Sortierung: drin,
Filterung: drin.
Neue Daten: rechte MT, Aktualisieren.
Und jetzt, weil Du so schnell deine Wochenaufgabe erledigt hast, hast noch ganz viele Zeit um die intelligente Seiten von Excel zu entdecken.
Nur noch ein: VBA nur, wenn keine andere Möglichkeit gibt, oder für UDF, User Defined Function. Oder VBA selbst lernen. Aber Standardwerkzeug damit nachzuprogrammieren ist witzfrei.
VG
Yal
@Alwin: man kann wohl spaltenweise (also quer) sortieren.

Beliebteste Forumthreads (12 Monate)

dyn. Tabelle in 2tes Sheet sortiert

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dyn. Tabelle in 2tes Sheet sortiert

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread