Office: Kassenbuch

Hallo zusammen,

ich benutze Zwei Excel Dateien zum berechnen meiner Provision und div. anderen vertriebsrelevanten Werte. Die Dateien sind identisch und unterscheiden sich nur im Namen.

Die eine heißt Kassenbuch 2016 und die andere Kassenbuch 2017.
In beiden gibt es 13 Tabellen, beginnend mit "Stammdaten" und dann "Januar" bis "Dezember".
Da die Provisionen immer erst bei Beginn des Geschäftes und nicht beim
Abschluss gebucht werden, sind die Einträge in den einzelnen Tabellen-
blättern nicht chronologisch.

Da ich keine Lust mehr hatte, Spalte für Spalte und Zeile für Zeile die relevanten Daten einzutragen habe ich in jedes Tabellenblatt einen
Button eingefügt, der eine Eingabemaske öffnet.

Private Sub cmdAbbruch_Click()
'Schließt das Formular frmKunden

Unload frmKunden
End Sub


Private Sub cmdEingabe_Click()
'Überträgt die Werte ins Tabelleblatt und Schließt das Formular frmKunden

Dim letzte_Zeile As Long
Dim curNetto As Currency

'Die letzte beschrieben Zeile in Spalte A ermitteln
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row

'Eintrag aus Name in erste freie Zelle übertragen
Cells(letzte_Zeile, 1) = txtName

'Eintrag aus Vorname in erste freie Zelle übertragen
Cells(letzte_Zeile, 2) = txtVorname

'Eintrag aus Mitarbeiter in erste freie Zelle übertragen
Cells(letzte_Zeile, 3) = txtMitarbeiter

'Eintrag aus Sparte in erste freie Zelle übertragen
Cells(letzte_Zeile, 4) = txtSparte

'Eintrag aus Zahlweise in erste freie Zelle übertragen
Cells(letzte_Zeile, 5) = CCur(txtBruttobeitrag)

'Eintrag aus Bruttobeitrag in erste freie Zelle übertragen
Cells(letzte_Zeile, 6) = txtZahlweise

'Eintrag aus Steuersatz in erste freie Zelle übertragen
Cells(letzte_Zeile, 7) = CDbl(txtSteuersatz) / 100

'Eintrag aus Laufzeit in erste freie Zelle übertragen
Cells(letzte_Zeile, 8) = txtZahldauerVorsorge

'Berechnung Nettobeitrag
curNetto = CCur(txtBruttobeitrag) / (100 + CDbl(txtSteuersatz)) * (100)

'Nettobeitrag in erste freie Zelle übertragen
Cells(letzte_Zeile, 9) = curNetto


Unload frmKunden
End Sub

Das funktioniert einwandfrei!!!

Da ich aber eine faule Socke bin, kam ich auf die Idee, in der Eingabemaske
noch das Beginn Datum zu erfassen.

Anhand des Datums sollen die Werte nun automatisch in das entsprechende Tabellenblatt " Januar......Dezember" oder wenn der Beginn erst im nächsten Jahr in die Datei "Kassenbuch 2017" "Januar......Dezember"

Ich hoffe ihr könnt mir Helfen.

LG Franky1966

:)

 

Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

 

Moin!

Ein "gerne" gemachter Fehler, der stets zu Folgeproblemen führt.
Excel hat mittlerweile 2^20, also 1.048.576 Zeilen, dies sollte für ein Jahr "knapp" reichen.
Buche alles in eine Tabelle und erstelle Auswertungen per Dashboard oder besser noch per Pivot-Tabelle.
Dann braucht das Makro auch nicht die entsprechende Tabelle zu suchen.
Deine Makros beziehen sich auf das ActiveSheet!
Fehler bei falsch aktiviertem Blatt sind vorprogrammiert.

Gruß Ralf

 

Moin,

ein Arbeitsblatt kannst Du mit Namen ansprechen. Bastle Dir aus dem Datum den Namen, dann
Code:

Gruß
Ralf

 

Hallo Hajo,

danke für den Tipp!

 

Gruß
Ralf

Hallo Ralf,

dein Vorschlag gefällt mir! Ich muss allerdings zugeben meine VBA Kenntnisse tendieren gegen Null. Das Makro habe ich mir aus einem Forum kopiert und angepasst. Ich lade die Dateien mal hoch, in der Hoffnung das es mir einer so erklären kann, dass es mein 50 Jahre altes Hauptschülergehirn es versteht.*wink.gif* *wink.gif* *wink.gif*
L.G. Franky

 

Meinen Beitrag gelesen, Frank?
Es macht keinen Sinn, die Monate auf verschiedene Tabellen aufzuteilen.
Oder schilderst Du Deine Gründe?
Schließlich gibt es Filterfunktionen und Auswertungen per Pivot-Tabelle und -Chart

Gruß Ralf

 

Hi,

da ist beim Code was verlorengegangen:
Code:

Datum ist das Datum, das du werweißwo eingibst. Wo die Punkte stehen, gehören Deine Zuweisungen hin.

Gruß
Ralf

 

Hi Namensvetter!
Shure?
Gib mal
?format(month(date),"MMMM")
im Direktfenster ein.
Ich erhalte dann Januar! ;-)

(Ich bleibe bei meiner Empfehlung)

Gruß Ralf

 

Hi Ralf,

auwehzwick, da ist was doppelt gemoppelt:
Code:

Ansonsten gebe ich Dir recht, aber des Menschen Wille ist sein Himmelreich.

Gruß
Ralf

 

Hallo Franky1966,

ich kann mich den Vorschlägen, das Ganze mit nur einem Tabellenblatt zu realisieren, nur anschließen.

Mit Pivot und dem Autofilter kannst du dann deine Daten 100mal besser und einfacher analysieren!

 

Hallo Zusammen,

zunächst schon einmal vielen Dank für die Beiträge.

Ich benötige für jedes Jahr eine neue Arbeitsmappe und für jeden Monat eine eigenes Tabellenblatt, weil ich nicht nur die Daten verwalten möchte.

Wenn die Daten in den ersten Spalten erfasst sind löst das relativ viele Berechnungen in dem Arbeitsblatt aus, z.B. Provisionsberechnung, Zielerfüllung in Prozent und Stand der erreichten Bonifikationszahlungen.
Die Tabellenblätter enden bei "JJ" dadurch liegt die Dateigröße bei ca. 13.000 KB.

Ich habe jetzt mal 3 Mappen Hochgeladen damit ihr mal seht wie ich mir das vorstelle.

Eingabemaske.xlsm ist die Sammelstelle von dort sollen dann die Daten lückenlos in Wertungen2016.xlsx oder in Wertungen2017.xlsx übertragen werden, natürlich auch dann in passenden Monat.

 

Hallo Franky1966,

dein Beispiel ist schwach! Da ist nicht von den "vielen Berechnungen" zu sehen, die es unmöglich machen, mit einem einzigen Tabellenblatt zu arbeiten, das alle Monate enthält.

Vermutlich bist du in deinem eigentlichem Geschäft ein Profi, aber ein IT-Profi würde bisher immer noch nicht auf die Idee kommen, für jeden Monat ein separates Tabellenblatt anzulegen.

Aber es ist natürlich deine Entscheidung, ob du einen gut gemeinten Rat annehmen willst, oder du meinst, dass es besser ist, diesen nicht befolgen zu wollen.

 

Das ist auch nicht die Orginaldatei ! Ich habe keine Lust 13.000 KB hochzuladen. Ich bitte lediglich um Hilfe bei meinem Anliegen. Wer lesen kann ist auch im Vorteil ich habe ja erwähnt das jedes einzelne Tabellenblatt beim OriginAl bis JJ geht.