Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz setzen funktioniert nicht

Blattschutz setzen funktioniert nicht
Thomas
Hallo zusammen,
habe Probleme mit aufgeführtem Code.
Möchte am Ende für alle Sheets wieder einen Blattschutz setzen,
es kommt jedoch folgende Fehlermeldung.
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler

Sub Kostenstellenkorrektur()
For Each WSTabelle In Sheets
WSTabelle.Unprotect ("JA")
Next WSTabelle
' Tabellenblätter markieren
Sheets(Array("Jan", "Feb", "Mär", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", _
"Dez")).Select
Range("AR4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(R[4]C[-1]:R[29]C[-1],""0030-D3125"",R[4]C:R[29]C)"
' Alle Tabellenblätter mit PW schützen
For Each WSTabelle In Sheets
WSTabelle.Protect ("JA")
Next WSTabelle
End Sub
Danke für eure Hilfe
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blattschutz setzen funktioniert nicht
29.03.2012 09:42:16
marcl
Hallo Thomas,
Sub Kostenstellenkorrektur()
Dim WSTabelle as Worksheet ' Objektvariable fehlte!
For Each WSTabelle In Worksheets
WSTabelle.Activate
WSTabelle.Unprotect "JA"
Next WSTabelle
' Tabellenblätter markieren
Sheets(Array("Jan", "Feb", "Mär", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", _
"Dez")).Select
Range("AR4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(R[4]C[-1]:R[29]C[-1],""0030-D3125"",R[4]C:R[29]C)"
' Alle Tabellenblätter mit PW schützen
For Each WSTabelle In Worksheets
WSTabelle.Activate
WSTabelle.Protect "JA"
Next WSTabelle
End Sub
Gruß
marcl
Anzeige
das liegt an den selekktierten Blättern ...
29.03.2012 09:48:31
Matthias
Hallo
Merke Dir die Starttabelle(Index) in der Du vor dem Code stehst
Option Explicit
Sub Thomas()
Dim WSTabelle As Worksheet
Dim MyIdx&
MyIdx = ActiveSheet.Index
For Each WSTabelle In Sheets
WSTabelle.Unprotect "JA"
Next WSTabelle
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Range("AR4").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R[4]C[-1]:R[29]C[-1],""0030-D3125"",R[4]C:R[29]C)"
Sheets(idx).Select
For Each WSTabelle In Sheets
WSTabelle.Protect "JA"
Next WSTabelle
End Sub
Gruß Matthias
Nachtrag! (Name der Variable) ...
29.03.2012 10:16:30
Matthias
Hallo
Sheets(Idx) war natürlich falsch! Die Variable heißt: MyIdx
Option Explicit
Sub Thomas()
Dim WSTabelle As Worksheet
Dim MyIdx&
MyIdx = ActiveSheet.Index
For Each WSTabelle In Sheets
WSTabelle.Unprotect "JA"
Next WSTabelle
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Range("AR4").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R[4]C[-1]:R[29]C[-1],""0030-D3125"",R[4]C:R[29]C)"
Sheets(MyIdx).Select
For Each WSTabelle In Sheets
WSTabelle.Protect "JA"
Next WSTabelle
End Sub

Gruß Matthias
Anzeige
AW: Nachtrag! (Name der Variable) ...
29.03.2012 12:50:07
Thomas
Hallo zusammen,
nochmal der Neuling :-).
Habe nun das VBA vom Nachtrag (Mathias) danke an dieser Stelle übernommen.
Allerdings kommt jetzt ein "Laufzeitfehler 13" nachdem das 12 te Blatt auf Unprotect gesetzt wurde.
Das ganze bleibt dann an der Fett markierten Stelle stehen.
Option Explicit
Sub Thomas()
Dim WSTabelle As Worksheet
Dim MyIdx&
MyIdx = ActiveSheet.Index
For Each WSTabelle In Sheets
WSTabelle.Unprotect "JA"
Next WSTabelle
Vielleicht kann hierzu noch einmal jemand Stellung nehmen.
Danke vorab
AW: Nachtrag! (Name der Variable) ...
29.03.2012 15:38:24
Thomas
Hallo zusammen,
habe nun die Lösung.
Danke nochmal an alle die mich hier unterstützt haben
Anbei zur Info

Sub Kostenstellenkorrektur()
For Each WSTabelle In Sheets
WSTabelle.Unprotect ("JA")
Next WSTabelle
' Tabellenblätter markieren
Sheets(Array("Jan", "Feb", "Mär", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", _
"Dez")).Select
Range("AR4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(R[4]C[-1]:R[29]C[-1],""0030-D3125"",R[4]C:R[29]C)"
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
Sheets(i).Protect Password:="JA"
Next
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige
Autofilter zeigt nicht alles an
thomas

Hallo,
In einem Tabellenblatt sind 1752 Zeilen ausgefüllt. Der Autofilter zeigt in seiner Auflistung nur 1426 Zellwerte an.
Weis jemand woran das liegt?
Danke für die Hilfe
thomas
29.08.2008 15:59:23
Thread-ID: 1005882
4 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
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
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
3
1
15
4
2
7
6
1
2
6
1
3
7
3
24
2
5
2
3
4
3
10
5