Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon AceRider vom 28.09.2022, 17:41 Options
Bedingte Formatierung mit VBA bei Blattschutz
Hallo lieber Supporter,
ich möchte eine bedingte Formatierung mit mehr als drei Bedingungen bei einem Tabellenblatt mit Blattschutz anwenden. Dazu verwende ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("j6:an31"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value
Case "k"
bytColor = 6
Case "K"
bytColor = 6
Case "u"
bytColor = 33
Case "U"
bytColor = 33
Case "d"
bytColor = 38
Case "D"
bytColor = 38
Case "g"
bytColor = 4
Case "G"
bytColor = 4
Case Else
bytColor = 0
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Er meckert mich jetzt an, dass ein Blattschutz vorhanden ist=> Laufzeitfehler 1004, die Zeile "rngCell.Interior.ColorIndex = bytColor" wird als Fehler ausgegeben.
Wie kann ich das umgehen?
Viele Grüße & vielen Dank
Stefan
Ps. Suchfunktion hat hier nichts gebracht.....
ich möchte eine bedingte Formatierung mit mehr als drei Bedingungen bei einem Tabellenblatt mit Blattschutz anwenden. Dazu verwende ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("j6:an31"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value
Case "k"
bytColor = 6
Case "K"
bytColor = 6
Case "u"
bytColor = 33
Case "U"
bytColor = 33
Case "d"
bytColor = 38
Case "D"
bytColor = 38
Case "g"
bytColor = 4
Case "G"
bytColor = 4
Case Else
bytColor = 0
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Er meckert mich jetzt an, dass ein Blattschutz vorhanden ist=> Laufzeitfehler 1004, die Zeile "rngCell.Interior.ColorIndex = bytColor" wird als Fehler ausgegeben.
Wie kann ich das umgehen?
Viele Grüße & vielen Dank
Stefan
Ps. Suchfunktion hat hier nichts gebracht.....
Antwort 1 von coros vom 28.09.2022, 19:21 OptionsLösung
Hallo Stefan,
der VBA-Code sähe dann wie folgt aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
der VBA-Code sähe dann wie folgt aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("j6:an31"))
If Target Is Nothing Then Exit Sub
ActiveSheet.Unprotect "Hier Dein Passwort"
For Each rngCell In Target
Select Case rngCell.Value
Case "k"
bytColor = 6
Case "K"
bytColor = 6
Case "u"
bytColor = 33
Case "U"
bytColor = 33
Case "d"
bytColor = 38
Case "D"
bytColor = 38
Case "g"
bytColor = 4
Case "G"
bytColor = 4
Case Else
bytColor = 0
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
ActiveSheet.Protect "Hier Dein Passwort"
End Sub
ActiveSheet.Unprotect "Hier Dein Passwort"ActiveSheet.Protect "Hier Dein Passwort"MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Bedingte Formatierung
afetinci 21.04.2009 - 308 Hits - 14 Antworten
Excel VBA: Spalten ausblenden mit Blattschutz
Datjodie 18.07.2009 - 468 Hits - 1 Antwort
VBA: Füllfarbe "vs". Bedingte Formatierung
Tomschi 27.07.2009 - 293 Hits - 6 Antworten
Benötige Hilfe für eine bedingte Formatierung mit VBA
DaveB 06.11.2009 - 424 Hits - 16 Antworten
bedingte Formatierung via VBA
Zwula 11.11.2009 - 389 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
