Office: Kleine Hilfe bei VBA

Hi Leute ich bin neu Hier und freue mich hier zu sein:)
Kurz zu mir ich heiße Roman bin 23 komme aus Münster und bin Student.

also ich arbeite seit längeren mit excel und da ich als Hiwi oft viele Daten verarbeiten muss hab ich mich etwas in VBA eingearbeitet (der Mensch ist ja von Natur aus faul).
So zu meinem Thema :) Ich wollte mir ein kleines Prgramm schreiben aus Spass und um etwas zu üben.
Eine Einkaufsliste.
Ich habe meherer Active X Schaltflächen, die wenn man sie anklickt in eine Tabelle die ich schon umformatiert habe Inhalte wie Milch Wasser etc eingeben. Wenn ich jetzt mehrmals klicke addieren sich die Summen:) das hab ich auch noch selber geschafft. Nun brauche ich hilfe bei der sache. Die Elemente sollen sich egal in welcher reihenfolge ich sie klicke untereinander addieren (also wenn ich 2mal milch klicke soll in A1 2 milch stehen und wenn ich jetzt 3 mal auf wasser klicke 3 Wasser in der Zelle darunter. usw).
Unten seht ich was ich bis jetzt habe so klappt das nur leider gehn die somit immer in eine Definierte Zelle.
Natürlich Poste ich die Excel nacher wenn sie fertig sein sollte:)
LG
Roman

Private Sub CommandButton27_Click()
Static x As Integer
x = x + 1
Worksheets("Tabelle2").Cells(1, 1) = "" & x & " Aufschnitt"

End Sub

 

Mit dem Ansatz wirst Du nicht sehr weit kommen. Ich schätze, das, was Du vorhast, wird etwas umfangreicher...

Ich würde vorgehen:

Wenn ein Button für eine bestimmte Ware geklickt wird, müßte das Makro die bisherige Liste, die ja ggf. auch noch leer sein könnte, durchsuchen, ob die Ware bereits in der Liste steht. Wenn ja, addieren, wenn nein, an die Liste anhängen.

Das würde bedeuten, mal so ganz grob:

Code:

[buttonklick]
src="Schwarzbrot"
y=1:x=1
'cells(y,x).activate
tst=trim$(cells(y,x).value)
while (tst<>"")

  [vergleichen]

  y=y+1
  'cells(y,x).activate
  tst=trim$(cells(y,x).value)
wend
if (y<65536) then

  [neueintrag]

endif

Mit diesem Schnipsel wird eine Liste von oben bis unten durchlaufen. Voraussetzung ist, daß die Liste lückenlos und (in diesem Fall) in Zelle A1 beginnt. Was genau beim Durchlaufen passieren soll, wird in [vergleichen] bestimmt:

Code:

[vergleichen]
  itm=trim$(cells(y,2).value)
  if (itm=src) then

    [erhöhen]

  endif

Hier wird der Suchwert aus der Liste genommen (der ja nicht zwingend in der 2. Spalte stehen muß, also hier ggf. anpassen) und mit dem Wert verglichen, nach dem gesucht wird. Bei Übereinstimmung wird [erhöhen] ausgeführt.

Code:

[erhöhen]
    cnt=cells(y,1).value
    cnt=cnt+1
    cells(y,1).value=cnt
    y=65535

Bei Übereinstimmung wird die Anzahl (hier Spalte 1, also auch hier ggf. anpassen) um 1 erhöht und an das Ende des Tabellenblatts (naja, zumindest bis Excel 2003) gesprungen. Sinn der Aktion ist, daß im nächsten Schleifendurchlauf dort eine leere Zelle gefunden wird und die Schleife daraufhin abgebrochen wird.

Nur, wenn jetzt beim Durchsuchen der Liste der Eintrag nicht gefunden wurde, dann steht y auf "Ende der Liste + 1" und ist somit kleiner als 65536. Zumindest gehe ich mal davon aus, daß Dein Einkaufszettel i.a. kleiner als ein Karton Bonrollen aneinandergeklebt ist. ;-) In dem Fall wird dann [neueintrag] durchlaufen:

Code:

[neueintrag]
  cells(y,1).value=1
  cells(y,2).value=src

Wenn Du das jetzt zusammenbastelst (dabei die Zeilen mit [ ] entfernen), dann sollte es eigentlich so in die Richtung gehen, die Du möchtest.

Wichtig ist eben das anpassen an die äußeren Umstände:

* y und x bezeichnen die linke obere Ecke der Liste, dabei stehen 1 / 1 für "A1", 3 / 5 wäre dann "E3" usw.

* in src wird hier der Wert "Schwarzbrot" eingetragen, was natürlich je nach Buttondruck verschieden sein kann. ein anderer Button könnte dann ja für "Milch" usw. zuständig sein.

* In Spalte 1 wird hier die Anzahl, in Spalte 2 der Name erwartet. Falls da noch Mengeneinheiten (Stück, Liter, Paletten, Tonnen, ...) oder Packungsgrößen zwischen sollen, müßte das auch angepaßt werden.

Gruß, Michael

 

Supper Sache!! Danke:)
dann werde ich mal etwas weiter rumfummeln und melde mich dann wenn ich es habe:)
( Die näachten Tage leider zuvuel für die Uni also kann es noch etwas dauern)
LG
Roman!