Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 15:53:24
Günstigster Preis anzeigen lassen?
25.10.2025 15:10:14
VBA: Datei Upload mit http: POST
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
25.10.2025 12:33:55
aktuellstes Datum aus Zelle auslesen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sendkeys ladet nicht in der Zelle, sondern in VBA

Forumthread: Sendkeys ladet nicht in der Zelle, sondern in VBA

Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 17:57:25
guennih
Hallo,
in den Tiefen meiner Makros verwende ich folgenden Code:

Application.ScreenUpdating = True
Cells(StrtZei, M_Sp_Sta).Select
FormulaTxt = "hier kommt eine lange Formel, die 255 Zeichen überschreitet, aber als  _
Matrixfunktion rein muss. deshalb wollte ich einen Trick anwenden und die Formel ohne Matrix in  _
_
_
die Zelle schreiben, und dann  mit Sendkeys F2 sowier [Ctrl][Shift][Return]senden"
Debug.Print "Formeln_einfügen: Formellänge= " & Len(FormulaTxt)
Debug.Print FormulaTxt
Selection.Formula = FormulaTxt
Cells(StrtZei, M_Sp_Sta).Application.ActiveWindow.Activate
SendKeys "{F2}", True
SendKeys "^+{Enter}", True

Die Sendkeys -Befehle landen aber nicht in der Zelle, sondern es aktiviert sich VBA und dieses bekommt den F2 ab
was mache ich falsch?
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 18:16:55
Daniel
HI
Starte Makros, die SendKeys verwenden, immer direkt aus der Exceldatei (über das Menü "Makro" oder einen Button) und nicht aus dem Editor heraus, so dass Excel für Windows die aktive Datei ist, auf welche die Tastatureingaben wirken.
Ein testen der SendKeys-Funktionen im Einzelstepmodus (?Debug.Print?) ist daher logischerweise nicht möglich.
Gruß Daniel
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 18:52:41
guennih
Ich starte das Makro von der Excel-Datei aus mit Button in der Ribbon-Leiste. Problem tritt auch auf, wenn ich VBA-Fenster geschlossen habe (also nicht nur wenn es im Hintergrund offen ist).
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 19:40:37
Daniel
HI
dann kann ich das Problem nicht nachvollziehen.
bei mir funktioniert dein Code.
Gruß Daniel
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 19:35:07
ChrisL
Hi
Autsch... wie wärs hiermit:
https://docs.microsoft.com/en-us/office/vba/api/excel.range.formulaarray
Müsstest die englische Schreibweise verwenden. Hierfür die Formel mal manuell eintragen und gucken:
debug.print activecell.formulaarray
Zudem ohne Schleife direkt auf den ganzen Bereich anwenden.
cu
Chris
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
14.02.2020 20:57:45
Luschi
Hallo guennih,
seit Windows-Vista macht der Vba-Befehl Application.SendKeys Probleme und M$ tut viel dafür, daß diese Probleme noch größer werden. So ist es seit Excel 2013 nicht mehr möglich, Folgendes in einem Zuge auszuführen:
- Vba-Kennwort einer AM entsperren
- gesamten Vba-Code zu löschen und neuen Vba-Code zu importieren
- Vba-Kennwort wieder zu setzen
- AM speichern
Diese Schritte liefen bei mir bis E_2010 in einem AddIn zur vollsten Zufriedenheit
Heute komme ich nur noch bis zur Vba-KW-Entsperrung, danach muß man sofort die weitere Ausführung abbrechen, sonst ist der KW-Schutz sofort wieder gesetzt und alles war umsonst!!!
Aber nun zu Deinem Problem und frohe Botschaft - Dir kann geholfen werden.
- folgende Array-Formel soll erstellt werden: =SUMME((C3:C5)*(D3:D5))
- der Code dazu sieht so aus: 

Sub Machmal()
Dim WshShell As Object, s As String
Set WshShell = CreateObject("WScript.Shell")
With Range("G7")
.Value = ""
.Select
End With
s = "{F2}=SUMME{(}{(}C3:C5{)}*{(}D3:D5{)}{)}^+~"
WshShell.SendKeys s, True
Set WshShell = Nothing
End Sub
Es wird also das VBScript-Objekt 'WScript.Shell' benutzt, denn da hat M$ die Application.SendKeys-Zicken noch nicht eingebaut.
Nachteil alle Klammerarten gehören zu den Sondeertasten und müssen wie bei {F2} maskiert werden, deshalb {(} und {)}.
Bei mir läuft die Sache (E_2019 Pro+), aber nur von der Excel-Oberfläche mit Alt+F8 und nicht innerhalb des Vba-Editors.
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
16.02.2020 13:07:32
Guennih
Danke für den Tipp
Hat nichts erkenntliches verändert.
Was jetzt geholfen hat, war ein doevents nach dem Sendkeys
Dort steht in der Hilfe, dass alle Tastaturpuffer abgearbeitet werden.
ich hatte zu Testzwecken danach eine Warteschleife und dann einen "stop"
offensichtlich werden die Sendkeys-Befehle nicht innerhalb des Makros abgearbeitet, auch nicht bei Verwendung der wait-Option.
Trotzdem Danke für die Hilfe, ohne die Diskussion wär ich nicht auf den entscheidenden Test gekommen
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
16.02.2020 16:03:47
Luschi
Hallo guennih,
solange Du wirklich mit Excel-Version 'vor 2013' arbeitest, ist es so noch möglich. Wenn Du mal auf ein Update 'nach Excel 2010' umsteigst, sieht die Excel-Welt bei Application.SendKeys' schon wieder anders aus.
Gruß von Luschi
aus klein-Paris
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
16.02.2020 20:01:05
Guennih
Ein Excel-Update von 2010 auf vermutlich 2016 steht kutrz vor dem Rollout,
Weiß man denn, ob das Problem mit den Max 255 Zeichen bei FormulaArray damit behoben wird?
Dann brauche ich eine Verzweigung im Makro wo ich versionabhängig einmal mit Sendkeys und einmal mit FormulaArray arbeite.
Anzeige
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
17.02.2020 06:12:01
Luschi
Hallo guennih,
in Excel 2019 pro+ steht immer noch der Passus von max 255 Zeichen bei FormulaArray.
Gruß von Luschi
aus klein-Paris
AW: Sendkeys ladet nicht in der Zelle, sondern in VBA
17.02.2020 08:47:48
guennih
Na, das ist doch Abwärtskompatibilität vom Feinsten!
;

Forumthreads zu verwandten Themen

VBA Button finden im Internetexplorer + sendkeys
chris

Hallo VBA Experten,
ich benötige wieder einmal eure Hilfe. Würde mich sehr freuen wenn es eine Lösung für mich gibt ?!
Ich will mal wieder Excel VBA Missbrauchen für eine andere Anwendung.
Den InternetExplorer oder OPERA.
Ich will mit VBA z.b alle 15 Minuten einen Button drücken...
09.09.2010 20:56:24
Thread-ID: 1176503
3 Beiträge
Aktivierung und Sendkeys bei Notepad per VBA-Excel
Markus

Hallo,ich möchte gerne eine Datei in Notepad öffnen. Anschließend diese aktivieren und per Sendkeys Tastaturbefehle absetzen. Danach sollte die Datei unter gleichem Namen gespeichert werden und die Anwendung notepad geschlossen.
Das ganz natürlich per VBA in Excel. Ich habe derzeit folgenden...
16.07.2002 09:11:34
Thread-ID: 136884
2 Beiträge
Sendkeys Befehl für VBA Abbruch?
Björn

Huhu,ich möchte dem Nutzer eines xl-AddIns die Möglichkeit geben, eine VBA-Schleife durch den Klick auf eine weitere Schaltfläche abzubrechen. Mit dem DoEvents-befehl vor dem Loop-Command reagiert die Schleife tatsächlich auch den Abbruch-befehl mittels TASTEN-Kombi STRG + Break. Auch reagiert...
15.11.2002 14:38:40
Thread-ID: 181857
5 Beiträge
SendKeys OK oder Enter?
Willie

Hallo an alle brauch heute selber wieder mal Hilfe
Ich will ein Tabellenbaltt löschen per VBA code
es kommt aber dann das Fenster:
Ausgwählte Blätter endgültig löschen?
Ok und Abbrechen Ich will OK wir mache ich das? Habe in der Recherche leider nichts passendes gefunden.
Sheet...
02.05.2003 11:48:22
Thread-ID: 251679
4 Beiträge
SendKeys (Enter) unter VBA
mandy
Hallo,

ich möchte in VBA - also in Excel - das der corsur in die nächste Zeile springt. Mit:
SendKeys (Enter)
habe ich es schon versucht, was leider keine Wirkung zeigt. Wer kann mir helfen?
10.09.2003 15:48:07
Thread-ID: 307951
7 Beiträge
VBA: Sendkeys
Peter/Berlin
Hallo VBA-Fans,
wie lautet die Syntax, um mit
SendKeys
die TAB-Taste und
die Enter-Taste(Return) anzusprechen?
Gruss Peter
15.03.2004 12:48:55
Thread-ID: 397722
2 Beiträge
Suchfunktion per VBA ohne SendKeys
Marc

Hallo zusammen,
ich habe eine Datei, in der sämtliche Menüleisten per VBA ausgeblendet wurden. In dieser Datei würde ich nun gern die Suchfunktion, die normalerweise über STRG + F aufgerufen werden kann, per Button aktivieren. Da die Menüleisten jedoch ausgeblendet wurden, hat das zur Folge...
16.01.2006 18:45:51
Thread-ID: 719941
3 Beiträge
SendKeys VBAProject schützen
Joe

Hallo,
mit folgendem VBA Code kann ich das VBA Project für die Anzeige sperren (schützen). Ich möchte von Arbeitsmappe A den Code aufrufen und das VBAProject der Arbeitsmappe B sperren. Leider wird immer nur das VBAProject aus dem auch der Code aufgerufen wurde gesperrt. Hat jemand eine Ide...
05.09.2007 09:21:00
Thread-ID: 903745
2 Beiträge
VBAProjectKennwort mittels sendkeys aufheben
Jochen


Hallo zusammen,
habe einen Code geschrieben, mit dem ich das VBAProject Kennwort einer Arbeitsmappe ändern möchte:
Private Sub CommandButton3_Click() Const C_PASSWORT As String = "test" Application.VBE.MainWindow.Visible = True If (Val(Application.Version) = 8) Then ' Office 97...
27.09.2007 16:18:00
Thread-ID: 911073
2 Beiträge
Anzeige
VBA: "Alt +Enter" in zwei Zellen
Apfelbaum
Hallo Team, ich bräuchte dringend eure Hilfe.
Ich möchte, dass in zwei Zellen jeweils die "Alt +Enter" parallel eingesetzt wird.
Als Beispiel:
In der Zelle "D5" habe ich drei Wörter Untereinander geschrieben:
Apfel,
Birne,
Traube
In der Zelle "E5" schreibe ich zu den Ap...
22.08.2022 20:50:35
Thread-ID: 1895649
10 Beiträge
VBA SendKeys von Excel zu Outlook Ausführung
Jan
Guten Tag zusammen,

ich habe einen VBA Code, welcher von Excel aus in Outlook eine Mail erstellt und über SendKeys das zuvor kopierte per VBA reinkopiert.
Das funktioniert auch genau so, wie ich es möchte.

Nun möchte ich aber einen zweiten Part kopieren. (Der Code ist auch be...
14.08.2024 08:55:19
Thread-ID: 1988064
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

SendKeys in Excel VBA: Probleme und Lösungen

Schritt-für-Schritt-Anleitung

  1. Makro erstellen: Öffne Excel und erstelle ein neues Makro, um den VBA-Code einzugeben.

  2. Code einfügen: Füge den folgenden Code in das Modul ein:

    Sub BeispielSendKeys()
    Application.ScreenUpdating = True
    Cells(1, 1).Select
    Selection.Formula = "Deine Formel hier"
    SendKeys "{F2}", True
    SendKeys "^+{Enter}", True
End Sub

  3. Makro ausführen: Stelle sicher, dass du das Makro direkt aus Excel heraus startest, nicht aus dem VBA-Editor. Das ist wichtig, damit die SendKeys-Befehle korrekt in die Zelle eingegeben werden.

Häufige Fehler und Lösungen

  • Problem: SendKeys funktioniert nicht.

    • Lösung: Stelle sicher, dass du das Makro aus der Excel-Oberfläche startest. Wenn du das Makro aus dem VBA-Editor ausführst, erhält der Editor die Eingaben und nicht die Excel-Datei.

  • Problem: Eingaben landen im VBA-Editor anstatt in der Zelle.

    • Lösung: Verwende DoEvents nach dem SendKeys-Befehl, um sicherzustellen, dass alle Tastaturpuffer abgearbeitet werden. Beispiel:
    SendKeys "{F2}", True
DoEvents
SendKeys "^+{Enter}", True

Alternative Methoden

Wenn Application.SendKeys nicht zuverlässig funktioniert, kannst du alternative Methoden in Betracht ziehen:

  • WScript.Shell verwenden: Mit WScript.Shell kannst du Tasteneingaben steuern, ohne auf die Probleme von Application.SendKeys zu stoßen.

    Sub BeispielWshShell()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{F2}"
    WshShell.SendKeys "Deine Formel"
    WshShell.SendKeys "{ENTER}"
    Set WshShell = Nothing
End Sub

  • FormelArray nutzen: Wenn du komplexe Formeln einfügen möchtest, die die 255 Zeichen überschreiten, erwäge die Verwendung von FormulaArray.

Praktische Beispiele

  • Einfügen einer Array-Formel:

    Sub EinfügenArrayFormel()
    Range("G7").FormulaArray = "=SUMME((C3:C5)*(D3:D5))"
End Sub

  • Nutzung von SendKeys für komplexe Eingaben:

    Sub KomplexeEingabe()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{F2}"
    WshShell.SendKeys "{(}"
    WshShell.SendKeys "C3:C5"
    WshShell.SendKeys "}"
    WshShell.SendKeys "*"
    WshShell.SendKeys "{(}"
    WshShell.SendKeys "D3:D5"
    WshShell.SendKeys "}"
    WshShell.SendKeys "{)}"
    WshShell.SendKeys "{ENTER}"
    Set WshShell = Nothing
End Sub

Tipps für Profis

  • Vermeide SendKeys in kritischen Anwendungen: Wenn du mit wichtigen Daten arbeitest, nutze lieber gezielte Methoden wie Formula oder FormulaArray, um Eingabefehler zu vermeiden.
  • Teste in der richtigen Umgebung: Stelle sicher, dass du deine Makros immer in der Umgebung testest, in der sie letztendlich eingesetzt werden.
  • Nutze Kommentare: Kommentiere deinen Code ausgiebig, besonders wenn du SendKeys verwendest. So kannst du später leichter nachvollziehen, was du gemacht hast.

FAQ: Häufige Fragen

1. Funktioniert Application.SendKeys in Excel 2019?
Ja, jedoch gibt es bekannte Probleme, die seit Excel 2013 aufgetreten sind. Es wird empfohlen, alternative Methoden wie WScript.Shell zu verwenden.

2. Kann ich SendKeys für komplexe Formeln verwenden?
Ja, aber sei vorsichtig, da es zu unerwartetem Verhalten kommen kann. Überlege, ob du stattdessen FormulaArray nutzen kannst, um die Formel direkt einzufügen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige