Hallo zusammen,
Erstmal riesen Lob an das Forum, dank so mancher Tipps konnte ich mich schon einigermaßen in VB zurecht finden, auch wenn ich noch weit entfernt von wirklich tollen Programmier Skills bin ;D
Zu meinem Problem:
Meine Freundin macht bei uns zu Hause die Haushaltskasse und damit das ganze etwas leichter geht, dachte ich mir, ich prgrammier ihr das in Excel mit einer Eingabemaske in VB.
Warum?
Alle Eingaben kommen in eine Exceltabelle, die wiederum per Pivotabelle praktische Statistiken erzeugt.
Konkret passiert folgendes: Sie nimmt sich einen Kassenbon aus der Sammelkiste, auf diesem steht dann ihr oder mein Name drauf und sie trägt die Kategorie des Geschäfts (Lebensmittel, Drogerie, Garten,etc...), den Gesamtbetrag ein und klickt eine von zwei Optionbuttons an, um zu definieren, wem die Rechnung gehört und klickt auf Speichern. Die eingegeben Daten, landen in einer Excel Tabelle und am Ende machen wir eine Pivo darauß und speichern sie für das Monat ab.
Bis hierhin ist ja alles eigentlich nicht so kompliziert. Ich hab noch keine "Sicherheiten" definiert ( z.B. wurde eine Checkbox angeklickt?)aber das ist ein anderes Thema....
Die Aufgabe: Nun kaufen wir natürlich in einem Supermarkt nicht nur Lebensmittel ein sondern auch, z.B. Drogerie Artikel. Die Möchte meine Freundin in einer Unterkategorie definieren und den Betrag automatisch vom Gesamtbetrag abziehen.
Und hier stoß ich an meine Grenzen. Mir mangelt es einfach an wissen oder Kreativität um hier eine Lösung zu finden.
Mein Ziel ist es, die Unterkategorie, den Namen der Person und den Wert ebenfalls in die Tabelle (wo schon Hauptkategorie, Gesamtbetrag und Person stehen) einzutragen.
Mein Problem liegt wahrscheinlich darin, wie ich VB erkläre was die nächste Zeile ist... so schreibt das Programm immer nur in die nächste Freie Zeile, sind aber mehrere Einträge nötig (weil Unterkategorien) springt er nicht für jeden Eintrag in die nächste Zeile.
Ebenso müsste ich ihm irgendwie erklären, dass für jeden Unterkategorie Eintrag in einer Zeile, ebenfalls der Wert aus der Optionbox dazu geschrieben werden muss und der Unterkategoriebetrag müsse ebenfalls vom Gesamtbetrag abgezogen werden.
Ich verwende folgenden Code:
Wie man sieht, schreib ich den Gesamtbetrag in eine 2. Tabelle. Ich dachte mir, hier passieren die Rechenschritte und am Ende übertrage ich das Ergebnis wieder zurück in Tabelle1 ..... aber das scheint mir nach reichlich grübeln keine gute Lösung zu sein.
und so sieht meine Userform aus.
Könnte ihr mir irgendwie einen Stupser in die richtige Richtung geben?
*Thema verschoben* ~NoFear23m
Erstmal riesen Lob an das Forum, dank so mancher Tipps konnte ich mich schon einigermaßen in VB zurecht finden, auch wenn ich noch weit entfernt von wirklich tollen Programmier Skills bin ;D
Zu meinem Problem:
Meine Freundin macht bei uns zu Hause die Haushaltskasse und damit das ganze etwas leichter geht, dachte ich mir, ich prgrammier ihr das in Excel mit einer Eingabemaske in VB.
Warum?
Alle Eingaben kommen in eine Exceltabelle, die wiederum per Pivotabelle praktische Statistiken erzeugt.
Konkret passiert folgendes: Sie nimmt sich einen Kassenbon aus der Sammelkiste, auf diesem steht dann ihr oder mein Name drauf und sie trägt die Kategorie des Geschäfts (Lebensmittel, Drogerie, Garten,etc...), den Gesamtbetrag ein und klickt eine von zwei Optionbuttons an, um zu definieren, wem die Rechnung gehört und klickt auf Speichern. Die eingegeben Daten, landen in einer Excel Tabelle und am Ende machen wir eine Pivo darauß und speichern sie für das Monat ab.
Bis hierhin ist ja alles eigentlich nicht so kompliziert. Ich hab noch keine "Sicherheiten" definiert ( z.B. wurde eine Checkbox angeklickt?)aber das ist ein anderes Thema....
Die Aufgabe: Nun kaufen wir natürlich in einem Supermarkt nicht nur Lebensmittel ein sondern auch, z.B. Drogerie Artikel. Die Möchte meine Freundin in einer Unterkategorie definieren und den Betrag automatisch vom Gesamtbetrag abziehen.
Und hier stoß ich an meine Grenzen. Mir mangelt es einfach an wissen oder Kreativität um hier eine Lösung zu finden.
Mein Ziel ist es, die Unterkategorie, den Namen der Person und den Wert ebenfalls in die Tabelle (wo schon Hauptkategorie, Gesamtbetrag und Person stehen) einzutragen.
Mein Problem liegt wahrscheinlich darin, wie ich VB erkläre was die nächste Zeile ist... so schreibt das Programm immer nur in die nächste Freie Zeile, sind aber mehrere Einträge nötig (weil Unterkategorien) springt er nicht für jeden Eintrag in die nächste Zeile.
Ebenso müsste ich ihm irgendwie erklären, dass für jeden Unterkategorie Eintrag in einer Zeile, ebenfalls der Wert aus der Optionbox dazu geschrieben werden muss und der Unterkategoriebetrag müsse ebenfalls vom Gesamtbetrag abgezogen werden.
Ich verwende folgenden Code:
Visual Basic-Quellcode
- Option Explicit
- Private Sub Button1_Speichern_Click()
- 'Erste freie Zeile ausfindig machen
- Dim last As Integer
- Dim Calc As Integer
- last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
- Calc = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
- 'Geschäft
- Tabelle1.Cells(last, 2).Value = ComboBox1_Geschaeft.Value
- 'Hauptkategorie
- Tabelle1.Cells(last, 3).Value = ComboBox2_Hauptkategorie.Value
- 'Rechnung Gesamt
- Tabelle2.Cells(Calc, 1).Value = TextBox1.Value
- 'Person1
- If OptionButton1.Value = True Then Tabelle1.Cells(last, 1).Value = OptionButton1.Caption
- 'Person2
- If OptionButton2.Value = True Then Tabelle1.Cells(last, 1).Value = OptionButton2.Caption
Wie man sieht, schreib ich den Gesamtbetrag in eine 2. Tabelle. Ich dachte mir, hier passieren die Rechenschritte und am Ende übertrage ich das Ergebnis wieder zurück in Tabelle1 ..... aber das scheint mir nach reichlich grübeln keine gute Lösung zu sein.
und so sieht meine Userform aus.
Könnte ihr mir irgendwie einen Stupser in die richtige Richtung geben?
*Thema verschoben* ~NoFear23m
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nofear23m“ ()