Kassenbuch - passende Formeln gesucht

Lahela · 3. November 2005 um 14:52

Hallo Excel-Spezialisten,

bin mal wieder am Knobeln…
Zum besseren Verständnis habe ich hier die Beispieldatei (mit Testdaten) mal hinterlegt: http://service.gmx.net/mc/YWyIGntXUuVQQRwNhAJgBv2xuO…

-Ich möchte, dass vor dem Drucken der Tabelle die leeren Zeilen ausgeblendet werden, damit die Endsumme immer schön am Ende der letzten eingegebenen Zahl steht (und nicht 5 leere Seiten ausgedruckt werden…). Gefunden hatte ich schon was, womit die leeren Zellen gelöscht werden können, aber das ist dann leider unwiderruflich. (schön wär natürlich auch, wenn am Ende der jeweiligen Seite die Summe steht und auf der nächsten der Übertrag, aber da hab ich schon gemerkt, dass das ned so einfach ist…)

und ganz am Ende sollen die Summen für Tagesumsatz (in D203), usw. aufsummiert werden. Mit welcher Formel geht denn das?
und den komischen CommandButton krieg ich auch nimmer weg (habe hier Excel 97, erstellt habe ich die Mappe aber mit Excel 2000, evtl. liegts daran…) Damit wollte ich das mit Zellen ausblenden mal testen…

Es soll benutzerfreundlich werden, denn das Kassenbuch soll von jemand weitergeführt werden, der von Excel keine Ahnung hat

Vielen Dank für die Hilfe

Lahela

Franz_e6478d · 3. November 2005 um 15:58

Hallo Lahela,

Hallo Excel-Spezialisten,

bin mal wieder am Knobeln…
Zum besseren Verständnis habe ich hier die Beispieldatei (mit
Testdaten) mal hinterlegt:
http://service.gmx.net/mc/YWyIGntXUuVQQRwNhAJgBv2xuO…

-Ich möchte, dass vor dem Drucken der Tabelle die leeren
Zeilen ausgeblendet werden, damit die Endsumme immer schön am
Ende der letzten eingegebenen Zahl steht (und nicht 5 leere
Seiten ausgedruckt werden…).

Die Lösung ohne Makro kann so aussehen:
Der Autofilter ist in der Tabelle zur Zeit nicht optimal eingerichtet. Passe ihn wie folgt an:
Deaktiviere den Autofilter.
Markiere die Zellen A1 bis G197
Aktiviere den Autofilter wieder.
Für die Splate B (Beleg/Text) kann als letzter Eintrag jetzt auch „(nicht leere)“ als Filter gewählt werden. Wird dieser Eintrag gewählt, dann werden alle leeren Zeilen (ohne Eintrag für „Beleg/text“) ausgeblendet. Mit Filter auf „(Alle)“ werden die ausgeblendeten zeilen wieder eingeblendet.

Gefunden hatte ich schon was,
womit die leeren Zellen gelöscht werden können, aber das ist
dann leider unwiderruflich. (schön wär natürlich auch, wenn am
Ende der jeweiligen Seite die Summe steht und auf der nächsten
der Übertrag, aber da hab ich schon gemerkt, dass das ned so
einfach ist…)

Einfache Lösung gibt es tatsächlich nicht!

und ganz am Ende sollen die Summen für Tagesumsatz (in
D203), usw. aufsummiert werden. Mit welcher Formel geht denn
das?

Tabellenblattname: Oktober

 B C D E 
203 Tagesumsätze 90914,9 0 
204 Umsatz ausser Haus 140 0 
205 GS Verkauf 601,8 0 
206 GS Einlösung 175 455 

Benutzte Formeln:
D203: =SUMMEWENN($B$3:blush:B$197;"Tagesumsatz";D$3:smiley:$197)
D204: =SUMMEWENN($B$3:blush:B$197;$B204;D$3:smiley:$197)
D205: =SUMMEWENN($B$3:blush:B$197;$B205;D$3:smiley:$197)
D206: =SUMMEWENN($B$3:blush:B$197;$B206;D$3:smiley:$197)
E203: =SUMMEWENN($B$3:blush:B$197;"Tagesumsatz";E$3:E$197)
E204: =SUMMEWENN($B$3:blush:B$197;$B204;E$3:E$197)
E205: =SUMMEWENN($B$3:blush:B$197;$B205;E$3:E$197)
E206: =SUMMEWENN($B$3:blush:B$197;$B206;E$3:E$197)

Für die korrekte Berechnung der Summenwerte müssen die Einträge in Spalte B natürlich auch immer einheitlich sein!

und den komischen CommandButton krieg ich auch nimmer weg
(habe hier Excel 97, erstellt habe ich die Mappe aber mit
Excel 2000, evtl. liegts daran…) Damit wollte ich das mit
Zellen ausblenden mal testen…

Blende die Symbolleiste „Steuerelemnt-Toolbox“ ein.
Dann mit dem linken Symbol (Geodreieck) den Entwurfsmodus einschalten.
Dann Button markieren und löschen.
Entwurfsmodus wieder ausschalten.
ggf. Symbolleiste wieder ausblenden.

Es soll benutzerfreundlich werden, denn das Kassenbuch soll
von jemand weitergeführt werden, der von Excel keine Ahnung
hat

Ein klein wenig Ahnung sollte der Benutzer schon haben. In diesem Fall ist es aber evtl. hilfreich, wenn man das Ein- und Ausblenden der Leerzeilen via Autofilter vor dem Drucken per Makrobuttons ausführt.

Vielen Dank für die Hilfe

Lahela

Gruß
Franz

Suse_eb99e9 · 3. November 2005 um 15:58

Hallo,

kann Deine Beispieldatei leider nicht einsehen, aber hast Du schon mal das probiert: ganzen Bereich markieren => Daten => Filter => Autofilter

dann in der entsprechenden Spalte die Auswahl „Nichtleere“ treffen

Grüssle
Suse

Lahela · 3. November 2005 um 16:02

Hallo SuSe,

das mit dem Autofilter hab ich schon getestet, aber das klappt leider nicht.
Sie Auswahl: „nichtleere“ erscheint nämlich gar ned…weiß auch nicht, warum
(das war mein erster Versuch…)

Aber danke trotzdem

Lahela

Lahela · 3. November 2005 um 16:15

Die Lösung ohne Makro kann so aussehen:

mit Makro wär auch kein problem, dafür kann ich ja einen Button machen ein Klick genügt dann )

Der Autofilter ist in der Tabelle zur Zeit nicht optimal
eingerichtet. Passe ihn wie folgt an:
Deaktiviere den Autofilter.
Markiere die Zellen A1 bis G197
Aktiviere den Autofilter wieder.
Für die Splate B (Beleg/Text) kann als letzter Eintrag jetzt
auch „(nicht leere)“ als Filter gewählt werden. Wird dieser
Eintrag gewählt, dann werden alle leeren Zeilen (ohne Eintrag
für „Beleg/text“) ausgeblendet. Mit Filter auf „(Alle)“ werden
die ausgeblendeten zeilen wieder eingeblendet.

ach sooo, deswegen ging das nicht…
cool, genau so wollte ich es

und ganz am Ende sollen die Summen für Tagesumsatz (in
D203), usw. aufsummiert werden. Mit welcher Formel geht denn
das?

D203: =SUMMEWENN($B$3:blush:B$197;„Tagesumsatz“;D$3:smiley:$197)

Supi, das funktioniert ))))

Für die korrekte Berechnung der Summenwerte müssen die
Einträge in Spalte B natürlich auch immer einheitlich sein!

das ist klar

Blende die Symbolleiste „Steuerelemnt-Toolbox“ ein.
Dann mit dem linken Symbol (Geodreieck) den Entwurfsmodus
einschalten.
Dann Button markieren und löschen.
Entwurfsmodus wieder ausschalten.
ggf. Symbolleiste wieder ausblenden.

danke, darauf hätte ich auch selber kommen können *gg*

Ein klein wenig Ahnung sollte der Benutzer schon haben. In
diesem Fall ist es aber evtl. hilfreich, wenn man das Ein- und
Ausblenden der Leerzeilen via Autofilter vor dem Drucken per
Makrobuttons ausführt.

wie geht denn das???

Gruß
Franz

herzlichen Dank, du hast mir sehr geholfen!
Liebe Grüße
Lahela

Franz_e6478d · 3. November 2005 um 17:24

Hallo Lahela,

hier zwei Makro-Lösungen:

Die Lösung ohne Makro kann so aussehen:

mit Makro wär auch kein problem, dafür kann ich ja einen
Button machen ein Klick genügt dann )

Mit dem Autofilter, wie er in der Tabelle eingestellt ist, sehen die Makros zu den Buttons so aus:

Private Sub CommandButton1\_Click()
 'Setzt den Filter für die 2. Autofilterspalte auf "(nicht leere)"
 Selection.AutoFilter Field:=2, Criteria1:=""
End Sub
Private Sub CommandButton2\_Click()
 'Setzt alle Filter der aktiven Tabelle auf "(Alle)"
 Dim wks As Worksheet
 Set wks = ActiveSheet
 For Filter = 1 To wks.AutoFilter.Filters.Count
 Selection.AutoFilter Field:=Filter
 Next
End Sub

Dabei muß für die Buttons die Eigenschaft „TakeFocusOnClick“ auf „False“ gesetzt werden.

Auch eine Lösung ohne Autofilter ist möglich. Die Makros sind dann folgende:

Sub LeereZeilenAusblenden()
 Dim Bereich As Range, Zelle As Range
 Set Bereich = ActiveSheet.Range("B3:B197")
 Application.ScreenUpdating = False
 For Each Zelle In Bereich
 If IsEmpty(Zelle) Then
 Zelle.EntireRow.Hidden = True
 End If
 Next
 Application.ScreenUpdating = True
End Sub
Sub LeereZeilenEinblenden()
 Dim Bereich As Range, Zelle As Range
 Set Bereich = ActiveSheet.Range("B3:B197")
 Application.ScreenUpdating = False
 For Each Zelle In Bereich
 If IsEmpty(Zelle) Then
 Zelle.EntireRow.Hidden = False
 End If
 Next
 Application.ScreenUpdating = True
End Sub

Gruß
Franz

Lahela · 4. November 2005 um 08:44

Perfekt!!
Hallo Franz,

vielen Dank, die Lösung ist prima!!

Grüße und *chen von mir

Lahela