ich habe eine kurze Frage:
ich blende mit folgendem Code ein paar Zeilen auf Knopfdruck ein/aus (im Rahmen der Erstellung eines Fragebogens).
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Rows("29:33").EntireRow.Hidden = False
Else
ActiveSheet.Rows("29:33").EntireRow.Hidden = True
End If
End Sub
Der Fragebogen ist aber noch nicht fertig erstellt, es kommen neue Fragen hinzu, andere kommen weg. Ich will mir nun die Arbeit ersparen immer wieder die Zeilen angleichen zu müssen, sondern erreichen, dass die Zeilen praktisch immer abhängig von der Zeile in der sich der Button befindet. also im Endeffekt dasselbe wie $X$Y. Wie kriege ich das hin?
Vielen Dank im Voraus, Benni.