Einfügen riesiger Datenmengen verhindern.
15.07.2014 14:08:25
Robert
Hallo zusammen,
Ich habe beim Debuggen meiner Historyfunktion ein paar Hürden lokalisiert:
Um einen Overflow zu verhindern, muss ich die TargetRange auf ein paar Millionen Zellen beschränken.
Bisher geschieht das mit folgendem rudimentären Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo ERRORHANDLER
Dim g As Double
g = Target.Count
ERRORHANDLER:
Range("A1", "MM50000").Select
MsgBox "To prevent overflow, your selection has been reduced"
End Sub
Ist natürlich unschön gelöst, aber deshalb bin ich hier :)
Ich bräuchte eine Möglichkeit, auch die Fehler, die mit dem Code oben nicht abgedeckt sind (z.B. kopieren eines gesamten sheets aus einem Anderen Workbook)
abzudecken.
Viele Grüße
Robert