Worksheet_change
31.05.2006 23:51:59
Schauder
ich weiß ja, wie man Excel dazu bringt, auf Änderungen in einem Tabellenblatt zu reagieren. Dazu habe ich den folgenden Code zusammengeschustert, der auch in dem beigefügten File (https://www.herber.de/bbs/user/34066.xls) hinterlegt ist:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich
Set Bereich = ActiveSheet.Range("Eingabe")
For n = 1 To Bereich.Rows.Count
If Bereich(n).Address = Target.Address Then
Bereich(n).Offset(0, 1) = Bereich(n)
End If
Next
End Sub
Klappt auch ganz gut, es sei denn, ich ändere die Zellinhalte durch "Unten ausfüllen".
Nun habe ich gehört, dass man in diesen Fällen die Variante Worksheet_calculate verwenden soll - wie soll das gehen? Weiß jemand sonst eine Lösung?
Danke.
Rolf
Anzeige