Hallo, bitte um Hilfe im Code

[Andy_007]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim strTmp As String
  If Target.Address = "$N$3" Or Target.Address = "$E$51" Then
    strTmp = Range("C4") & Range("C6")
   
    Worksheets("Iso-Frontteil_1").Visible = Target = "30"
    
    benötige Iso-Frontteil immer ausser bei   "30"
    Worksheets("Iso-Frontteil").Visible = Target = "30"
  
    
    
 End If
 End Sub

Vielen Dank im Vorraus
Viele Grüße
Andy

[Kuwer]

Hallo,

Worksheets("Iso-Frontteil").Visible = Target <> 30

Gruß Uwe

[Andy_007]

Super Danke
Für die schnelle Antwort
klappt gut
Viele Grüße :19: