Aktion, wenn die verknüpfte Zelle der Optionsschaltfläche sich ändert

Question

Ich habe ein Problem mit meinen Optionsschaltflächen verbundenen Zellen. Ich möchte ein Makro laden, wenn sich der Wert der verknüpften Zelle ändert. Ich habe zwei verschiedene Methoden versucht, und keine von ihnen wird nicht funktionieren, wenn die Schaltfläche den Wert ändert. Wenn ich eine ausgewählte Zelle einen Wert eintippe, werden meine Makros geladen.

Hier sind meine zwei Techniken:

Private Cel_CONGESg As Byte 
Private Sub Worksheet_Calculate() 
Dim Ws As Worksheet 

Set Ws = ThisWorkbook.Sheets("Externe") 

If Ws.Range("$I$12").Value <> Cel_CONGESg Then 
    MsgBox "heheheheeheheheheee" 
End If 

Cel_CONGESg = Ws.Range("$I$12").Value 

End Sub 

Die zweite Methode

Private Sub Worksheet_Change(ByVal target As Range) 
Dim CongesG 
Dim Ws As Worksheet 

Set CongesG = Ws.Range("$I$12") 

If Not Application.Intersect(CongesG, Range(target.Address)) _ 
     Is Nothing Then 
    If Ws.Range("$I$12").Value = 2 Or Ws.Range("$I$12").Value = 0 Then 
     Ws.Range("$I$13").EntireRow.Hidden = True 
      With Range("H12:L12").Borders(xlEdgeBottom) 
       .LineStyle = xlDot 
       .Color = RGB(51, 63, 79) 
       .Weight = xlThin 
      End With 
    ElseIf Ws.Range("$I$12").Value = 1 Then 
     Ws.Range("$I$13").EntireRow.Hidden = False 
      With Range("H12:L12").Borders(xlEdgeBottom) 
       .LineStyle = xlNone 
      End With 
    End If 'I12 Congés 
End If 'Application intersect CongesG 
End Sub 

Könnten Sie mir bitte helfen zu verstehen, was ist das Problem?

Vielen Dank im Voraus. Ich wünsche ihnen einen wunderbaren Tag.

Jean

Answer 1

Sie sind nicht die vollen Möglichkeiten des Worksheet_Change Ereignis verwenden und Target, die bereits als Range definiert ist.

Versuchen Sie den Code unten:

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim CongesG As Range 

Set CongesG = Range("$I$12") 

If Not Application.Intersect(CongesG, Target) Is Nothing Then 
    Application.EnableEvents = False 
    Select Case Target.Value 
     Case 2, 0 
      Target.Offset(1).EntireRow.Hidden = True 
      With Range("H12:L12").Borders(xlEdgeBottom) 
       .LineStyle = xlDot 
       .Color = RGB(51, 63, 79) 
       .Weight = xlThin 
      End With 
     Case 1 
      Target.Offset(1).EntireRow.Hidden = False 
      With Range("H12:L12").Borders(xlEdgeBottom) 
       .LineStyle = xlNone 
      End With 
    End Select 
End If 'Application intersect CongesG 
Application.EnableEvents = True 

End Sub