Makro ausführen wenn Zellwert ändert
06.01.2020 12:39:44
Skywalker
Ich benötigte eure Unterstützung bei einem Makro.
In Tabelle 2 habe ich folgendes Makro stehen:
Private Sub Worksheet_Change(ByVal Target As Range)
' Ausführung von Makro wenn Zellwert C22 ändert.
Dim anzahlKinder As Range
Set anzahlKinder = Range("$C$22")
If Not Application.Intersect(anzahlKinder, Range(Target.Address)) Is Nothing Then
Zeile_ein_ausblenden_pro_Kind
End If
Das Makro funktioniert einwandfrei und bewirkt, dass wenn ich in Zelle C22 den Wert ändere, das Makro "Zeile_ein_ausblenden_pro_Kind" automatisch ausgeführt wird.
Nun möchte ich ein ähnliches Makro erstellen, jedoch für den Wert in Zelle "$C$48" und mit dem Marko "Immo". Das Makro "Immo" an und für sich funktioniert, wird jedoch bei Änderung des Zellwertes C48 noch nicht aktualisiert.
Wie muss ich meinen Code anpassen?
Hier der zweite Code:
Private Sub Worksheet_ChangeImmo(ByVal Target As Range)
' Ausführung von Makro wenn Zellwert C48 ändert.
Dim anzahlImmo As Range
Set anzahlImmo = Range("$C$48")
If Not Application.Intersect(anzahlImmo, Range(Target.Address)) Is Nothing Then
Immo
End If
End Sub