Clever-Excel-Forum

Hallo zusammen,

ich habe so meine Schwierigkeiten mit einem Makro für ein fixes Datum in Excel 2010.

Ich habe eine Tabelle wo täglich Eintragungen gemacht werden und das aktuelle Datum eingetragen wird.
Um das zu vereinfachen habe ich ein Makro geschrieben welches mir das aktuelle Datum ausgibt ohne es am folgenden Tag zu verändern. Es sieht wie folgt aus:

Code:
Function MakroStart()

Application.Volatile

MakroStart_Makro

End Function

Sub Datum()

'

' Aktuelles_Datum Makro

' Schreibt das aktuelle Datum in eine markierte Zelle

'

' Tastenkombination: Strg+d

'

    ActiveCell.FormulaR1C1 = Date

    ActiveCell.Offset(0, 1).Range("A1").Select

End Sub

Nun habe ich in der Zelle A1 folgende Formel: =WENN(B1="";"";Startmakro())
Also wird sobald ich etwas in B1 schreibe automatisch das Datum gesetzt und ist fix und ändert sich morgen nicht.
Das funktioniert auch soweit.
Aber, und dabei brauche ich Hilfe, es passiert nicht morgen, vielleicht erst in ein paar Monaten,
aber irgendwann tritt ein Fehler auf und es erscheint in der gesamten Tabelle nur noch das aktuelle Datum,
und ich darf die Daten von Januar bis jetzt erneut eingeben was enorm lästig ist. Huh

Habt ihr eine Idee wie ich den Fehler beheben kann oder ist es ein Excel spezifisches Problem?

Liebe Grüße, Andy

Hallo Andy,

bitte kontrolliere nochmals Deine Frage und den geposteten Code.

Eine Idee habe ich nämlich schon:
Die Namen der Subs und Funktion und auch der Name in der Formel passen nicht zusammen, überhaupt gar nicht, niemals nie ...

Gruß Carsten

Hallo Andy,

entweder passiert das, wenn B1 wieder leer wird, wie auch immer es gefüllt wird
oder wenn Du Strg+d drückst und dabei A1 markiert ist.

Gruß Uwe

(03.05.2017, 15:04)DbSam schrieb: [ -> ]Die Namen der Subs und Funktion und auch der Name in der Formel passen nicht zusammen, überhaupt gar nicht, niemals nie ...

Gruß Carsten

Hi Carsten,

erstmal vielen Dank für deine Antwort, aber das glaube ich nicht, denn das Makro funktioniert ja bis zu einem bestimmten Zeitpunkt. Und um ein Makro über eine Formel zu aktivieren muss es startmakro() heißen.

Auch vielen Dank an dich Kuwer. Der Tipp mit der Tastenkombi ist gut. Aber dann wird eigentlich auch nur das Makro aktiviert. Aber ich werde es erstmal testen und sonst schreiben wenn es trotzdem nicht funktioniert.

Hallo Andre,

vielleicht solltest Du Deinen Code doch noch einmal selbst lesen.

Ich wüsste z.B. nicht, wie 'MakroStart_Makro' die Sub 'Datum' aufrufen sollte.
Aber vielleicht hast Du ein Zaubersheet und ich nicht ... :)

Gruß Carsten

Hallo,

schön das jetzt Antworten vorliegen, ich habe mir die Sache auch mal angesehen, wurde aber nicht richtig schlau draus.
Als alter Praktiker habe ich einfach in Excel 2003 ein Startmakro geschrieben um mit einer MsgBox zu sehen was genau passiert.

Bei Eingabe in einer Zelle wurde die Box angezeigt, aber kein Datum in die Zelle geschrieben. Der Select Befehl funktionierte auch nicht richtig, er sollte laut Code doch nach Rechts gehen, nicht nach unten. Bei mir geht er aber nach unten! Zum Testen habe ich Offset (0, 2) gewaehlt, aber es blieb bei einer Zeile nach unten. Das Excel die Befehlsannahme des Codes verweigert war mir auch neu!!

Frage: Warum wird nicht über die Change Funktion bei Eingabe mit Target gearbeitet? Da könnte man mit IF Then so einiges abfangen. Warum das Makro dann manchmal klappt manchmal versagt, ist mir auch ein grosses Raetsel?? Richtig kapiert habe ich das ganze Konstrukt noch nicht so richtig?? Was passiert im Startmakro? Davon ist im Thread nicht zu sehen. Das ganze Makro ist mir nicht so recht geheuer???

mgf Gast 123

Hallo DauerGast789,

da gibt es im Netz viele Fragen und Threads dazu, das ist einer von denen.
Ich glaube mich zu erinnern, dass dort Deine Fragen irgendwie aufgehellt werden ...

Andre hat uns anscheinend etwas verschwiegen/unterschlagen und glaubt mir nicht.
Ist mir aber auch egal, denn ich habe kein Problem. :)

Gruß Carsten

Hallo Carsten

danke für deinen Beitrag über das Herber Forum, da war ich lange nicht mehr drin. Interessant die Antworten von Luc und Luschi, die gehören für mich mit zu den Profis. Ich kenne guten Arbeiten aus dem Archiv.

Amüsant ist, das der Frager auch dort auf die Change Funktion hingewiesen wurde, und meine Beobachtung stimmte. Eine MsgBox erscheint, aber die anderen Sachen werden bei dieser Art Fkt nicht ausgeführt! Wieder was dazu gelernt!

Nun ja, wenn er nicht auf Change und Target gehen will .... soll er weiter suchen. Dann schliessen wir den Thread eben ab.

mfg Gast 123

Hallöchen,

hier mal der Lösungsansatz ohne Makro:
http://www.clever-excel-forum.de/Thread-...4#pid73984

Andy1978

DbSam

Kuwer

Andy1978

DbSam

Gast 123

DbSam

Gast 123

schauan