Automatisches Sortieren sich ändernder Tabelle

hallo profis,
Ich habe eine Tabelle, in der ich immer wieder neue Datensätze in Form von Zeilen einfüge.
Ich möchte, dass sich diese Tabelle, sobald ich das Arbeitsblatt verlasse, automatisch sortiert. Dabei soll eine Spalte der Tabelle (nämlich C) untersucht werden, ob Datensätze vorhanden sind, und dann die betreffenden Zeilen der Tabelle anhand einer anderen Spalte (A) ordnen.
Ich hab ja schon diverses versucht, aber ich scheitere bei der Formel immer am Range. Allerdings habe ich versucht, die Formel auf einem dynamischen Bereich aufzubauen. Nur leider bin ich mir bei der Formel für einen solchen Bereich nicht mal sicher. Kann mir jemand von euch da weiterhelfen?
Bitte um Rückmeldung.
Danke, Harald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Bereichauswählen() ActiveSheet.Unprotect Sheets("Mängelliste").Range("Datenbank").Sort Key1:=Range("A7"), _ Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Hallo dirtyharry.
Ich bin zwar auch kein VBA-Vollprofi, aber ich mach Sortierungen immer mit "Selection.sort".
Und das Schutz-Problem kenn ich auch.
Also... Zuerst nicht "Range("Datenbank"), sondern den genauen Zellbezug. (Range(A1:C345))
Dann .select dahinter anstelle von .sort und nächste Zeile "Selection.sort ...."
Und das Schutzproblem umgehst Du wenn Du den Schutz an anderer Stelle einbaust.
Etwa schon ganz am Anfang mit:


Private Sub Worbook_Open()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect ("Password"), UserInterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
wks.EnableSelection = xlUnlockedCells
Next wks
End Sub

Der Zusatz "UserInterfaceOnly:=True" sorgt dafür das niemand Änderungen machen kann,
mit Außnahme vom Code selbst.
Alle Änderungen die durch den VBA-Code generiert werden laufen so problemlos weiter, selbst
wenn das Arbeitsblatt mit Password geschützt ist und Du sparst Dir das andauernde schützen und Blattschutz wieder aufheben im Code.
Eine Ausnahme:
Änderungen am Kommentar funktionieren damit nicht habe ich festgestellt.
Sonnige Grüße
ChrisBee

Beliebteste Forumthreads (12 Monate)

Automatisches Sortieren sich ändernder Tabelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

216 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisches Sortieren sich ändernder Tabelle

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

216 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread