Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Tastendruck Makro oder Befehl ausführen

Forumthread: Bei Tastendruck Makro oder Befehl ausführen

Bei Tastendruck Makro oder Befehl ausführen
06.09.2002 16:37:06
Stefan
Hallo, zusammen,

ich verzweifel bald. Ich möchte einfach per Tastendruck einen Befehl ausführen. D.h. wenn der Anwender in eine Zelle eine Taste drückt (das Minuszeichen), dann soll folgender Code ausgeführt werden.

---------------------------------------------------------------
If ActiveCell.Value = "-" Then
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
ActiveCell.Value = "'-"
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
End If
---------------------------------------------------------------

Also... die Zelle wird auf Inhalt geprüft. Dann erfolgt ein Eintrag und der Cursor springt auf die nächste Zelle.

Mehr möchte ich doch garnicht...

Kann jemand helfen ?????

Vielen Dank
Stefan

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bei Tastendruck Makro oder Befehl ausführen
06.09.2002 16:46:57
PeterW
Hallo Stefan,

der Code gehört in das Klassenmodul der Tabell, in der er ausgeführt werden soll.

Gruß
Peter

Re: Bei Tastendruck Makro oder Befehl ausführen
06.09.2002 16:57:26
Stefan
Hallo, Peter,

danke. funktioniert aber nicht ganz. D.h. ich möchte schon bei Tastendruck, d.h. wenn der Anwender die Taste betätigt hat, einen Sprung in die nächste Zelle. Sofern ich nämlich jetzt die "-"-Taste drücke und die Pfeiltaste betätige, dann kommt ein Zellenbezug (z.B. "-H34"). Ich muß mir die Entertaste sparen.

Hast Du noch einen Tipp ?

Viele Grüße
Stefan

Anzeige
leider nicht (o.T.)
06.09.2002 17:09:35
PeterW

Re: Bei Tastendruck Makro oder Befehl ausführen
06.09.2002 23:19:05
PeterW
Hallo Stefan,

doch noch ne Idee. Muss es unbedingt das "-" sein? Mit Zeichen, die nicht als Operanden definiert sind machen auch die Pfeiltasten kein Problem.

Gruß
Peter

Re: Bei Tastendruck Makro oder Befehl ausführen
09.09.2002 10:12:31
Stefan
Hallo, Peter,

leider muß es der "-" sein. Das ist ja gerade das verzwickte. Unter Lotus ;) ging das früher ohne Probleme. Da hat man die Feldfunktionen im Menü deaktiviert.

Es muß eine Funktion sein, die jeden Testendruck registriert. So ungefähr KeyPress. Aber ich weiß nicht, wo ich sie implementieren kann.

Gruß
Stefan

Anzeige
Re: Bei Tastendruck Makro oder Befehl ausführen
09.09.2002 21:13:56
PeterW
Hallo Stefan,

wenn Du eine Lösung finden solltest wäre ich daran *sehr* interessiert.

Gruß
Peter

;

Forumthreads zu verwandten Themen

Application.Quit oder WB.close ???
Dirk

allo miteinander,
brauche bitte von Euch mal einen Rat, -Tip, oder einfach nur Hilfe.
Habe bei einer meiner Dateien ein Application.quit eingebaut, weil wenn Bedingung nicht erfüllt ist soll sich die komplette Mappe und die Tabellen die mit dieser zusammen arbeiten automatisch schließen...
01.09.2008 13:04:50
Thread-ID: 1006409
6 Beiträge
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Sprachblase oder MsgBox bei Label
Leon

Hi Zusammen
Ist es überhaupt möglich, eine Art MsgBox oder eher wie eine Sprachblase anzuzeigen wenn ich über ein
Label mit der Maus fahre?
Gruß
Leon
31.01.2009 23:00:00
Thread-ID: 1045779
12 Beiträge
Anzeige
prüfen ob ganze Zeilen oder Spalten
Anna

Hallo
ich würde gerne einen markierten Bereich, der als Range einer Funktion übergeben wird, überprüfen, ob ganze Zeilen oder Spalten ausgewählt sind.
Wie kann man das machen?
Vielen Dank schon im Voraus!
05.02.2009 09:55:00
Thread-ID: 1047308
3 Beiträge
Variable oder Prozedur anstelle eines Moduls
tco99


Hallo zusammen,
ich habe eine Frage:
ich hatte ein Makro, was ich per Schaltfläche startete. Dann habe ich im VBA-Editor ein Modul angelegt und ihm einen passenden Namen ("Filtern") gegeben. Das Makro habe ich ausgeschnitten und in dieses Modul eingefügt. Eigentlich habe ich jetzt...
06.02.2009 11:06:47
Thread-ID: 1047667
3 Beiträge
MultiPages und/oder TabStrips
Lenni

Moin Excellianer!
Ich setze mich gerade mit den Objekten MultiPage und TabStrip in einem UserForm auseinander. Im Forumsarchiv finde ich eher eine ablehnende Haltung gegenüber dem TabStrip-Objekt ("..zu kompliziert zu programmieren.." waren unter anderem die Hinweise). Aber wo der elementar...
13.02.2009 00:08:00
Thread-ID: 1050317
4 Beiträge
Und() bzw. ODER() in Matrixformeln
Sibylle

Hallo,
sollen in einer Matrixformel 2 Bedingungen durch UND() verknüpft werden, funktioniert dies nicht.
Was ist die Ursache?
Wichtiger: wie sieht die Lösung aus?
Gruß
Sibylle
13.02.2009 11:02:00
Thread-ID: 1050412
9 Beiträge
Anzeige

Infobox / Tutorial

Bei Tastendruck Makro oder Befehl ausführen

Schritt-für-Schritt-Anleitung

Um bei einem Tastendruck einen Befehl auszuführen, kannst du den folgenden VBA-Code in das Klassenmodul der betreffenden Tabelle einfügen. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Im Projektfenster suche die Tabelle, in der du das Makro anwenden möchtest.

  3. Doppelklicke auf den Tabellennamen, um das Klassenmodul zu öffnen.

  4. Füge den folgenden Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = "-" Then
       ActiveSheet.Cells(Target.Row, Target.Column + 1).Select
   Else
       Target.Value = "'-"
       ActiveSheet.Cells(Target.Row, Target.Column + 1).Select
   End If
End Sub

  5. Schließe den VBA-Editor und teste den Code, indem du in die entsprechende Zelle ein Minuszeichen eingibst.

Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht wie gewünscht.
    Lösung: Stelle sicher, dass der Code im richtigen Klassenmodul eingefügt wurde. Es sollte das Modul der Tabelle sein, in der du arbeitest.

  • Problem: Der Cursor springt nicht zur nächsten Zelle.
    Lösung: Überprüfe, ob du die richtige Tasteneingabe vornimmst und dass die Zelle, in der du arbeitest, korrekt ausgewählt ist.

Alternative Methoden

Eine alternative Methode besteht darin, das Worksheet-Event KeyPress zu verwenden, um die Tasteneingabe direkt abzufangen. Diese Methode erfordert jedoch, dass du ein UserForm erstellst, da KeyPress nicht direkt in einem Arbeitsblatt-Modul funktioniert.

  1. Erstelle ein UserForm.
  2. Füge ein Textfeld hinzu und verwende den KeyPress-Event, um die Eingabe zu steuern.

Beispiel:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Chr(KeyAscii) = "-" Then
        ' Code hier einfügen
    End If
End Sub

Praktische Beispiele

Angenommen, du möchtest die Eingabe eines Minuszeichens in der Zelle A1 überwachen:

  1. Füge den obigen VBA-Code in das Klassenmodul ein.
  2. Teste die Eingabe in Zelle A1, indem du ein Minuszeichen eingibst.
  3. Beobachte, wie der Cursor automatisch zur Zelle B1 springt.

Tipps für Profis

  • Verwende Application.EnableEvents = False, bevor du den Wert änderst, um zu verhindern, dass das Change-Ereignis erneut ausgelöst wird. Vergiss nicht, es wieder auf True zu setzen.

    Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  ' Dein Code hier
  Application.EnableEvents = True
End Sub

  • Experimentiere mit verschiedenen Eingaben und stelle sicher, dass dein Code auch in anderen Szenarien funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für andere Zeichen als "-" anpassen?
Ändere einfach die Bedingung in dem VBA-Code. Ersetze If Target.Value = "-" Then durch das gewünschte Zeichen.

2. Funktioniert dies in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen (z.B. Excel 2010 und höher).

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige