worksheet_change versus _calculate
18.09.2007 21:38:29
Rolf
ich möchte gerne erreichen, dass ein Eintrag, den ich in Zeile 1 eines Tabellenblatts eintrage, automatisch auch in die Zeile 2 eingetragen wird. Klar könnte ich das durch eine Zellformel wie "=A1" in der Zelle B1 erreichen, das will ich aber nicht, weil diese Formel ja durch einen anderen Eintrag in B1 gelöscht würde.
Ich habe daher dieses hier probiert:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range(Cells(1, 1), Cells(1, 20))) Is Nothing Then
Target.Offset(1, 0) = Target.Value
End If
End Sub
Das klappt aber nicht, wenn ich einen Eintrag in A1 über rechtsausfüllen in die Zellen B1 bis D1 (oder so) eintrage. Die Hilfestellung sagt mir dann, ich solle in einem solchen Fall über Worksheet_calculate gehen.
Das kriege ich aber nicht hin. Kann mir jemand den obigen Code umschreiben, oder gibt es eine andere Lösung?
Danke vielmals!
Rolf