Worksheet_Change funktioniert nicht

Guten Morgen zusammen,
ich beiße mir jetzt seit längerem die Zähne an folgendem Problem aus, habe auch schon Google befragt aber die Lösungen funktionieren bei mir leider irgendwie nicht...
Ich möchte gerne, dass das untenstehende Makro startet wenn in Zelle T21 eine Änderung passiert.
Folgendes soll dabei passieren:
- Bei "unbegrenzt" in T21 soll T22 einen weißen Hintergrund haben und an der Oberkante einen schwarzen dicken Rahmen
- Bei "pauschal" in T21 soll T22 einen RGB-Hintergrund haben und links, rechts und unten einen schwarzen dicken Rahmen sowie das Produkt aus S21 * T21 als Wert ausgeben
- Bei "individuell" in T21 soll T22 einen RGB-Hintergrund haben und links, rechts und unten einen schwarzen dicken Rahmen
Die Rahmenthematik konnte ich noch überhaupt nicht lösen, mir geht es aber auch erst einmal um den funktionierenden Code, Schönheits-OPs sind nachrangig...
Der Code (direkt unter Objekten in der richtigen Tabelle gespeichert, nicht als Modul):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$T$22" Then
        
        
        If Range("T21") = "unbegrenzt" Then Range("T22") = "unbegrenzt"
        If Range("T21") = "unbegrenzt" Then ActiveSheet.Range("T22").Interior.ColorIndex = 2
               
        If Range("T21") = "pauschal" Then Range("T22") = Range("S21") * Range("T19")
        If Range("T21") = "pauschal" Then ActiveSheet.Range("T22").Interior.Color = RGB(135, 0, 23)
               
        If Range("T21") = "individuell" Then Range("T22") = ""
        'Hier wird vom User später selbst die Eingabe direkt in die Zelle vorgenommen
        If Range("T21") = "individuell" Then ActiveSheet.Range("T22").Interior.Color = RGB(135, 0, 23)
        End If
        End Sub

So soll es im Endeffekt im Resultat dann aussehen:
Userbild

Vielen Dank schon einmal vorab für Eure Hilfe!
Viele Grüße
Björn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$T$21" Then With Range("T22") If Target.Value = "unbegrenzt" Then .Value = "unbegrenzt" .Interior.ColorIndex = 2 ElseIf Target.Value = "pauschal" Then .Value = Range("S21") * Range("T19") .Interior.Color = RGB(135, 0, 23) ElseIf Target.Value = "individuell" Then 'Hier wird vom User später selbst die Eingabe direkt in die Zelle vorgenommen .Value = "" .Interior.Color = RGB(135, 0, 23) End If End With End If End Sub

1. Wenn ich den Blattschutz temporär im Code ausschalte, springt ein PopUp auf und verlangt die Eingabe des Passworts. Da ich aus gutem Grund der einzige bin, der dieses kennt (in der Vergangenheit haben Kollegen das ganze Arbeitsblatt zerschossen), möchte ich dieses nicht herausgeben.
Gibt es eine Möglichkeit, das Passwort bei Ausschalten des Blattschutzes direkt im vba-Code einzugeben, sodass dieses nicht abgefragt wird?
2. S21 und T21 sind Variablen die (bei Wahl von "pauschal" in T21) in Abhängigkeit zueinander stehen. Der normale User arbeitet klassisch von oben links nach unten rechts die beschreibbaren Felder ab, sodass es hier kein Problem gibt, da nach Eingabe in T21 das Makro gestartet wird.
Sollte aber jemand die Zelle T21 zuerst ausfüllen, aktualisiert sich das Blatt bei Eingabe in S21 nicht mehr, sodass hier keine Berechnung erfolgt...
Gruß Björn

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$T$21" Then With Range("T22") If Target.Value = "unbegrenzt" Then .Value = "unbegrenzt" .Interior.ColorIndex = 2 ElseIf Target.Value = "pauschal" Then .Value = Range("S21") * Range("T19") .Interior.Color = RGB(135, 0, 23) ElseIf Target.Value = "individuell" Then 'Hier wird vom User später selbst die Eingabe direkt in die Zelle vorgenommen .Value = "" .Interior.Color = RGB(135, 0, 23) End If End With ElseIf Target.Address = "$S$21" Then Range("T$21") = "pauschal" End If End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_Change funktioniert nicht

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

77 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet_Change funktioniert nicht

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

77 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread