Zeilen EIn/Ausblenden mit Worksheet change
11.09.2023 22:04:55
Thomasa Brill
habe seit etwa 15 Jahren nichts mehr mit VBA gemacht und leider einiges vergessen.
Unten der Code den ich bereits hinbekommen habe. Per Abfrage einiger Zellen werden jeweils 4 Zeilen ausgeblendet.
Das ganz soll mit Worksheet Change immer automatisch laufen!
Wie bekomme ich das hin?
Gruß Thomas
Sub test()
If Cells(16, 1).Value = "Reihe nicht möglich" Then
Rows("19:22").Hidden = True
Else
Rows("19:22").Hidden = False
End If
If Cells(20, 1).Value = "Reihe nicht möglich" Then
Rows("23:26").Hidden = True
Else
Rows("23:26").Hidden = False
End If
If Cells(24, 1).Value = "Reihe nicht möglich" Then
Rows("27:30").Hidden = True
Else
Rows("27:30").Hidden = False
End If
If Cells(28, 1).Value = "Reihe nicht möglich" Then
Rows("31:34").Hidden = True
Else
Rows("31:34").Hidden = False
End If
If Cells(32, 1).Value = "Reihe nicht möglich" Then
Rows("35:38").Hidden = True
Else
Rows("35:38").Hidden = False
End If
If Cells(36, 1).Value = "Reihe nicht möglich" Then
Rows("39:42").Hidden = True
Else
Rows("39:42").Hidden = False
End If
If Cells(54, 3).Value = "Reihe nicht möglich" Then
Rows("57:60").Hidden = True
Else
Rows("57:60").Hidden = False
End If
If Cells(58, 3).Value = "Reihe nicht möglich" Then
Rows("61:64").Hidden = True
Else
Rows("61:64").Hidden = False
End If
If Cells(62, 3).Value = "Reihe nicht möglich" Then
Rows("65:68").Hidden = True
Else
Rows("65:68").Hidden = False
End If
End Sub