Sendkeys{F2} umgehen
17.07.2018 11:30:02
scipiol
bis jetzt habe ich weder hier im Forum noch in anderen Foren die entsprechende Antwort auf meine Frage gefunden.
Ich möchte nur eine simple Summe bilden, allerdings nicht mit der WorksheetFunction über ein Macro arbeiten, sondern mit dem Macro den Summenbefehl in eine Zelle eingeben. Warum? Die Summe soll sich immer angleichen, ohne dass der Anwender jedesmal das Makro starten muss.
Option Explicit
Sub Sum()
Range("C24").Value = WorksheetFunction.Sum(Range("C10:C22"))
Range("C26").Value = "=SUMME(C10:C22)"
With Range("C26")
.Activate
SendKeys "{F2 + ENTER}", True
End With
End Sub
So wie in der zweiten Codezeile soll es werden. Er fügt es auch entsprechend ein, führt es aber nicht aus. Hierzu muss ich mit F2+Enter manuell nachhelfen. Darum habe ich das auch schon automatisiert. Dabei bekomme ich jedoch immer wieder einen Fehler, weil VBA dann eine interne Bibliothek mit allen Klassen und Objekten öffnen möchte.
Darum meine Frage, wie kann ich das Senden von F2 umgehen? Bzw. habe ich einen anderen Fehler eingebaut, den ich nicht bemerkt habe?
Danke jetzt schonmal und freundliche Grüße,
Scipiol