einfach Loop, bricht nach der 2. Runde immer ab
16.12.2014 14:58:09
Thomas
wollte mit meinen spärlichen VBA Kenntnissen Stück für Stück ein Makro basteln, mit dem ich eine einzugebende Zahl via SVerweis eine andere Zahl ausdrucken lasse. Aber bei mir scheiterts schon nach den ersten Zeilen:
Sub Labeldruck()
Dim EAN As Long
Do
EAN = InputBox("EAN eingeben oder abscannen:", "EAN Eingabe")
Range("A1").Value = EAN
'Range("B1:B1").PrintOut Copies:=1
Loop
End Sub
Beim zweiten Durchlauf heisst es schon "Ausführung des Codes wurde unterbrochen".. argh... (B1 würde dann den auszudruckenden Wert ausweisen, den es über die Formel SVerweis aus einem anderen Arbeitsblatt erhält).
Anzeige