Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortieren

Sortieren
06.10.2003 17:40:28
Kevin
Hallo

Ich habe eine kleine Tabelle, die mehreren Informationen enthält, gemacht und habe dann über DATEN-SORTIEREN die Einträge sortiert wie es mir gefällt.

Nun nehme ich Änderungen an der Tabelle vor, die auch das Sortierergebnis verändern können. Gibt es die Möglichkeit, dass mir die Tabelle dann sofort das neue Sortierergebnis anzeigt, oder muss ich immer wieder über DATEN-SORTIEREN gehen??

ich hoffe das klingt nicht allzu kompliziert!!!

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
06.10.2003 17:57:06
Hajo_Zi
Hallo Kevin

ob Dir das bei Deinem Level hilft???
Schaue mal auf meine Homepage.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

AW: Sortieren
06.10.2003 18:16:04
Kevin
hallo

danke für die hilfe!
bin grad auf deiner seite, aber irgendwie hilft mir das ned viel!!

gruß
kevin
Anzeige
AW: Sortieren
06.10.2003 17:57:45
th.heinrich
hallo Kevin,

zeichne ein MAKRO auf welches die SORTIERUNG enthaelt und weise es dann einem WORKSHEET_CHANGE ereignis zu.

gruss thomas
AW: Sortieren
07.10.2003 00:01:18
Kevin
hallo

also, da ich nicht der held bin was makros angeht habe ich da noch eine frage.
die aufzeichnung habe ich hinbekommen, aber leider komm ich dann nicht weiter.

ich bitte um detailiertere hilfe!!

danke
kevin
AW: Sortieren
07.10.2003 15:22:41
th.heinrich
hallo Kevin,

in excel mit ALT+F11 in die VBA umgebung wechseln. jetzt im linken oberen feld auf die TABELLE doppelclicken in der SORTIERT werden soll.

im rechten grossen feld gibt es oben 2 DROPDOWN felder, mache aus ALLGEMEIN WORKSHEET und aus DEKLARATION CHANGE. dazwischen den aufgezeichneten CODE einfügen, wobei die SUB und ENDSUB zeile der aufzeichnung geloescht werden muessen.

dann steht dort


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dein CODE
End Sub


und hoffen, dass es klappt ;-)

gruss thomas
Anzeige
AW: Sortieren
07.10.2003 17:18:11
Kevin
Klasse

Vielen Dank!!!
Es geht...

Gruß
Kevin
AW: Sortieren
07.10.2003 17:36:27
Kevin
hy

so, wie ich oben ja geshrieben hat funktioniert es.

ich hätet da aber noch was!!!
der grund für mein anliegen war folgender:
ich bin am organisieren eines kleinen fussball-turniers und möchte gerne die ergebnis-verwaltung auf PC machen. ich habe 4 gruppen und das makro so aufgezeichnet, sobald sich ein spielstand ändert wird die jeweilige tabelle geändert.

wie schon gesagt, das macht es auch wunderbar, nur ist es etwas störend, das nach eingabe des ergebnissen er cursor ans ende des blatt springt.
ich poste mal mein makro, vielleicht weißt du wieder rat!!


Private Sub Worksheet_Change(ByVal Target As Range)
' GruppeAlle Makro
' Tastenkombination: Strg+q
Range("T11:W16").Select
Selection.sort Key1:=Range("V12"), Order1:=xlDescending, Key2:=Range( _
"W12"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("T24:W29").Select
Selection.sort Key1:=Range("V25"), Order1:=xlDescending, Key2:=Range( _
"W25"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
ActiveWindow.SmallScroll Down:=9
Range("T37:W42").Select
Selection.sort Key1:=Range("V38"), Order1:=xlDescending, Key2:=Range( _
"W38"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
ActiveWindow.SmallScroll Down:=6
Range("T50:W55").Select
Selection.sort Key1:=Range("V51"), Order1:=xlDescending, Key2:=Range( _
"W51"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub


ich sag schon mal vielen dank
gruß
kevin
Anzeige
AW: Sortieren
07.10.2003 21:19:21
th.heinrich
hallo Kevin,

so muesste es funzzen, das mit der APPLICATION am anfang und ende laesst den CODE "im hintergrund" ablaufen.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.Screenupdating = False
Dein CODE
Range("was auch immer").select
Application.Screenupdating = True
End Sub


hier noch ein link auf turnierplaene.

http://www.kadmo.de/1276.html

gruss thomas
AW: Sortieren
08.10.2003 10:07:19
Kevin
hallo

und nochmals vielen dank.

aber ich habe ein problem mit folgendem ausdruck: Range("was auch immer").select...

was soll ich da reinschreiben??

gruß
kevin
Anzeige
AW: Sortieren
08.10.2003 10:27:01
Kevin
hy

hab ein wenig rumprobiert.
hab da jetzt mal in klammer "A1" reingetippt.
funktioniert aber nicht so wie ich es mir vorgestellt habe.

kann auch sein das ich das problem falsch beschrieben habe.
neuer versuch: :))
sobald ich ein ergebnis eingebe, springt er an die stelle, wo eigentlich die ausgeblendete tabelle nr. 4 steht.
das macht er mit dem neuen befehl auch noch...

gruß
kevin

p.s. danke für deine geduld!!
pp.s deine tabellen gefallen mir...
AW: Sortieren
08.10.2003 10:34:33
Kevin
hallo

ich sollte nicht so schnell posten!!!

ich habe meinen fehler gefunden.
da ich beim makro aufzeichen nach unten scrollen musste, entstanden folge einträge:
ActiveWindow.SmallScroll Down:=9; ActiveWindow.SmallScroll Down:=6
die habe ich einfach rausgenommen und schon hat es geklappt.

dann hat mich gestört das die aktive zelle nach eingabe eines ergebnisses immer A1 war.
dann habe ich zuletzt nur den "range("A1").selection" rausgenommen!!

nochmals tausend dank für deine hilfe!!

gruß
kevin
Anzeige
freut mich, dass ich helfen konnte :-) ot.
08.10.2003 14:34:17
th. heinrich
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige