Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Wie prüfen, ob die Leertaste gedrückt wurde

Makro: Wie prüfen, ob die Leertaste gedrückt wurde
wonder
Hallo,
ich möchte gerne während ein Makro läuft, prüfen, ob der User die Leerzeichen-Taste auf der Tastatur gedrückt hat.
Sobald diese Taste gedrückt wurde, soll der Inhalt der Variablen "Antwort" in die Zelle A7 geschrieben werden.
Wenn ich nun das unten genannte Coding mit "keyascii" verwende, wird komischerweise nichts in die Zelle A7 geschrieben aber in eine MsgBox (die eigentlich weiter unten im Coding auftaucht).
Ich verwende Excel 2007 und VB 6.5.
Es wäre toll, wenn jemand einen Tipp für mich hätte.
Danke und viele Grüße
Stefan
Foglende Coding klappt leider nicht:
If KeyAscii = 32 Then ' 32 ist der dezimale ASCII-Code für die Leertaste
Worksheets(3).Cells(7, 1) = antwort
End If
AW: Makro: Wie prüfen, ob die Leertaste gedrückt wurde
12.10.2010 12:31:02
Tino
Hallo,
da wären ein bar Infos mehr nötig.
Wann soll diese Leertaste abgefangen werden?
Wenn der Code läuft? Wie ist der Code aufgebaut?
Wenn der User in eine Zelle schreibt oder, oder ...?
Ein grobes Beispiel für einen Code der in einer Schleife läuft.
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer
        
Private Const Key_Leer& = &H20
Function CompKey(KCode&) As Boolean
Dim Result%
    
Result = GetAsyncKeyState(KCode)
CompKey = Result = -32767

End Function

Sub test()

Do While Not CompKey(Key_Leer)

Loop

DoEvents
MsgBox "Leer gedrückt"
End Sub
Gruß Tino
Anzeige
AW: Makro: Wie prüfen, ob die Leertaste gedrückt wurde
12.10.2010 13:11:29
wonder
Hallo Tino,
vielen Dank für Deine Info.
Es handelt sich um ein ganz einfaches Progrämmchen, das wie folgt läuft:
Makro wird gestartet und schreibt eine Info in die Zelle A6.
Während das Makro immer noch läuft soll, etzt der User durch Drücken der Leertaste dafür sorgen, das eine weitere Info in die Zelle A7 geschrieben wird.
Daher dachte ich, das ich durch die einfache Abfrage von (IF KeyAscii =32) das Schreiben der Info in Zelle A7 auslösen kann. Das klappt aber leider nicht.
Ich hoffe, dass es hier einen einfachen Befehl, wie etwa KeyAscii oder KeyPress gibt, sodass eine ganz einfache IF-Abfrage reicht.
Wäre für einen Tipp von Dir sehr dankbar.
Viele Grüße, Stefan
Anzeige
AW: Makro: Wie prüfen, ob die Leertaste gedrückt wurde
12.10.2010 13:27:41
Tino
Hallo,
so einfach ist es nicht während ein Code läuft, da gibt es keine direkten Events.
Am einfachsten wäre es erst mal wenn Du an bestimmten Punkten im Code dies mit einbaust.
Beispiel:
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer
        
 Const Key_Leer& = &H20

Function CompKey(KCode&) As Boolean
Dim Result%
    
Result = GetAsyncKeyState(KCode)
CompKey = Result = -32767

End Function

Sub Dein_Programm()
    'Code 
    '... 
    If CompKey(Key_Leer) Then Range("A7") = Antwort
    'Code 
    '... 
    If CompKey(Key_Leer) Then Range("A7") = Antwort
    'Code 
    '... 
    If CompKey(Key_Leer) Then Range("A7") = Antwort
    'Code 
    '... 
    If CompKey(Key_Leer) Then Range("A7") = Antwort
    'Code 
    '... 
End Sub
Aufwendiger könnte man was mit einem Api- Timer versuchen,
ob dies Excel verkraftet habe ich noch nicht getestet.
Wenn dies oben Dir nicht hilft, kann ich mal versuchen ein Beispiel aufzubauen,
wenn es funktionieren sollte wie ich es mir denke.
Gruß Tino
Anzeige
AW: Makro: Wie prüfen, ob die Leertaste gedrückt wurde
12.10.2010 14:30:38
wonder
Hallo Tino,
danke für Dein Coding. Ich hab's gerade ausprobiert, hat aber leider auch nicht funktioniert.
Langsam dämmert mir, dass die einfache Abfage (IF KeyAscii=32) wohl deshalb nicht funktioniert, weil er beim Erreichen dieser Codingzeile blitzschnell feststellt, dass momentan (noch) niemand die Leer-Taste gedrückt hat. Damit ist die IF-Bedingung nicht erfüllt und er springt in die nächste Zeile des Codings.
Was ich bräuchte ist ein VB-Befehl in der Art "Warte auf eine Tastatur-Eingabe".
Kennst Du hier einen Befehl?
Kann das evtl. das Event "KeyPress" leisten?
Danke und viele Grüße
Stefan
Anzeige
AW: Makro: Wie prüfen, ob die Leertaste gedrückt wurde
12.10.2010 15:18:43
Tino
Hallo,
ich weiß nicht was Dein Code alles so machen soll, auf alle fälle ist es gundsätzlich möglich.
Wie man es aber in Deinen Code geschickt einbaut kann ich ohne die Datei nicht sagen.
https://www.herber.de/bbs/user/71870.xls
Gruß Tino

305 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
9
2
1
4
7
2
7
1
23
12
1
23
6
9
2
4
6
10
1
2
6
9
4