On Change und Sheets.Activate
17.10.2006 19:19:36
martin
Ich möchte erreichen, dass wenn ich im Sheet 1 in Zelle C1 den Wert ändere ändere, Excel eine Kopieroperation ausführt. Ich habe mir dazu folgenden Code zusammengestückelt, doch leider geht das anscheinend in eine Endlosschleife,
jedenfalls wenn ich das Sheet 1 wieder aktiviere. Kann mir jemand helfen? Danke !!!
Martin
Private Sub worksheet_change(ByVal Target As Range)
Dim Bereich As Range
Dim i
Set Bereich = Range("C1")
If Not Intersect(Target, Bereich) Is Nothing Then
Sheets("tabelle2").Activate
i = Cells(1, 1).Value
Sheets("tabelle1").Activate
Cells(1, 1).Value = i
End If
End Sub
Anzeige