ich habe ein kleines Problem:
Auf einem Blatt habe ich eine Eingabe. Der User gibt hier Anzahl und Artikelnummer ein. Wenn er das gemacht hat,klickt er auf einen Button.
Weiter rechts auf dem Blatt ist eine Liste mit allen Artikelnummern.
Wenn der Button gedrückt wurde wird die Artikelnummer gesucht und dann die Anzahl zu der schon vorhandenen hinzugezählt. Ich habe dafür folgende VBA-Formel verwendet:
Sub Buchen()
If Range("J22") = Range("S2") Then Range("t2") = Range("t2") + Range("I25")
If Range("J22") = Range("S3") Then Range("t3") = Range("t3") + Range("I25")
.
.
.
Sub End
Das klappt auch ganz gut. Das Problem an der Sache ist nur, dass ich 3000 Artikel habe und keine Lust, diese Formel 3000 mal zu kopieren und zu ändern. Nun meine Frage, gibt es dafür eine kürzere Formel oder eine Möglichkeit diese Formeln automatisch zu ändern?
Nun mein zweites Problem.
Diese Liste,wo die Sachen eingetragen sind,soll nun übertragen werden auf eine andere Liste auf der linken Seite im selben Blatt.Aber nur die Einträge, die schon gebucht sind.
D.h. also: Wenn ich z.B. folgende Liste rechts habe:
Artikel 1 3x Weißbier Euro 2,60
Artikel 2 Pils Euro 2,60
Artikel 3 1x d.Weizen Euro 2,60
Artikel 4 4x Schnitzel Euro 10,20
Nun soll diese Liste in die linke Liste übertragen werden, aber nur die Artikel, die mind. 1x gebucht wurden.
Wie mach ich das?
Danke für die Hilfe im Voraus.
MfG
Birkel