Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro geht nach Blattschutz nicht mehr

Forumthread: Makro geht nach Blattschutz nicht mehr

Makro geht nach Blattschutz nicht mehr
Reimund
Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bitte: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("B6") = "Einzelplatine" Then
Rows("7:9").Hidden = True
Else
Rows("7:9").Hidden = False
End If
Application.EnableEvents = True
If Range("B19") = "Nein" Then
Rows("20:25").Hidden = True
Else
Rows("20:25").Hidden = False
End If
Application.EnableEvents = True
End Sub

Wo bitte ist die Macke? (nicht meine, die kenne ich)
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro geht nach Blattschutz nicht mehr
23.09.2009 15:24:10
Rudi
Hallo,
du schaltest die Events ab. Wenn der Code in den Fehler läuft bleiben sie abgeschaltet. 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
Application.EnableEvents = False
Rows("7:9").Hidden = Range("B6") = "Einzelplatine"
Rows("20:25").Hidden = Range("B19") = "Nein"
ErrHandler:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige
AW: Makro geht nach Blattschutz nicht mehr
23.09.2009 15:56:28
Reimund
Rudi, Dank für schnelle Antwort,
aber jetzt geht es wieder nach abschalten des Schutzes. Doch wenn der eingschaltet ist, geht´s immer noch nicht.
AW: Makro geht nach Blattschutz nicht mehr
23.09.2009 16:08:00
Rudi
Hallo,
dann musst du ihn halt abschalten. 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If (.Column - 2) Mod 5 = 0 And .Column  "" Then
ActiveSheet.Unprotect "Passwort"
Application.EnableEvents = False
.Offset(-1, 1) = "eins daneben"
.Offset(-1, 2) = "zwei daneben"
.Offset(-1, 3) = Environ("UserName")
Application.EnableEvents = True
ActiveSheet.Protect "Passwort"
End If
End With
End Sub

Gruß
Rudi
Anzeige
AW: Makro geht nach Blattschutz nicht mehr
23.09.2009 16:23:54
Reimund
Manchmal ist man halt zu blöd.
Nochmals Dank

Forumthreads zu verwandten Themen

Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Tabelle läßt sich nicht mehr speichern
Judith


Hallo,
habe eine ziemlich große Excel Tabell (3,499KB) mit 10 tabellenblättern, in die ich jeden Monat Werte eintrage. Bis dato hat immer alles funktioniert. Seit heute läßt sie sich nicht mehr speichern. Die angehängte Fehlermeldung erscheint.
Hatte das Problem schon mal mit Exce...
10.03.2009 15:31:15
Thread-ID: 1058724
6 Beiträge
Anzeige
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
PrintOut copies:= geht nicht mehr
Jupp

Hallo.
Ich habe vor längerer Zeit ein größeres Makro geschrieben, bei dem unter anderem bei einem Button-Klick entsprechende Seite gedruckt werden.
Meine User rufen das Makro aus einer xls via Terminal Server auf. Bisher war dies ein W2k3x86-Server mit Excel 2003 SP2. Nun habe ich neue...
11.05.2009 12:33:18
Thread-ID: 1074308
3 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
Kann Beiträge nicht mehr bestätigen
NoNet

Hallo @alle,
dies ist nur ein Test :
Ich kann meine Beiträge plötzlich nicht mehr absenden : Nach der Vorschau fehlt der "Absenden"-Button :-((
Gruß, NoNet
12.06.2009 21:33:11
Thread-ID: 1081185
12 Beiträge
Dropdown geht nicht mehr
stephan.schwander@wander.ch

Guten Tag zusammen,
in einer Tabelle von mir geht auf eimal der zellendropdown (Spalte G und H) nicht mehr.
Ich habe überhaupt keine Ahnung an was dies liegen kann?
Die Tabelle im Anhang ist ein Auszug einer komplexen Auswertung.
https://www.herber.de/bbs/user/62837.zip
Bes...
30.06.2009 13:26:59
Thread-ID: 1085347
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
TreeView lange Einträge - Mausklick geht nicht
Alfons

Hallo,
in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
und deshalb rechts nicht komplett angezeigt werden.
Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
28.07.2009 10:37:09
Thread-ID: 1091606
2 Beiträge
Anzeige
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
Anzeige
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Einlesen in Combobox geht nicht mehr
Mandy

Hallo,
ich will zewi Comboboxen mit Daten aus der Spalte D (4) und N (14) füllen. Wen ich NUR die Spalte D einlesen will, funktioniert das noch, sobald ich aber die Spalte 14 (N) auch mit auslesen will, bekome ich eine Fehlermldung (ListIndex konnte nicht gesetzt werden)
Kann jemand seh...
17.10.2009 21:17:52
Thread-ID: 1110366
25 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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