Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sortieren mit Schreibschutz

Forumthread: Sortieren mit Schreibschutz

Sortieren mit Schreibschutz
26.10.2022 06:48:34
Mike
Hallo Leute,
ich habe 6 Tabellenblätter in einer Exceldatei. In jedem Tabellenblatt befinden sich 40 Zeilen und die Spalten A - Y.
Alle Spalten außer X und Y sind schreibgeschützt. In Spalte X sollen nun jeweils nach und nach Rangziffern eingetragen werden und die Tabellen dann immer wieder aufsteigend nach Spalte X sortiert werden. Hierfür müsste jeweils der Schreibschutz aufgehoben, sortiert und wieder gesetzt werden. Wer könnte mir mit einem VBA-Makro dabei helfen?
Anmerkung: Jedes Tabellenblatt soll natürlich unabhängig von den anderen sortiert werden.
Gruß Mike
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren mit Schreibschutz
26.10.2022 07:15:09
GerdL
Moin Mike!

Sub Unit()
With ActiveSheet
.Unprotect ""
.Range("A:Y").Sort key1:=.Cells(2, 24), Header:=xlGuess, order1:=xlAscending
.Protect ""
End With
End Sub
Gruß Gerd
AW: Sortieren mit Schreibschutz
26.10.2022 08:09:13
Mike
Hallo Gerd,
besten Dank! Das war ja viel einfacher als gedacht :-)
Gruß Mike
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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