Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Sortierung

Forumthread: automatische Sortierung

automatische Sortierung
07.08.2004 11:44:01
Marcel
Ich habe eine Arbeitsmappe, in der ich in regelmäßigen Abständen eine Tabelle sortieren muss:
Spalte A: Spielername, Spalte B Punktanzahl, Spalte C richtige Ergebnisse.
Die Tabelle wird zuerst nach Spalte B und dann nach Splate C sortiert.
Bisher habe ich dies immer manuell durch Ausführen eines aufgezeichneten Makros gemacht, habe nun aber gehört, dass sich die Tabelle bei einer entsprechenden Veränderung auch automatisch sotieren lässt. Wer kann mir weiterhelfen.
mfg und vielen Dank im Vorraus
Marcel
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Sortierung
07.08.2004 12:01:13
TGH
Hallo Marcel, dieses in "Deine Tabelle"

Private Sub Worksheet_Change(ByVal Target As Range)
'Dein Code
End Sub

Schönes Wochenende
Thomas
AW: automatische Sortierung
07.08.2004 12:27:14
Marcel
Ist es auch möglich den Code so umzustellen, dass er nur bei der Änderung eines bestimmten Bereiches der Tabelle augeführt wird?
mfg
Marcel
Anzeige
AW: automatische Sortierung
07.08.2004 12:35:16
TGH
So vielleicht:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 And Target.Row > 2 Then 'alle Änderungen ab Spalte 2, Zeile 2
'Dein Code
End If
End Sub

Gruss Thomas
AW: automatische Sortierung
Marcel
Vielen Dank für die schnell Antwort!
mfg
Marcel
Anzeige
gerne und jetzt
TGH
gehe ich baden :-)
Geniesse das Wetter Gruss Thomas
doch noch eine Nachfrage :-)
Marcel
habe nun versucht den Code so zu ändern, dass mein makro nur dann abläuft, wenn eine veränderung im Bereich "Bereich1" stattfindet, aber irgendwie funzt das noch nicht so, wie es soll:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = Range("Bereich1")
If Intersect(Target, myRange) Is Nothing Then Exit Sub
Else
'Dein Code
End If
End Sub

Anzeige
AW: doch noch eine Nachfrage :-)
PeterW
Hallo Marcel,
so sollte es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = Range("Bereich1")
If Intersect(Target, myRange) Is Nothing Then
Exit Sub
Else
'Dein Code
End If
End Sub

Gruß
Peter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige