Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz setzen funktioniert nicht

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten 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
Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
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
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
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
Anzeige
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
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 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