Monat + Jahr

[Basti5]

Hi Zusammen,

gibt es eine Möglichkeit, -wenn ich in Excel einen Button habe- per VBA Code, den Aktuellen Monat + die Jahreszahl anzeigen zu lassen.

Also:

Klick = Oktober 2018

nächster Klick = November 2018

etc.

Ich hab im Netz ne Menge Datumssachen zu VBA gefunden, aber nichts was mir weiterhilft.

VG

Basti (mal wieder )

[EbyAS]

Hallo Basti,
natürlich geht das aber noch hast Du nicht verraten wo das Datum hin soll! (Zelle, Userform - Anzeige oder oder).

[Basti5]

Hi Armin,

die Ausgabe sollte in Zelle D1 erfolgen.


Gruß

Basti

[Flotter Feger]

Hallo Basti,

du machst mir echt Sorgen Junge ...

Wenn du schon nicht googlen kannst, dann bleib doch einfach bei Formeln.

=TEXT(HEUTE();"MMMM JJJJ")

:20: :22:

[Basti5]

Ich kann googlen - nur komm ich mit den dortigen Ergebnissen nicht weiter

[EbyAS]

Hallo Basti,
weise diesem Makro Deinen Button zu.

Code:

Sub AusgabeDatum()
Dim Dx As Date

If Range("D1").Value > 0 Then
   Dx = Range("D1").Value
Else
   Dx = DateAdd("m", -1, Date)
End If
Range("D1").Value = Format(DateAdd("m", 1, Dx), "mmmm yyyy")
Range("D1").NumberFormat = "mmmm yyyy"
End Sub

[Basti5]

Cool - Vielen Dank

[happy-jack]

Hallo Basti,

du machst mir echt Sorgen Junge ...

Wenn du schon nicht googlen kannst, dann bleib doch einfach bei Formeln.

=TEXT(HEUTE();"MMMM JJJJ")

:20: :22:

Jouh, und mit Formularobjekt "Drehfeld o.ä." und =DATUM(2018;B35;1) kann man auch jeweils monateweise rauf oder runter klicken wenn sich das Drehfeld z.B. (hier) auf B35 bezieht. Zellen natürlich richtig formatieren und  Bezüge eben an eigene Tabelle anpassen.

Jack  ;)

[Basti5]

Mir haut es in der Ausgabe Zelle immer die falsche Formatierung rein- es stellt sich bei jedem Klick auf Benutzerdefiniert, sie 
müsste aber auf Text stehen, aber es schlägt immer um.

Weiß jemand wie  wie man die schützen kann oder so?

VG

[Basti5]

Der Fehler liegt daran, dass manchmal die Ausgabe August 2019 und manchmal z.B. 01.10.2019 ist.

Es darf aber nur August 2019, September 2019 etc heißen.

Weiß zufällig jemand was ich da noch machen kann?

VG