Warten auf eingabe
15.03.2017 18:04:54
Rowdy
um mein Leben als Getränkewart etwas zu erleichtern habe ich eine kleines Makro geschrieben welches den Barcode einließt und bei der richtigen Person ein strich macht.
Das klappt soweit ganz gut per Inputbox.
Das Makro soll einmal pro Abend gestartet werden und auf die Eingaben warten.
Tritt eine Eingabe auf soll das Makro direkt starten
Eine Schleife scheint der falsche Weg, könnt ihr mir bitte weiterhelfen?
Private Sub Test()
Dim xx As Integer
xx = 1
ActiveSheet.Range("A1").Value = 9
Do While xx 0
If ActiveSheet.Range("A1").Value "" Then
MsgBox "klappt"
ActiveSheet.Range("A1").Value = 1
End If
If ActiveSheet.Range("A1").Value = 2 Then
xx = 0
End If
Loop
End Sub
Danke im Voraus