Rows Hidden
27.02.2018 03:20:32
Daniel
Folgender Code weigert sich einfach, das zu tun, was ihm meiner Meinung nach beauftragt worden ist. Es geht darum, dass er bei einem bestimmten Zellwert Zeilen ausblenden müsste:
Private Sub Worksheet_Change(ByVal Target As Range)
'Blendet die Korrekturrechner I-III sowie weitere Teile automatisch aus)
'schaltet "Bremsen" aus
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Korrekturrechner I
If WorksheetFunction.Sum(Sheets("RT").Range("D18")) = 0 And WorksheetFunction.Sum(Sheets(" _
_
_
RT").Range("D19")) = 0 Then
Sheets("RT").Rows("17:19").EntireRow.Hidden = True
Else
Sheets("RT").Rows("17:19").EntireRow.Hidden = False
End If
'Korrekturrechner II
If WorksheetFunction.Sum(Sheets("RT").Range("D26:G26")) = 0 Then
Sheets("RT").Rows("25:26").EntireRow.Hidden = True
Else
Sheets("RT").Rows("25:26").EntireRow.Hidden = False
End If
'Überschussverteilung
If Sheets("RT").Range("D28") = 0 Then
Sheets("RT").Rows("29:31").EntireRow.Hidden = True
Else
Sheets("RT").Rows("29:31").EntireRow.Hidden = False
End If
'Korrekturrechner III
If WorksheetFunction.Sum(Sheets("RT").Range("H33:K33")) = 0 Then
Sheets("RT").Rows("32:33").EntireRow.Hidden = True
Else
Sheets("RT").Rows("32:33").EntireRow.Hidden = False
End If
'schaltet "Bremsen" ein
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Woran könnte es liegen? Die einzelnen Codesequenzen abgespielt funktionieren. Ich sehe da echt nicht mehr durch.
Danke für eure Inputs.