Hallo!
Kann mir jemand helfen ?
Ich benötige eine Excelfunktion die jeden Monatsanfang zu einem festen Kontostand 25€ dazu addiert.
Hallo!
Kann mir jemand helfen ?
Ich benötige eine Excelfunktion die jeden Monatsanfang zu
einem festen Kontostand 25€ dazu addiert.
tut mir leid, arbeite seit Jahren nicht mehr mit Excel.
Gruß
Justus132
Hallo!
Kann mir jemand helfen ?
Ich benötige eine Excelfunktion die jeden Monatsanfang zu
einem festen Kontostand 25€ dazu addiert.
Hallo lieber Ritzbert
öfnest du die Datei täglich? Ansonsten folgender Vorschlag:
Das Datum sollte in einer Zelle stehen, 01.02.2010 in einer zweiten Zelle =WENN(TAG(A2)=1;„addiere 25€“;„addiere nichts“).
Passt das?
Gruß Herbert
Hallo!
Das sind leider zu wenige Angaben, um dir konkret eine Antwort geben zu können.
Grundsätzlich ist es aber kein Problem zu einem bestehenden Wert 25€ zu addieren.
Wie ist deine Tabelle aufgebaut und wie genau möchtest du vorhehen?
Gruß
Ralf
=======
Hallo!
Kann mir jemand helfen ?
Ich benötige eine Excelfunktion die jeden Monatsanfang zu
einem festen Kontostand 25€ dazu addiert.
Also mal ein wenig genauer 
Ich habe einen Kontostand und jeden Monat werden 25€ dahin überwiesen. Ich möchte jetzt, dass Excel automatisch jeden Monat diese 25€ zu dem vorhandenen Betrag gutschreibt, ohne das ich manuell noch irgendwas eintippen muss.
Quasi so:
Kontostand 500
01.01.2011 +25
Kontostand 525
01.02.2011 +25
Kontostand 550
Eben so, dass sich die Zahlenfolge automatisch fortsetzt.
Schonmal vielen Dank für die Antworten!
Hallo!
Ich habe dir hier zum Download mal ein Bsp. abgelegt.
www.ranimach.de/dateien/kontostand.xls
Ist es das, was du brauchst?!?
Gruß
Ralf
===============
Ja, das ist prinzipiell super NUR jetzt müsste ich das Datum noch manuell eintragen. Ich möchte, dass sich Excel automatisch am Datum bedient und schaut „ah jetzt ist wieder der 1. des Monats, jetzt schreib ich wieder 25€ dem Kontostand gut“ … schwierig zu beschreiben … hoffe es kommt irgendwie an 
Hallo,
ich habe eine Lösung gebaut basierend auf einem Visual Basic Macro, dass automatisch bei jedem Öffnen des XLS ausgeführt wird. Es überprüft dann, ob seit dem letzten mal, dass addiert worden ist, ein oder mehrere Monate vergangen sind und holt das dann nach. D.h., das Teil funktioniert auch, wenn seit dem letzten Öffnen mehr als ein Monat vergangen ist, es addiert dann mehrfach. Auch ein Jahreswechsel sollte kein Problem sein, genauso wenig Montaslängen (31,30,28) oder Schaltjahre. Aber Vorsicht: Getestet habe ich das alles nicht! Keine Garantie.
Hierzu muss man dem Macro aber eine Zelle in dem Reiter gönnen, in dem das Macro das nächste Abrechnungsdatum einträgt. Diese Zelle darf nicht händisch verändert oder gar gelöscht werden, sonst wird falsch gerechnet. bei einer Löschung z.B. würde das Macro annehmen, dass seit dem 1.1.1900 nichts passiert ist und kräftig addieren.
Folgendes VBA-Macro in das XLS einbauen.
Kurzanweisung:
a. mit Alt-F11 den Visual Basic Editor öffnen.
b. Doppelklick auf „Diese Arbeitsmappe“
c. VB Code mit Cut&:stuck_out_tongue_winking_eye:aste einfügen
d. Konfiguration durchführen
d1. Zelle, die Summe enthält, die ergänzt werden soll (Zeile und Spalte)
d2. Zelle, in der das nächste Abrechnungsdatum eingetragen werden kann (Zeile und Spalte)
d3. der Betrag, der addiert werden soll (also aktuell 25)
d4. der Name des Reiters, in dem das alles passiert
e. VB editor schliessen (z.B. über Datei - Schliessen und zurück …
Im XLS im richtigen Reiter das Datum eintragen, zu dem die Aktion das erste mal durchgeführt werden soll: Wichtig: immer den 1. des Monats angeben (z.B. 01.10.2010). Falls das Datum in der Vergangenheit liegt, wird das Macro beim nächsten Öffnen des XLS bereits aktiv.
Hier der Code:
(beim Einfügen in WerWeissWas geht leider die Einrückung verloren und damit ein wenig die Lesbarkeit)
Private Sub Workbook_Open()
’ durch den Namen Workbook_Open wird dieses Makro automatisch bei jedem Öffnen des XLS ausgeführt
’ im folgenden sind Konfigurationen „einmalig“ vorzunehmen"
’ Zelle der zu erhöhenden Summe
Z_Summe = 1
S_Summe = 2
’ Zelle, die das Datum der nächsten fälligen Abrechnung enthält
Z_DatumNächsteAbrechnung = 1
S_DatumNächsteAbrechnung = 1
’ Erhöhungsbetrag, also aktuell 25€
PlusBetrag = 25
’ Name des Reiters
ReiterName = „Tabelle1“
Dim ErsterTagDesMonats As Date
Dim NächstesDatum As Date
Dim Heute As Date
’ aktuelles Datums ermitteln
Heute = Date
Monat = Month(Heute)
Jahr = Year(Heute)
ErsterTagDesMonats = Format(„01.“ & Monat & „.“ & Jahr, „DD.MM.YYYY“)
NächstesDatum = Sheets(ReiterName).Cells(Z_DatumNächsteAbrechnung, S_DatumNächsteAbrechnung)
Diff = Heute - NächstesDatum
While Diff >= 0
Sheets(ReiterName).Cells(Z_Summe, S_Summe) = Sheets(ReiterName).Cells(Z_Summe, S_Summe) + PlusBetrag
NächstesDatum = NächstesDatum + 31
Monat = Month(NächstesDatum)
Jahr = Year(NächstesDatum)
NächstesDatum = Format(„01.“ & Monat & „.“ & Jahr, „DD.MM.YYYY“)
Diff = Heute - NächstesDatum
Wend
Sheets(ReiterName).Cells(Z_DatumNächsteAbrechnung, S_DatumNächsteAbrechnung) = NächstesDatum
End Sub
Viel Spass damit und bei Fragen gerne nochmal an mich wenden.
Gruß
Volker
Hi Volker
ich habe jeden Schritt so ausgeführt, wie du geschrieben hast.
Jedoch zeigt er mir, nachdem ich das Makro gespeichert habe, Excel geschlossen habe und wieder öffne, keine Veränderung an. Nachdem ich dann wieder in den Makroeditor gehe, kommt ein BASIC-Syntaxfehler.Syntaxfehler
Der Syntaxerror erscheint an folgender Stelle:
’ im folgenden sind Konfigurationen „einmalig“ vorzunehmen"
’ Zelle der zu erhöhenden Summe
Z_Summe = H
S_Summe = 6
’ Zelle, die das Datum der nächsten fälligen Abrechnung enthält
Z_DatumNächsteAbrechnung = J
S_DatumNächsteAbrechnung = 1
Hab ich was falsch gemacht ?
Hallo,
ja, da ist was falsch.
Wenn die Summe in Zelle H6 ist, dann müssen die Parameter mit 8 und 6 belegt werden, gleiches mit der Datums-Zelle mit J, das wäre dann die 10.
Gruß
Volker
Hallo!
Kann mir jemand helfen ?
Ich benötige eine Excelfunktion die jeden Monatsanfang zu
einem festen Kontostand 25€ dazu addiert.
Ist an und für sich kein Problem, es stellt sich nur die Frage wo, wann das wie ist wie sooft einfacher. Wäre gut wenn du so eine Art MusterSheet mir sendest.
Sorry das ich mich nicht früher melden konnte
Gerhard