Zwischenspeicher auslesen
ChrisW
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
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
hängenbleibt, weil das CLipboard "Leer" ist.
Wie kann ich das abfangen?
Vielen Dank für eure Hilfe
Chris