Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren trotz Blattschutz (Makro)

Forumthread: Sortieren trotz Blattschutz (Makro)

Sortieren trotz Blattschutz (Makro)
12.12.2020 21:12:11
Roger

Das Makro funktioniert einwandfrei. Gerne würde ich noch das Blatt schützen
Wo und was im Makro muss ich verändern das es mit Schutz auch läuft?
Gruess Roger
Sub Sortieren_App()
Dim lZ As Long
lZ = Cells(Rows.Count, 3).End(xlUp).Row
With Range("D2:D" & lZ)
.FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)"
.Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.ClearContents
End With
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sortieren trotz Blattschutz (Makro)
12.12.2020 22:04:00
Piet
Hallo
nur "Unprotect" und "Protect" im Code einfügen, dann sollte es klappen. Passwort ist NICHT erforderlich!
mfg Piet
Sub Sortieren_App()
Dim lZ As Long
lZ = Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.Unprotect
With Range("D2:D" & lZ)
.FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)"
.Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.ClearContents
End With
ActiveSheet.Protect
End Sub

Anzeige
wieso ist das Level des TE plötzlich leer?
13.12.2020 03:30:50
Matthias
Hallo Piet,
Userbild

    Die Frage steht bei mir im Betreff!

  • Wie hast Du Deine Antwort erstellt?

  • Warum ist die Levelanzeige bei Deiner Antwort verschwunden, in meiner jedoch sichtbar?

  • Ich habe das hier schon mehrfach gefragt, aber bekomme nie eine nachvollziehbare Antwort.

  • Evtl. kannst Du das ja jetzt mal aufklären.


    • Gruß Matthias
    Anzeige
    AW: wieso ist das Level des TE plötzlich leer?
    18.12.2020 14:34:43
    Piet
    Hallo Matthias
    ich bin im Augenblick sprachlos was da passiert sein könnte? Ich weiss es leider nicht!!
    Zum Makro Problem: - der Befehl Sheet.Unprotect muss ganz oben, vor dem Sortieren stehen!!
    Das ich nicht antworten kann liegt daran, das mein PC kaputt ist, Netzteil im Laptop explociert. Und ich nur mal ns Internet komme, wenn ich Besuch mit Laptop hane. Ich lebe in Ankara! Hier ist für Ü 65jaehrige absolute Ausgangssperre. Kann nicht mal selbst Brot kaufen. Reparatur zur Zeit nicht möglich!! Hohe Strafen wer auf der Strasse erwischt wird! Muss warten bis es neue Regelungen gibt.
    mfg Piet
    Anzeige
    AW: Sortieren trotz Blattschutz (Makro)
    14.12.2020 21:01:36
    Roger
    Habe das Blatt geschütz und den Hinweis ActiveSheet.Protect eingefügt. Nun gibt es ein weiteren Fehler an (Fett gedruckt) Möglicherweise kann er nicht sortieren wenn das Blatt geschützt ist....
    Bin um Hilfe dankbar
    Sub Sortieren_App()
Dim lZ As Long
lZ = Cells(Rows.Count, 3).End(xlUp).Row
With Range("D2:D" & lZ)
.FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)"
.Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.ClearContents
End With
ActiveSheet.Protect
End Sub

    Anzeige
    AW: Sortieren trotz Blattschutz (Makro)
    14.12.2020 21:39:45
    GerdL
    Moin Roger,
    füge mal wie vorgeschlagen oben im Code
    ActiveSheet.Unprotect
    ein.
    Gruß Gerd
    AW: Sortieren trotz Blattschutz (Makro)
    14.12.2020 21:50:37
    Roger
    Nein Leider nicht er reklamiert immer noch an der gleichen Stelle (Fettgedruckt)
    Test: Levelstatus ... owT
    13.12.2020 03:13:02
    Matthias
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Filter-Makro funktioniert nicht
    Wolfango

    Hallo Experten,
    die Spalte Q einer Datenbank enthält Datumswerte.
    Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
    04.11.2008 10:28:00
    Thread-ID: 1021496
    8 Beiträge
    Leere Filtern funktioniert nicht - wo Fehler?
    Wolfgang

    Hallo,
    der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
    04.12.2008 18:50:00
    Thread-ID: 1030277
    4 Beiträge
    Solver - Makro aufgezeichnet, lässt sich nicht abs
    u_hoernchen

    habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
    SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
    SolverSolve
    Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
    20.07.2009 13:09:09
    Thread-ID: 1089960
    3 Beiträge
    Sortierung funktioniert nicht
    Stephan

    Hallo,
    ich kriegs nicht hin.
    Bei meiner Tabelle funktioniert die Sortierung (Daten / Sortieren / Sortieren nach ...) nach Spalte C oder E nicht. Es tut sich einfach gar nichts. Liegt es an der verwendeten Funktion INDIREKT?
    Hier die Datei:
    https://www.herber.de/bbs/user/63547.xl...
    31.07.2009 10:02:52
    Thread-ID: 1092687
    7 Beiträge
    Datei lässt sich nicht öffnen
    einfachf

    Hallo Zusammen ich schreibe gerade an einem Macro.
    Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
    Leider funzt das nicht und ich weiß nicht warum.
    Hier mein Code.
    Dim EX As Excel.Application
    Dim WB As Workbook
    Dim WS As Worksheet
    Set EX = Cr...
    06.08.2009 12:12:10
    Thread-ID: 1094009
    3 Beiträge
    Blatt schützen in Verbindung mit Sortieren
    Toby76

    Hallo beisammen,
    ich habe große Datenmengen aus SAP ausgelesen und will sie zur Bearbeitung an Kollegen weitergeben (siehe Musterdatei anbei). Die Kollegen sollen aber nur die gelb markierten Felder bearbeiten können, den Rest habe ich über Blatt schützen geschützt. Beim Schützen habe ich i...
    08.09.2009 14:52:03
    Thread-ID: 1101273
    6 Beiträge
    Filter funktioniert nicht
    Mandy

    Hallo,
    ich bekomme aus einer Datenbank Daten in mein Excel Template geschrieben.
    darunter hat es auch zwei Spalten mit Datums, das Problem: es steht zwar schön sauber das Datum drin (21.10.2009) aber die Spalte ist als TEXT formatiert.
    In diesem Fall funktionieren die Filter (Autofi...
    21.10.2009 12:05:08
    Thread-ID: 1111038
    4 Beiträge
    Sortieren geht nicht
    walli

    Hallo zusammen,
    habe folgendes Makro: Private Sub CommandButton1_Click() Dim z As Long z = Range("a5").End(xlDown).Row ActiveSheet.Range(Cells(6, 1), Cells(z, 14)).Select Selection.Sort Key1:=Range("O6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation...
    04.11.2009 15:01:38
    Thread-ID: 1114509
    15 Beiträge
    Spalte lässt sich nicht formatieren
    Joachim

    Hi,
    habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
    Wenn ich das Format anschaue, steht es auf Standard.
    Diese Spalte wollte ich i...
    23.11.2009 10:46:38
    Thread-ID: 1119390
    3 Beiträge
    Anzeige
    Datei lässt sich nicht öffnen
    Ernst

    Hallo Forum
    Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
    Wie kann ich die Datei öffnen?
    Bitte um Hilfe
    mfg
    Ernst Dunkel
    04.01.2010 13:35:12
    Thread-ID: 1127045
    5 Beiträge
    Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
    Josef_T
    Guten Tag zusammen,
    ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
    oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
    kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
    23.01.2010 20:19:29
    Thread-ID: 1132376
    6 Beiträge
    Anzeige
    Code lässt sich aus User-Form nicht ausführen | Herbers Excel-Forum
    Stephan
    Hallo,
    habe folgendes Problem, möchte einen Code den ich bisher in einem Tabellenblatt einem Button zugeordnet habe nun einem Button in einer Userform zuordnen um in dem ursprünglichen Tabellenblatt die selbe Aktion auszuführen - leider funktioniert dies mit reinkopieren und referenzieren auf d...
    23.03.2010 16:10:29
    Thread-ID: 1147909
    8 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    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