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

Verschiedene Sheets nach gleicher Spalte sortieren

Verschiedene Sheets nach gleicher Spalte sortieren
27.01.2005 11:22:39
andi
hallo zusammen
wieder mal benötige ich hilfe von spezialisten..
in einer datei habe ich 10 tabellenblätter die spalten a bis f sind in jeder tabelle identisch. wie kann ich nun erreichen, dass sobald ich im tabellenblatt 1 einen neuen wert eingebe (über eine textbox in einer userform) beim schliessen der userform alle 10 blätter nach den kriterien der Spalte e aufsteigend sortiert werden.
wäre klasse, wenn mir jemand helfen könnte.
gruss andi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschiedene Sheets nach gleicher Spalte sortieren
27.01.2005 12:50:31
Roland
Hallo andi,
du musst dich schon entscheiden: entweder bei
- Neueingabe eines Wertes
- Schließung der Userform
- oder beidem
soll die Sortierung vorgenommen werden. Ohne die dahinterstehende Aufgabe zu kennen schlage ich vor, die Sortierung nur bei der Schließung der Userform vorzunehmen. Dann müsstest du folgenden Code in die Userform aufnehmen:

Private Sub UserForm_Terminate()
For Each Worksheet In ActiveWorkbook.Worksheets
Range("A1").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess
Next
End Sub

Wenn du das anders haben willst, bietet sich z.B. das Change-Ereignisse der Textbox an.
Feedback wäre nett :-)
Viel Erfolg
Roland
Anzeige
AW: Verschiedene Sheets nach gleicher Spalte sortieren
27.01.2005 12:56:35
Roland
Fehler, so geht es:

Private Sub UserForm_Terminate()
Application.ScreenUpdating = False
For Each Worksheet In ActiveWorkbook.Worksheets
With Worksheet
.Activate
.Range("A1").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess
End With
Next
Application.ScreenUpdating = True
End Sub

Gruß Roland
AW: Verschiedene Sheets nach gleicher Spalte sortieren
andi
hallo roland
vielen dank, habs geschafft.
andi
Danke für die Rückmeldung o.T.
28.01.2005 11:27:18
Roland

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige