Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

*Tabelle nach zwei Kriterien sortieren*

*Tabelle nach zwei Kriterien sortieren*
17.01.2020 08:11:50
Kurt
Guten Tag zusammen,
Ich möchte eine Tabelle nach zwei Kriterien sortieren (1. aufsteigend nach Spalte M 2. _
aufsteigend nach Spalte A). Dazu habe ich folgenden Code:

ActiveWorkbook.Sheets("Personal").Range("A10:O187").Sort _
Key1:=ActiveWorkbook.Sheets("Personal").Range("M10"), Order1:=xlAscending, DataOption1:= _
xlSortNormal, _
Key2:=ActiveWorkbook.Sheets("Personal").Range("M1"), Order2:=xlAscending, DataOption2:= _
xlSortNormal, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom0
Leider bekomme ich dauernd folgende Fehlermeldung:

Fehlermeldung:
Laufzeitfehler '-2147417848 (80010108)':
Automatisierungsfehler
Das aufgerufene Objekt wird von den Clients getrennt.

Wie bekomme ich das zum Laufen ?
Vielen Dank für die Hilfe.....

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 08:17:08
Torsten
Hallo Kurt,
1. aufsteigend nach Spalte M 2. aufsteigend nach Spalte A

Warum sortierst du dann 2 mal Spalte M? Siehe dein Code: 

ActiveWorkbook.Sheets("Personal").Range("A10:O187").Sort _
Key1:=ActiveWorkbook.Sheets("Personal").Range("M10"), Order1:=xlAscending,  _
DataOption1:= _
xlSortNormal, _
Key2:=ActiveWorkbook.Sheets("Personal").Range("M1"), Order2:=xlAscending,  _
DataOption2:= _
xlSortNormal, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom0

Anzeige
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 09:07:00
Kurt
Hallo Torsten,
Das war nur ein Tippfehler und ich habe den Thread nicht mehr korrigiert bekommen.
  ActiveWorkbook.Sheets("Personal").Range("A10:O187").Sort _
Key1:=ActiveWorkbook.Sheets("Personal").Range("M10"), Order1:=xlAscending, DataOption1:= _
xlSortNormal, _
Key2:=ActiveWorkbook.Sheets("Personal").Range("A10"), Order2:=xlAscending, DataOption2:= _
xlSortNormal, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Das Problem ist aber, dass die Tabelle überhaupt nicht sortiert wird. Ich vermute, es liegt irgendwie an der Referenzierung. Ich habe auch schon versucht, die Events vorher auszuschalten und hinterher wieder anzuschalten. Das hat jedoch auch nicht dazu geführt, dass der Code ausgeführt wird.
Anzeige
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 09:33:44
Werner
Hallo,
With ThisWorkbook.Worksheets("Personal")
.Range("A10:O187").Sort Key1:=ActiveWorkbook.Sheets("Personal").Range("M10"), _
Order1:=xlAscending, DataOption1:=xlSortNormal, _
key2:=ActiveWorkbook.Sheets("Personal").Range("A10"), Order2:=xlAscending, _
DataOption2:=xlSortNormal, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Gruß Werner
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 09:46:03
Kurt
Hallo Werner,
Vielen Dank....aber das hatte ich auch schon probiert. Der Fehler kommt trotzdem, der Code wird nicht ausgeführt und ab .Range bis xlTopToBottom wird gelb markiert im Editor.
Anzeige
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 09:54:32
Werner
Hallo,
bei mir nicht und mehr kann ich dazu nicht sagen.
Gruß Werner
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 12:24:28
Kurt
Sehr seltsam....
So sieht das bei mir aus:
Userbild
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 12:38:23
Werner
Hallo,
sorry, hatte vergessen die ganzen ActiveWorkbook.Sheets(.... raus zu machen. 
With ThisWorkbook.Worksheets("Personal")
.Range("A10:O187").Sort Key1:=.Range("M10"), Order1:=xlAscending, _
DataOption1:=xlSortNormal, key2:=.Range("A10"), Order2:=xlAscending, _
DataOption2:=xlSortNormal, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
Gruß Werner
Anzeige
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 14:20:03
Kurt
Irgendwie ist das wie verflixt...die Fehlermeldung bleibt....
Userbild
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 14:25:56
Werner
Hallo,
das wird so nix. Ohne deinen weiteren Code bzw. noch besser deine Datei ist das nur gestochere im Nebel. Ich kann dazu nur sagen, dass es bei mir läuft.
Gruß Werner
AW: *Tabelle nach zwei Kriterien sortieren*
17.01.2020 16:37:07
Kurt
Na viel ist da nicht drin in meinem Tabellenblatt:
Userbild
Die vier Commandbuttons im oberen Bereich. Der Code des gesamten Tabellenblattes ist dann:
Private Sub CommandButton1_Click()
Auswahl.Show
End Sub
Private Sub CommandButton2_Click()
Call Pruefen
End Sub
Private Sub CommandButton3_Click()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
Private Sub CommandButton4_Click()
With ThisWorkbook.Worksheets("Personal")
.Range("A10:O187").Sort Key1:=.Range("M10"), Order1:=xlAscending, _
DataOption1:=xlSortNormal, key2:=.Range("A10"), Order2:=xlAscending, _
DataOption2:=xlSortNormal, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

Anzeige
und die soll man jetzt nachbauen?
17.01.2020 17:20:38
Werner
Hallo,
warum ein Bild und nicht die Datei?
Gruß Werner
AW: und die soll man jetzt nachbauen?
17.01.2020 18:07:15
Werner
Hallo,
bei mir kommt mit der hochgeladenen Version keine Fehlermeldung.
Versuch mal das hier.
https://www.herber.de/bbs/user/134490.xlsm
Gruß Werner
AW: und die soll man jetzt nachbauen?
17.01.2020 18:50:27
Kurt
wenn ich das öffne kommt als Fehlermeldung:
Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs.
Ich versuche mal, die Datei auf einem anderen Rechner auszuführen....
Anzeige
läuft auf anderem PC
20.01.2020 08:53:10
Kurt
Hallo Werner,
Das ist wirklich sehr seltsam. Auf einem anderen PC mit einer älteren Excel-Version (Excel 2010) läuft der Code einwandfrei. Auf meinem Excel 2016 kommen wie gesagt die Fehlermeldungen.
Dann scheint es also an Excel zu liegen. Vielen Dank für die Unterstützung !!0
Gerne u. Danke für die Rückmeldung.
21.01.2020 12:37:03
Werner
Hallo,
und übrigens ich habe hier Excel 2016.
Gruß Werner

310 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Falsche Bildgröße nach dem Sortieren?
Kasimir

Hallo an alle!
Ich habe da ein Problem. Ich habe eine Datei, in der in einigen Zellen in Spalte I Grafiken eingebunden sind. In anderen Zellen ebenfalls in Spalte I steht nur Text. Die Zeilen haben alle unterschiedliche Höhen. Die mit Grafik sind höher, die mit nur Text sind nicht so hoch....
23.06.2009 21:33:24
Thread-ID: 1083760
2 Beiträge
Anzeige
Zahlen bei klick in nächste spalte übertrage
Didi

Hallo Leuete,
ich brauche euere Hilfe.!
folgende Situation möchte ich einwenig beschleunigen:
Gibt es zwei Tabellenbereiche, gleich aufgebaut.
Tabellen Bereich -Ausgang (C5:C36) - wird täglich muttiert, dort gebe ich jeden Tag ausgangszahlen ein.
In Tabellen Bereich -Statist...
05.09.2009 09:31:28
Thread-ID: 1100743
3 Beiträge
Tabelle nach "Datum" sortieren (Datum ist TEXT)
Thema

Hallo liebe EXperts,
habe eine Tabelle mit Minima für jede Woche eines Jahres, sortiert nach Werten.
Die Tabelle muss weitergeben werden und dabei nach Datum sortiert werden.
Leider liegt der Zeitstempel nur als Text vor, im Format WT TT.MM.JJ HH:MM:SS,
z.B. Do 01.01.09 00:00:0...
18.11.2009 19:31:41
Thread-ID: 1118437
5 Beiträge
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 Beiträge
tabellenblätter nach name sortieren
Jonatan

Hallo,
habe folgenden Frage: Gibt es eine Standardsortierfunktion für die Anordnung der Tabellenlätter?
Ich habe etwa 50 Tabellenblätter, die alle als Namen eine Stringfolge aus 2 Buchstaben haben.
Dazu habe ich mir selbst eine kleine Prozedur geschrieben, die zwar funkioniniert, ab...
16.06.2010 16:48:12
Thread-ID: 1162265
4 Beiträge
Tabelle nach mehr als 3 Spalten sortieren
manasse

Hallo zusammen,
ich möchte eine große Tabelle nach mehr als drei Spalten sortieren. Standardmäßig geht das ja nur mit maximal drei Spalten. Kennt jemand dazu eine Lösung?
Für jegliche Hilfe bin ich dankbar.
Dank und Gruß
Manasse
04.11.2010 11:49:12
Thread-ID: 1185146
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
5
1
2
1
10
2
4
3
3
2
11
2
4
3
2
3
6
15
8
3
1
3
1
6
12