Automatisches Ausführen eines Makros bei Änderung
06.08.2003 00:17:18
Nora
Ich hoffe, dass Ihr mir weiterhelfen könnt, da ich schon fast am verzweifeln bin:
Ich möchte eine Zielwertsuche durchführen lassen. Als Makro läuft das prima, nur soll das ganze jetzt noch automatisch ablaufen.
Das hab ich mir mal selber zusammengebastelt, aber das will nicht laufen:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("D53") <> Range("D49") Then
Range("D53").GoalSeek Goal:=Range("D49"), ChangingCell:=Range("C53")
End If
End Sub
Vielen Dank für die Hilfe im voraus!!
Anzeige