manuelle Dateneingabe im laufenden VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: manuelle Dateneingabe im laufenden VBA
von: Leonardi
Geschrieben am: 24.11.2015 01:02:25

Ich habe eine Waage mit USB-Ausgang. Mit dem Programm:
http://www.waagen.lu/datenerfassung/232key/anleitung.html
werden bei jedem Tastendruck (Print) auf der Waage, in die Zellen B2;B3;B4; ...
die Gewichtswerte eingetragen.
Ich möchte in Zelle C2;C3;C4; ... die Messzeiten ab Start stehen haben:
i=2 bis ...
Cells(i, 3) = EndTime - StartTime
Meine Frage: wie erreicht man, das im laufenden VBA eine Eingabe in die Zelle B2; B3; B4; usw. möglich ist ?
Die Waage übergibt den Zahlenwert des Gewichtes in Excel dort hin in die Zelle wo gerade der Cursor steht. Also genau so, als würde man es mit der Hand eintippen. Und man kann man im Programm 232Key angeben, ob nach Eingabe des Zahlenwertes, mit Return oder nichts abgeschlossen werden soll.
Ich habe es erst mit einer
While Cells(i, 2) <> ""
...
Wend Schleife probiert, da ist keine Eingabe möglich.
Aber auch DoEvents hat keine Besserung gebracht, ich kann in die Zelle B2;B3;... keine manuelle Dateneingabe vornehmen.
Wie macht man das am Einfachsten ?

Bild

Betrifft: Tja, da gibt's noch mehr, ...
von: Luc:-?
Geschrieben am: 24.11.2015 01:49:00
…Leonardi;
teste mal das:

Sub EingabeTest()
    Dim z As Long
    On Error GoTo ex
    Do: DoEvents: z = z + 1
        If Not IsEmpty(ActiveSheet.Cells(1, 1)) Then Exit Do
    Loop
ex: MsgBox CStr(ActiveSheet.Cells(1, 1)), vbInformation, "Loops: " & CStr(z)
End Sub
Gruß, Luc :-?

Besser informiert mit …

Bild

Betrifft: AW: Tja, da gibt's noch mehr, ...
von: Leonardi
Geschrieben am: 24.11.2015 11:32:26
Super es funzt. Danke Luc auch für die nachdenkseiten.de
Gruß Leonardi

Bild

Betrifft: Bitte sehr, gern geschehen! ;-) owT
von: Luc:-?
Geschrieben am: 24.11.2015 18:30:12
:-?

 Bild

Beiträge aus den Excel-Beispielen zum Thema "import ICS-Dateien nach Excel"