Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
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
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle nach größtrer Spaltensumme sortieren

Tabelle nach größtrer Spaltensumme sortieren
18.12.2012 08:04:38
Micha
Hallo guten morgen,
in der folgenden beigefügten Tabelle möchte ich, dass die Tabelle sämtliche Einträge "automatisch" immer nach der größten Summe in Spalte J sortiert.
https://www.herber.de/bbs/user/83046.xls
Es wäre schön, wenn mir hier eine behilflich sein könnte.
Danke und Gruß
zwilling77

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
"Automatisch" ist gut...
18.12.2012 08:30:50
Marc
Moin!
Hier erstmal der Code zum Sortieren, absteigend nach Summe (Spalte "J").
Sub sortieren()
lz = ActiveSheet.UsedRange.Rows.Count - 1
Range("A4:N" & lz).Sort Range("J4"), xlDescending
End Sub
"Automatisch" muss einen Auslöser haben. Bei jeder Änderung würde deine Tabelle ständig umschmeissen. Bei Sheet-Aktivierung fänd ich ganz passend, aber das musst du selbst wissen.
Gruß, MCO

AW: "Automatisch" ist gut...
18.12.2012 08:47:52
Micha
Hallo MCO;
danke für die Antwort. Sobald sich der Summenwert in Spalte J ändert, wird die TAbelle nach meinem Test her mit Deinem Makro leider nicht sofort sortiert, son dern erst dann, wenn das MAkro von mir manuell ausgeführt wurde.
Kann ich in den Makroeinstellungen etwas verändern, so dass dieses direkt bei Änderung eines ZEllwertes ausgeführt wird ?
Gruß
zwilling77

Anzeige
AW: mit Change-Event, in den richtigen Zellen
18.12.2012 12:35:58
Daniel
Hi
das geht schon automatisch.
da in der Spalte J allerdings Formeln stehen, welche sich auf die Spalten C, E, G und I beziehen, musst du im Changeevent diese 4 Spalten auf eine Änderung überprüfen.
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A3").CurrentRegion
With .Offset(1, 0).Resize(.Rows.Count - 2)
If Not Intersect(Target, .Cells, Range("C:C,E:E,G:G,I:I")) Is Nothing Then
.Sort key1:=.Cells(1, 10), order1:=xlAscending, Header:=xlNo
End If
End With
End With
End Sub
Gruß Daniel

307 Forumthreads zu ähnlichen Themen

Spalteninhalt verschieben
Andreas

Einen guten Tag allen,
habe ein Problem. Habe eine Liste aus dem SAP ausgeleitet.
In dieser ist die Spalte A leer die Werte aus der Spalte B bis F sollen in die Spalte A verschoben werden.
In den Zeilen steht immer nur ein Wert. Wenn z.B. ein Wert in der Spalte B steht, ist Spalte C...
02.02.2009 14:39:42
Thread-ID: 1046256
3 Beiträge
Anzeige
Excel Pivottabelle Teilergebnisse
Andreas

Hallo Zusammen,
ich habe eine Pivottabelle erstellt, in der aktuell die Teilergebnisse ausgeblendet sind. Gibt es eine Möglichkeit die Teilergebnisse in der Spalte neben den Einzelwerten anzeigen zu lassen?
BSP:
Rubrik1-
----Karton 7
----Tasche 2----Summe Rubrik1: 9
Rubr...
27.07.2009 13:49:31
Thread-ID: 1091598
7 Beiträge
Spalteninhalte verschieben
Lemmi

Hallo zusammen,
ich möchte Datenspalten um jeweils eine Spalte nach rechts oder nach links verschieben!
Wenn ich nun eine Spalte bzw. eine Zelle markiert oder aktiviert ist und ein Butten Drücke (Pfeil rechts oder nach links) so sollen die Zeileninhalte um 1 Spalte nach rechts oder nach...
12.08.2009 17:53:45
Thread-ID: 1095385
14 Beiträge
Anzeige
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Pivottabelle bei mehreren Spalten
RolandE

Hallo,
ich möchte eine Pivottabelle aus 3 Spalten erstellen. Zahl1 und Zahl2 sollen je nach ID zusammengezählt werden.
Leider schreibt Excel die Summen von Zahl1 und Zahl2 untereinander. Ich möchte sie jedoch nebeneinaner haben, wie auf dem Blatt "Ziel" angedeutet.
https://www.herbe...
23.01.2010 13:58:57
Thread-ID: 1132305
5 Beiträge
Spalteneintrag verschieben
Saxinger

Schönen Guten Morgen zusammen!
Hat jemand eine Lösung für folgendes Problem?
Ich möchte immer in der selben Zelle zB.: A1 einen Wert eingeben.
Nach einer Eingabe soll sich der gerade eingegebene Wert automatisch nach A2 verschieben
und die Zelle A1 wieder frei sein für eine we...
04.02.2010 11:43:19
Thread-ID: 1135687
22 Beiträge
mehrere Spalten auf einmal in Pivot ziehen
Maria

Hallo zusammen,
eine Frage zur schnellen Erstellung von Pivots:
Die Datenquelle enthält eine Zeitreihe über mehrere Jahre hinweg (ca. 50 Spalten für die einzelnen Monate). Die einzelnen Elemente der Datenquelle möchte ich in der Pivot in den Datenbereich ziehen. Muss ich nun wirklich 50...
15.05.2010 11:50:21
Thread-ID: 1157026
2 Beiträge
Pivottabelle sortieren VBA
Florian

Guten Morgen Excel-Freunde!
Hätte eine Frage bzgl. Pivottabellen (VBA): wie kann ich Daten sortieren (Befehlszeile)?
Die Tabelle erstell ich wie folgt, ich möchte gern nach Umsatz absteigend sortieren. Wie geht das?
Danke Euch schon mal!
Gruss Florian
Set pt = PTCache.Create...
21.05.2010 11:29:52
Thread-ID: 1158192
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
6
13
9
2
4
21
1
2
2
5
1
2
5
1
8
4
3
3
1
4
1
3
3