Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.10.2025 16:15:02
Zellen färben, wenn zwei Bedingungen erfüllt sind
28.10.2025 11:23:24
Summewenns nach Datum und Uhrzeit tagübergreifend
28.10.2025 09:13:03
Bedingte Formatierung?
28.10.2025 08:50:55
Mehrere Tabellen zusammenführen
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz / Sortieren

Forumthread: Blattschutz / Sortieren

Blattschutz / Sortieren
27.12.2020 17:13:03
Roger

Hallo, heute habe ich es nicht so mit Blattschutz. Möchte das Blatt sortieren aber das Blatt soll im grunde schreibgeschützt sein. wo habe ich dies einzutragen?
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz / Sortieren
27.12.2020 17:17:05
Hajo_Zi
nach der Zeile 

Sub und vor End Sub

AW: Blattschutz / Sortieren
27.12.2020 17:25:08
Roger
Hallo das will irgendwie einfach nicht....
Sub Sortieren_App()
.Unprotect Password:=""
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
.Protect Password:=""
End Sub

Anzeige
AW: Blattschutz / Sortieren
27.12.2020 17:26:47
Hajo_Zi
Du hast kein With auf die Aktuelle Tabelle.
es fehlt bei Range dann auch der Punkt
Gruß Hajo
AW: Blattschutz / Sortieren
27.12.2020 17:30:53
Roger
Auch wenn ich das so anpasse wie du es beschreibst.... irgendwie verstehe ich dich wahrscheinlich falsch. Könntest Du mir es ausschreiben das Makro? Gruess
Anzeige
AW: Blattschutz / Sortieren
27.12.2020 17:31:46
Hajo_Zi
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: Blattschutz / Sortieren
27.12.2020 17:40:07
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
AW: Blattschutz / Sortieren
27.12.2020 17:44:47
Nepumuk
Hallo Roger,
so:
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

Gruß
Nepumuk
Anzeige
AW: Blattschutz / Sortieren
27.12.2020 20:01:16
Roger
Vielen vielen Dank....
Gruess Roger
AW: Blattschutz / Sortieren
27.12.2020 17:45:16
Hajo_Zi
Meine Lösung gefiel Dir nicht.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.
Gruß Hajo
AW: Blattschutz / Sortieren
27.12.2020 20:36:33
Oberschlumpf
Moin,
deine Antworten sind oft auch nur für den Papierkorb.
Dann passt ja wieder alles zusammen.
Ciao
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