Brauche Hifle bei Makro programmierung oder so! :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Brauche Hifle bei Makro programmierung oder so!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 09:53

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!!!

So sachen halt.xls

Beschreibung:

Download

Dateiname:

So sachen halt.xls

Dateigröße:

39.5 KB

Heruntergeladen:

14 mal

Lolli
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 15
Wohnort: BW

Verfasst am: 01.08.2008, 10:12

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 =)

_________________
Wenn eine Taube durch den Rauch fliegt,
behindert der Rauch die Taube oder verletzt die Taube den Rauch?

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 10:46

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!

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 11:09

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

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 291
Wohnort: Kiel

Verfasst am: 01.08.2008, 11:19

Totti15485 hat Folgendes geschrieben:

noch eine eingabe mache, überschreibt er automatisch die Zelle A21!

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 291
Wohnort: Kiel

Verfasst am: 01.08.2008, 11:20

Totti15485 hat Folgendes geschrieben:

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

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

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

Gruß, Michael

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 11:35

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 291
Wohnort: Kiel

Verfasst am: 01.08.2008, 11:44

Totti15485 hat Folgendes geschrieben:

muss ich komplett die if konstruktion wegmachen

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

Gruß, Michael

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 11:46

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 291
Wohnort: Kiel

Verfasst am: 01.08.2008, 12:15

Totti15485 hat Folgendes geschrieben:

wenn ich bei der eingabe bei Warenkorb "NEin" eingebe, wird es trotzdem in die Liste eingefügt. Soll es aber nicth!

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]

Totti15485
Newbie
Newbie

Anmeldedatum: 25.07.2008
Beiträge: 17

Verfasst am: 01.08.2008, 12:21

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!!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	makro für datum	Pa7riick	Microsoft Excel Hilfe	6	26.08.2008, 09:09
	Blöder Fehler bei Makro"copy"	Gomorra	Microsoft Excel Hilfe	1	25.08.2008, 10:32
	Makro Export	Rumak18	Microsoft Excel Hilfe	1	20.08.2008, 11:54
	makro zum löschen von zeilen	Pa7riick	Microsoft Excel Hilfe	8	18.08.2008, 15:09
	Makro "schluckt" beim kopie...	Frederic	Microsoft Excel Hilfe	8	18.08.2008, 14:07

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de