Zeilen ausblenden, wenn (VBA)

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich kriegs wieder nicht gebacken…

Er soll mir die Zeilen 17 bis 26 ausblenden, wenn
C10 = 0 ist.
Code in „Tabelle1“
Kann mir jemand sagen, warum er nicht will?

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Address = "$c$10" Then
ActiveSheet.Unprotect

 If Range("c10") = 0 Then
 Rows("17:26").EntireRow.Hidden = False
 Else
 Rows("17:26").EntireRow.Hidden = True
 End If

ActiveSheet.Protect
End If
End Sub

Gruß und danke
Rolf

2

Hallo Rolf,

schau mal:

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Row = 10 And Target.Column = 3 Then
ActiveSheet.Unprotect

 If Range("c10").Value = 0 Then
 Rows("17:26").Hidden = True
 Else
 Rows("17:26").Hidden = False
 End If

ActiveSheet.Protect
End If
End Sub

biba

Dirk.Pegasus

3

Er soll mir die Zeilen 17 bis 26 ausblenden, wenn
C10 = 0 ist.
Code in „Tabelle1“

Hallo Rolf,

If Target.Address = „$C$10“ Then

und du mußt True und False tauschen um das zu erreichen was du willst.
Oder gleich so:

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$10" Then
 ActiveSheet.Unprotect
 Rows("17:26").EntireRow.Hidden = Range("c10").Value = 0
 ActiveSheet.Protect
End If
End Sub

Gruß
Reinhard

4

Danke :smile:
Hallo ihr zwei

das ging fix,
klappt prima,

Danke Euch

Gruß
Rolf