Worksheer_Calculate()
02.11.2003 16:03:41
Daniel
Ich hab hier dieses VBA, doch wie so oft funzt es nicht. Das Problem liegt glaube ich im "If Target.Count ..."
Es kommt der Fehler: "Laufzeitfehler 424: Object erforderlich".
Zur Erklärung:
In S20 ist eine Formel. Sie rechnet entweder Ja oder Nein aus. Das Gleiche gilt für S21. Wenn S20 "nein" sollte die Reihe 22 versteckt werden. Wenn S21 "nein" ist sollte die Reihe 23 versteckt werden.
Vielen Dank für die Hilfe!!!
Daniel.
Private Sub Worksheet_Calculate()
If Target.Count > 1 Then Exit Sub ' falls mehrere Zellen mit einmal gefüllt werden
'Reminder
If Target.Address(0, 0) = "S20" Then
If Target = "Nein" Then Rows("22:22").Hidden = True
If Target = "Ja" Then Rows("22:22").Hidden = False
ElseIf Target.Address(0, 0) = "S21" Then
If Target = "Nein" Then Rows("23:23").Hidden = True
If Target = "Ja" Then Rows("23:23").Hidden = False
End If
End Sub