Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

lange Dateneingabe verkürzen mittels VBA?

lange Dateneingabe verkürzen mittels VBA?
07.08.2018 14:29:57
Tom
Hallo,
Dieses Forum hat mir als bisherig stiller Mitleser schon bei vielen Problemen helfen können, aber dieses mal stehe ich vor einem Problem, wo ich keine Anhaltspunkte finden kann:
Ausgangslage:
ich muss regelmäßig eine lange Liste von 500 Werten eingeben, wobei die Ausprägung jeweils nur 1 oder 2 sein kann.
Es läuft also bspw. so:
1 Enter, 1 Enter, 2 Enter, 1 Enter, 2 Enter, 2 Enter,..... usw... - insgesamt 500x, also 1000 Tastenanschläge....
Jetzt habe ich mir gedacht, dass man sich evtl. die 500 dazwischen liegenden Enter Tasten sparen könnte...?
Also sobald in Zeile 1 der Wert 1 (oder 2) eingegeben wird, startet ein Makro und springt in zeile 2, wo dann wieder nur 1 oder 2 gedrückt wird und so weiter...
Die Funktion "Worksheet_Change" funktioniert hier leider nicht, da ja die Prüfung erst beginnt, sobald die Zelle tatsächlich geändert wurde (also erst wieder Enter gedrückt wurde).
Sprich, man braucht ein Art Event, das schon beim Editieren einer Zelle greift und nicht erst nach dem Editieren.
Ich hoffe, meine Problemstellung ist halbwegs klar ;)
Vielen Dank!
Liebe Grüße
Tom

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: lange Dateneingabe verkürzen mittels VBA?
07.08.2018 14:45:32
Rudi
Hallo,
man braucht ein Art Event, das schon beim Editieren einer Zelle greift
Im Editiermodus läuft VBA nicht.
Du könntest die Zahlen in eine TextBox eingeben und auf deren Change-Event reagieren.
Gruß
Rudi
AW: alles in eine Zelle ...
07.08.2018 14:48:33
Fennek
Hallo,
schreibe alle "1" und "2" ohne Trennzeichen in eine Zelle und verteile die Eingabe mit VBA auf die 500 Zellen.
mfg
dann aber vorher ....
07.08.2018 15:04:29
Rudi
... die Zelle als TEXT formatieren oder mit einem ' beginnen.
Gruß
Rudi
AW: alles in eine Zelle ...
07.08.2018 15:15:48
Tom
Hallo,
Diese Lösung ist leider nicht so praktikabel, weil ich dazwischen immer wieder Markierungen drinnen habe, wo ich auf einen Blick sehe, ob ich eh noch nicht in der Zeile verrutscht bin...
Manchmal passiert es ja, dass man einen 2er zuviel eingibt und man dann schon falsch läuft....
Aber die Idee ist trotzdem nicht schlecht - Danke!
Anzeige
AW: lange Dateneingabe verkürzen mittels VBA?
07.08.2018 14:52:18
Martin
Hallo Tom,
dann verwende ein UserForm mit einem Textfeld. Das Textfeld kannst du direkt bei der Eingabe auswerten.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With ActiveCell
Select Case KeyCode
Case 97
ActiveCell = 1
Cells(.Row + 1, .Column).Select
Case 98
ActiveCell = 2
Cells(.Row + 1, .Column).Select
End Select
End With
KeyCode = 0
End Sub
Viele Grüße
Martin
...hier mit Beispieldatei
07.08.2018 15:08:16
Martin
Hallo Tom,
hier noch einmal mein Vorschlag mit Beispieldatei:
https://www.herber.de/bbs/user/123186.xls
Viele Grüße
Martin
Anzeige
AW: ...hier mit Beispieldatei
07.08.2018 15:12:55
Tom
aaahhh, jetzt wird mir es klar!!!!
(Die Datei sagt mehr als 1000 Worte ;))) )
Ja, mit der Lösung kann ich gut leben!!
Vielen DANK!!!!
AW: ...hier mit Beispieldatei
07.08.2018 16:16:10
Tom
Sodala,
ich habe jetzt deine Lösung komplett implementiert und auch schon ein paar Testläufe durchgeführt.
Es funktioniert alles wunderbar und der Zeitgewinn beträgt (derzeit allerdings noch ungeübt) rund 25%!
Nochmals DANKE an dieser Stelle!
AW: ...hier mit Beispieldatei
07.08.2018 18:03:34
Martin
Hallo Tom,
ich danke dir für deine Rückmeldung und freue mich, dass dir diese Lösung viel Zeit einspart.
Viele Grüße
Martin
AW: ...hier mit Beispieldatei
07.08.2018 18:12:07
Martin
Hallo Tom,
jetzt habe ich doch noch einen Hinweis. Du kannst sogar auf die TextBox verzichten und das KeyDown-Ereignis auf den CommandButton anwenden:
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As  _
Integer)
With ActiveCell
Select Case KeyCode
Case 97
ActiveCell = 1
Cells(.Row + 1, .Column).Select
Case 98
ActiveCell = 2
Cells(.Row + 1, .Column).Select
Case 27
Exit Sub
End Select
End With
KeyCode = 0
End Sub
Viele Grüße
Martin
Anzeige
...besser und kürzer
08.08.2018 07:49:30
Martin
Hallo Tom,
letzte Nacht ist mit eingefallen, dass ich nur die Tasten des Ziffernblocks berücksichtigt hatte, aber nicht die Tasten in der Zahlenreihe der normalen Tastatur. Die habe ich jetzt auch berücksichtigt. Die TextBox und der CommandButton gehören nun auch der Vergangenheit an:
https://www.herber.de/bbs/user/123195.xls
Ich glaube, dass es jetzt nicht mehr besser geht ;-)
Viele Grüße
Martin
AW: ...besser und kürzer
08.08.2018 16:47:30
Tom
Wow!
Schlanker geht es jetzt wohl wirklich nicht mehr... ;))
Vielen Dank!
AW: lange Dateneingabe verkürzen mittels VBA?
07.08.2018 15:09:42
Tom
Hallo,
Ich habe jetzt auf die Schnelle ein UserForm integriert und deinen Code in das entsprechende Arbeitsblatt eingefügt.
Sobald ich die Eingabe aufrufe öffnet sich das Userform ebenfalls. Gebe ich dann aber einen Wert ein, passiert nichts.
Irgendwo fehlt mir da scheinbar noch die Verknüpfung vom Textfeld zu deinem Code *grübel*
Anzeige

303 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Datum/Autor für Eingabe mit "Historie" (vba)
Lukas

Hallo liebe Forumnutzer,
in meiner Unwissenheit wurde ich gebeten, folgendes umzusetzen:
In A5 wird ein Wert eingegeben, in A7 und A8 sollen einmal Autor und einmal Datum der Änderung notiert werden. Jetzt wird in A5 ein neuer Wert eingetragen, der alte Wert aus A5 soll inklusive Autor...
18.11.2008 17:52:05
Thread-ID: 1025721
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
4
16
5
30
3
11
6
3
8
3
3
12
12
2
2
14
1
6
6
2
1
8
1