Worksheet_Change(ByVal target As Range)
22.08.2016 08:07:10
Fabian
kurz vorm Wochenende werde ich hier wahnsinnig!
Ich bin kein VBA-Profi /ehr Rookie - ABER ich geb mir mühe :D
ALso mein Problem:
Ich möchte Code ausführen wenn sich der Zelleninhalt einer Zelle ändert. Ich weiß dazu gibt es eine Menge Lösungsansätze.
ABER leider wird das Makro nur ausgeführt wenn ich in die Zelle klicke und mit der Entertaste bestätige.
Das Makro wird nicht ausgeführt wenn sich die Zelle ausschließlich durch die Formel ändert.
Ich weiss es gibt eine möglichkeit mit einer If Abfrage, also
If Range (XY) = "BLA" then ..... aber das ist aufgrund der Problemstellung nicht möglich.
Hier mal der Code (denke aber das wird nciht wirklcih weiter helfen):
Private Sub Worksheet_Change(ByVal target As Range)
Set target = Application.Intersect(target, Sheets("START").Range("G9").Value)
Sheets("Kalender").Select
Range("L2").Select
Selection.Copy
ActiveSheet.Range("$A$2:$G$263").AutoFilter Field:=3, Criteria1:=Range("L2").Value
End Sub
Ich danke euch für tipps, anregungen und verabschiede mich ins Wochenende.
Bis dahin
Beste Grüße
Anzeige