Office: Brauche Hifle bei Makro programmierung oder so!

Hallo!
habe die problem tabelle angefügt!
soweit habe ich ja alles geschafft. nun möchte ich einen zusätzlichen button haben, wenn ich "Kaufen", "Ja" eingegeben haben, das diese Artikel in einem Warenkorb (vielleicht extra Tabelle etc.) abgelegt werden. wenn ich eine neue eingabe mache und dann wieder bei "kaufen" "ja" eingebe, das dann dieser artikel auch in den warenkorb abgelegt wird, aber unter den zuvor eingefügten!

Könntet ihr mir helfen!

Danke!!!

 

Schreib in deinem Code:

Code:

Private Sub CommandButton1_Click()

 k = InputBox("Eingabe Anzahl")
 Range("B9") = k
 
  l = InputBox("Eingabe Artikel")
 Range("B11") = l
 
 m = InputBox("Warenkorb")
Range("B14") = m

Dim zeile As Integer
zeile = 20

If Cells(zeile, 1) <> "" Then
    zeile = zeile + 1
End If
Cells(zeile, 1) = Cells(11, 2) 'Artikel schreibt er in A'Zeile'
Cells(zeile, 2) = Cells(9, 2) 'Anzahl schreibt er in B'Zeile'
Cells(zeile, 3) = Cells(16, 2) 'Preis schreibt er in C'Zeile'


End Sub

So addiert schreibt er
A B C
Artikel Anzahl Preis

und wenn du es löscht fängt er wieder von vorne an bei Zeile 20 zu schreiben.
Hoffe es hilft dir weiter =)

 

danke schön! so habe ich es mir gedacht!
aber wenn ich zwei artikel im "WArenkorb" habe, zB. Zelle A20 Muttern und Zelle A21 Ösen und wenn ich dann noch eine eingabe mache, überschreibt er automatisch die Zelle A21! er soll aber weiterhin die liste fortführen.
und wenn das noch geht, ein button einfügen der diese liste löscht wenn ich draufdrücke!

nochmals vielen vielen Dank!

 

nochwas: was bedeutet die 1 in de klammern im code?

If Cells(zeile, 1) <> "" Then
zeile = zeile + 1

 

Ja, in dem Source war noch ein kleiner Kinken.

Entweder: Die DIM-Zeile in den "globalen" Teil oberhalb des SUB-Kopfes verschieben. Damit behält die Variable ihren Wert auch, nachdem die Routine verlassen wurde. Sonst wird sie nämlich immer wieder auf 20 gesetzt, um einen erhöht (IF-Zeile) und das war's. Blöd ist dann nur, daß die Variable "zeile" dann irgendwo auch noch mit 20 initialisiert werden muß. Alternativ kann man grundsätzlich mit "zeile+20" arbeiten und sich darauf verlassen, daß VBA auch weiterhin geDIMte Variablen mit "0" initialisiert.

Oder (die eindeutig stilvollere Lösung): Das IF-Konstrukt in ein WHILE-Konstrukt ändern, um solange +1 zu machen, bis eine leere Zeile gefunden wurde:

Code:

while Cells(zeile, 1) <> ""
    zeile = zeile + 1
wend

Gruß, Michael

 

Das ist die "spalte", also in diesem Fall "A".

Gruß, Michael

 

danke! muss ich komplett die if konstruktion wegmachen oder was mach ich mit dem teil ab end if und darunter? vielleicht könntest du mir nochmal den kompletten code zeigen?
sorry das ich so dumm frage, aber excel kann ich nur nicht visual basic ! bin gerade so am rumprobieren und so

 

Ja, die 3 Zeilen komplett ersetzen. Das "IF .. zeile .. ENDIF" wird komplett durch die drei Zeilen "WHILE ... zeile ... WEND" ersetzt.

Gruß, Michael

 

super! es funktioniert! danke! jetzt noch eins! wenn ich bei der eingabe bei Warenkorb "NEin" eingebe, wird es trotzdem in die Liste eingefügt. Soll es aber nicth! Das ist meine letzte frage - vorerst!

DANKE

 

Jup, die 3. Eingabe wird ja auch (bislang) in keinshter Weise ausgewertet. Du siehst die Zeile

Code:

Range("B14") = m

ja? Nach dieser Zeile befindet sich sowohl in Zelle b14 wie auch in der Variablen "m" die eingabe, die dann ja wohl i.a. "ja" oder "nein" lauten sollte.

Das Abfragen einer Freitexteingabe ist immer etwas problematisch. In diesem Fall würde ich abfragen, ob "ja" eingegeben wurde und den folgenden Teil nur dann ausführen. In allen anderen Fällen passiert nichts.

Wieso problematisch? Weil für den PC ein "ja" etwas anderes ist als ein "JA", "Ja" oder "jA" und er mit einem "j" oder "y" schon gleich gar nicht zufrieden wäre. Zumindest aber die ganzen Varianten der Groß/Kleinschrift kann man mit den Funktionen "lcase" bzw. "ucase" entschärfen.

Füge also direkt nach obiger Zeile ein:

Code:

if (lcase(m)="ja") then

Und ganz unten, direkt vor die "end sub" Zeile, fügst Du noch das dazugehörige

Code:

endif

ein. Dann sollte es gehen.

Gruß, Michael
[/code]

 

du bist wirklich ein experte! funktioniert alles einwandfrei! wenn ich mal wieder ne frage habe. stelle ich sie rein! aber im moment bin ich wunschlos glücklich!!!! danke!!