![]() |
||
![]() |
Wert der aktiven Zelle bequem erhöhenIch suche nach einer Möglichkeit, mit Hilfe eines Mausklicks oder durch Drücken einer Tastenkombination bequem den Wert der aktiven Zelle um 1 zu erhöhen oder zu verringern. Können Sie mir weiterhelfen?
Dazu müssen Sie die Eingabe-Ereignisse mit Hilfe von VBA-Makros auswerten. Ein kombinierter Einsatz von Tastatur und Maus zum Beispiel linker Mausklick bei gedrückter Taste [Strg] ist nur für bestimmte Steuerlemente möglich. Zur direkten Bearbeitung von Zellinhalten müssen Sie auf den Doppelklick oder auf Tastenkombinationen ausweichen. Öffnen Sie dazu die Arbeitsmappe, dann »Extras | Makro | Visual Basic-Editor« und darin »Ansicht | Projektexplorer«. In der Struktur des aktuellen VBA-Projektes klicken Sie mit der rechten Maustaste auf »Diese Arbeitsmappe« und wählen »Code anzeigen«. Geben Sie folgende Anweisungen ein: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByValTarget As Range, Cancel AsBoolean)Beenden Sie den VBA-Editor mit »Datei | Schließen und zurück zu Microsoft Excel«. Künftig erkennt VBA jeden Doppelklick und führt zuerst die beiden Programmzeilen aus, um den Zellwert in der aktiven Zelle zu erhöhen. Die übliche Funktion des Doppelklicks bleibt dabei erhalten. Statt der direkten Befehle können Sie auch eine Prozedur aufrufen, die Sie zusätzlich in diesem Code-Abschnitt definieren. Mit Tastenkombinationen sind Sie noch flexibler. Auch für diese Variante öffnen Sie im VBA-Editor den Code für »Diese Arbeitsmappe« und geben beispielsweise Folgendes ein: Private Sub Workbook_Open()So verknüpfen Sie bestimmte Tastenkombinationen mit Prozeduren. Bei der Definition der Tasten steht »+« für [Umsch], »^« für [Strg] und »%« für [Alt]. Weitere Informationen finden Sie in der Visual-Basic-Hilfe zum Thema »OnKey«. Das Beispiel startet mit der Tastenkombination [Strg]+[Pfeil rechts] die Prozedur »Feld_erhöhen« und mit [Strg]+[Pfeil links] »Feld_verringern«. Diese Prozeduren müssen in einem separaten Modul definiert sein. Dazu öffnen Sie »Einfügen | Modul« und geben den entsprechenden Code ein: Private Sub Feld_erhöhen()Beenden Sie die Eingabe mit »Datei | Schließen und zurück zu Microsoft Excel«. Speichern und schließen Sie Ihre Arbeitsmappe. Ab dem nächsten Öffnen funktioniert die neue Programmierung. Die Tastenkombinationen bleiben jeweils bis zum Neustart von Excel wirksam. |
![]() |