Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schnellerfassung in Excel

Schnellerfassung in Excel
21.08.2008 10:10:48
Wolli
Hallo zusammen.
Versuche eine Schnellerfassung in Excel zu bauen ohne ein Formular zu bemühen.
Es geht um das Auswerten von Schulungsfeedbackbögen.
12 ja/nein - Fragen.
Also Antwort immer 1 oder 0! (einstellige Eingabe).
Der Ablauf soll so sein, daß Excel sofort in die naechste Zeile springt wenn ein Zeichen eingegeben wird.
Somit würde man sich bei jeder Eingabe das drücken der ENTER - Taste sparen. Das sind dann bei 1000 Schulungen rund 10000 Tastendrücke weniger!
Würde mich sehr über eine brauchbare Antwort freuen.
Lieben Dank im voraus,
Wolli

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schnellerfassung in Excel
21.08.2008 11:30:00
Heiko
Hallo Wolli,
also wenn du nur die Tasten 1 und Null willst z.B. so:
Ist als Anregung zu verstehen, mal ein leeres Tabellenblatt öffnen Code starten und Tasten drücken.
Option Explicit
Private Declare 

Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESC = &H1B   'Taste ESC
Private Const VK_0 = &H30     'Taste 0
Private Const VK_1 = &H31     'Taste 1



Sub Nur_0_1()
Application.StatusBar = "Nur Tasten 0 und 1, Beenden mit [ESC]"
Do
If GetAsyncKeyState(VK_0) = -32767 Then
ActiveCell = "0"
ActiveCell.Offset(1, 0).Activate
End If
If GetAsyncKeyState(VK_1) = -32767 Then
ActiveCell = "1"
ActiveCell.Offset(1, 0).Activate
End If
Loop While Not GetAsyncKeyState(VK_ESC) = -32767
Application.StatusBar = False
End Sub



Andere Idee, erstmal alles mit 0 oder 1 auffüllen und dann per Maus (Über SelectionChange) die Felder anwählen die halt geändert werden müssen.

Gruß Heiko 

PS: Rückmeldung wäre nett !
Anzeige
AW: Schnellerfassung in Excel
21.08.2008 13:42:00
Heiko
Hallo Wolli,
kann ich selber brauchen, darum hier eine etwas weiter entwickelte Version.
Option Explicit
Private Declare 

Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESC = &H1B   'Taste ESC
Private Const VK_0 = &H30     'Taste 0
Private Const VK_1 = &H31     'Taste 1
Private Const VK_PLI = &H25   'Taste Pfeil Links
Private Const VK_PRE = &H27   'Taste Pfeil Rechts
Private Const VK_PRA = &H26   'Taste Pfeil Rauf
Private Const VK_PRU = &H28   'Taste Pfeil Runter



Sub Nur_0_1()
Dim varHelp As Variant
Dim strHelp As String
Application.StatusBar = "Nur Tasten 0 und 1, Beenden mit [ESC]"
Do
If GetAsyncKeyState(VK_0) = -32767 Then
ActiveCell = "Nein"
ActiveCell.Offset(1, 0).Activate
End If
If GetAsyncKeyState(VK_1) = -32767 Then
ActiveCell = "Ja"
ActiveCell.Offset(1, 0).Activate
End If
If GetAsyncKeyState(VK_PLI) = -32767 Then
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Activate
End If
End If
If GetAsyncKeyState(VK_PRE) = -32767 Then
If ActiveCell.Column  1 Then
ActiveCell.Offset(-1, 0).Activate
End If
End If
If GetAsyncKeyState(VK_PRU) = -32767 Then
If ActiveCell.Row 


Gruß Heiko 

PS: Rückmeldung wäre nett !
Anzeige

299 Forumthreads zu ähnlichen Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Anzeige
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Lagerverwaltung mit Excel
Ralf

Hallo,
ich habe eine Lagerverwaltungsliste, in Spalte A stehen die Produkte, in Spalte B die Lagerzugänge und in Spalte C die Lagerabgänge.
In jeder Zeile befindet sich immer nur ein Buchungsvorgang, also entweder nur Zugang oder nur Abgang vom Lager.
Ich möchte in Spalte F, die akt...
08.08.2008 09:51:52
Thread-ID: 1000187
4 Beiträge
Anzeige
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Word Dokument in Excel einlesen
Silva


Hallo an alle Exceluser,
ich stehe mal wieder vor einer neuen Herausforderung und komme nicht weiter.
Ich habe ca. 100 Worddateien (ALLE gleich aufgebaut). Und ich habe 1 Exceldatei.
Jetzt möchte ich eine definierte Anzahl an Informationen automatisch aus den Worddateien in Exc...
11.08.2008 11:24:00
Thread-ID: 1000766
8 Beiträge
Access update von Excel
Excel

Hi Excel Freaks,
Ich habe folgendes Problem.
Ich habe eine Access Datenbank mit ca. 150000 Artikel und neben den normalen Preisen enthält diese auch selbst erstellte Preise.
Jetzt bekomme ich per Excel einmal im Monat eine aktualisierte Preisliste mit ca. 12000 Artikeln.
Diese j...
11.08.2008 13:28:57
Thread-ID: 1000834
7 Beiträge

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
3
12
1
3
1
9
2
4
7
6
3
4
3
1
6
2
9
10
4
1
2
1
1
7
15