Makros feste Zellen /Zeilen zuordnen

[Fasedamo]

Hallo zusammen.

Ich habe mehrere Makros zum ausblenden von Zeilen geschrieben.

Beispiel:
If Target.Address(0, 0) = "C37" Then
        If Range("C37") = "Nein" Then
            Rows("38").Hidden = True
        Else
            Rows("38").Hidden = False
        End If
    End If


Wenn die angesteuerten Zeilen sich auf dem Sheet verschieben (z.B. C37 wird C39 und Row 38 wird Row 40) da Ergänzungen notwendig werden muss ich jedesmal das Makro nachziehen. Wie kann ich dies vermeiden.

[schauan]

Hallöchen,

gebe den Zellen Namen ...

[Fasedamo]

Hallo schauan,
das wäre sehr aufwendig. Hatte gehofft es gäbe eine andere Lösung, aber danke dir.

[bug99]

von was ist denn die Zeille abhängig, welche ausgeblendet werden soll?

ist es die Zeile der ersten beschriebene nach Zelle x,y in Spalte x?

oder ist es die Zelle, welche n Zellen, neben der Zelle, in der "Oscar" steht?


oder, wie es eher wie aus deinem Beispiel zu entnehmen ist, immer die "darunter stehende"?

[schauan]

Hallöchen,

Du kannst auch irgendwo die Adressen per Formel hinterlegen. Verschiebt sich was, ändert sich auch das Ergebnis

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	$C$37
2	38

Zelle	Formel
A1	=ADRESSE(ZEILE(C37);SPALTE(C37))
A2	=ZEILE(C38)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

If Target.Address(0, 0) = Range("A1").Value Then
...
Rows(Range("A2").Value).Hidden=True
...

Must ggf. die Dollars im Code oder per WECHSELN entfernen, ...

[Fasedamo]

Hallo Andre,
danke , probiere ich gleich mal aus.