ich habe ein kleines Problem mit der Berechnung von Zellen.
Ich habe die Berechnung auf Manual geschaltet, möchte aber in einem Blatt die Berechnung automatisch machen bei jeder Zelländerung.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
Dann habe ich das Problem, dass ich nicht mehr innerhalb des Blattes Zellen kopieren kann, denn sobald ich die Zielzelle auswähle, kommt das Makro im Hntergrund und löscht mir den Zwischenspeicher.Also wollte ich die Ausnahme, dass nur wenn der Zwischenspeicher leer ist, die Berechnung durchgeführt wird.
Das habe ich folgendermaßen realisiert:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyData As New DataObject
Dim ZA As String
MyData.GetFromClipboard
ZA = MyData.GetText(1)
If ZA = "" Then ActiveSheet.Calculate
End Sub
Das funktioniert aber nur, wenn im Zwischenspeicher etwas steht, aber nicht bei normalen Zelländerungen, da er an der Zeile ZA = MyData.GetText(1)hängenbleibt, weil das CLipboard "Leer" ist.
Wie kann ich das abfangen?
Vielen Dank für eure Hilfe
Chris