Monat und Jahr über VBA Format ausgeschrieben

Forumthread: Monat und Jahr über VBA Format ausgeschrieben

14.12.2018 12:54:22

Andreas

Hallo VBA Freunde,
ich habe ein Problem, welches vermutlich banal ist, ich aber durch Versuche und Recherche bisher nicht lösen konnte. Es geht um die Ableitung von Monat und Jahr, jeweils vollständig ausgeschrieben. Ein Zellwert über Format(Value, MMMM) ergibt ausgehend vom Datum 1.1.2019 korrekterweise Januar. Wenn ich dies aber nun mit MMMM YYYY für eine vollständige Schreibweise auch des Jahres kombinieren will, stimmt es nicht mehr.
Weiß jemand Rat? Ich habe eine kleine Beispieltabelle angefügt.
https://www.herber.de/bbs/user/126103.xlsm
Vielen Dank und Grüsse, Andreas Hanisch

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Monat und Jahr über VBA Format ausgeschrieben

14.12.2018 13:04:33

Torsten
AW: Monat und Jahr über VBA Format ausgeschrieben

14.12.2018 13:12:38

Torsten

AW: Monat und Jahr über VBA Format ausgeschrieben

14.12.2018 13:04:33

Torsten

Ich denke mal, dass die Zellen auch dementsprechend formatiert werden muessen.
Benutzerdefiniert mmmm jjjj
Hab das bei mir versucht, funktioniert.
Gruss Torsten

AW: Monat und Jahr über VBA Format ausgeschrieben

14.12.2018 13:12:38

Torsten

oder versuch mal:

.Offset(0, 1).NumberFormat = "MMMM YYYY"

Infobox / Tutorial

Monat und Jahr über VBA Format ausgeschrieben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen und wähle Modul.

Gib den folgenden Code ein, um den Monat und das Jahr aus einem Datum auszulesen:

Sub MonatUndJahrAusschreiben()
   Dim datum As Date
   datum = #1/1/2019#
   Dim monat As String
   Dim jahr As String

   monat = Format(datum, "MMMM") ' Monat ausgeschrieben
   jahr = Format(datum, "YYYY")   ' Jahr ausgeschrieben

   MsgBox monat & " " & jahr
End Sub

Führe das Makro aus, um das Ergebnis in einer Nachricht anzuzeigen.
Falls du den Monat und das Jahr in einer Zelle anzeigen möchtest, kannst du den Code wie folgt anpassen:
```
Range("A1").Value = Format(datum, "MMMM YYYY")
```

Häufige Fehler und Lösungen

Problem: Der Monat wird nicht korrekt angezeigt.
- Lösung: Stelle sicher, dass die Zelle, in der du das Datum eingibst, im richtigen Format vorliegt. Du kannst die Zelle mit Benutzerdefiniert und mmmm jjjj formatieren.
Problem: Der VBA-Code führt zu einem Fehler.
- Lösung: Überprüfe, ob das Datum korrekt eingegeben ist und das Format in den Zellen stimmt.

Alternative Methoden

Wenn du die Ausgabe in einer Excel-Zelle ohne VBA erreichen möchtest, kannst du folgende Formeln verwenden:

Für den Monat:
```
=TEXT(A1, "MMMM")
```
Für Jahr:
```
=TEXT(A1, "YYYY")
```
Für beide zusammen:
```
=TEXT(A1, "MMMM YYYY")
```

Diese Formeln funktionieren in den meisten Excel-Versionen.

Praktische Beispiele

Beispiel mit Datum in Zelle A1:
- Wenn in Zelle A1 das Datum 01.01.2019 steht, kannst du in Zelle B1 die Formel =TEXT(A1, "MMMM YYYY") verwenden, um "Januar 2019" zu erhalten.

VBA Beispiel zur Automatisierung:

Verwende den folgenden VBA-Code, um den Monat und das Jahr aus einem Array von Daten auszulesen:

Sub MonateJahreAusgeben()
   Dim i As Integer
   Dim datum As Variant
   Dim ausgabe As String

   For i = 1 To 5
       datum = Cells(i, 1).Value
       ausgabe = Format(datum, "MMMM YYYY")
       Cells(i, 2).Value = ausgabe
   Next i
End Sub

Tipps für Profis

Verwende benutzerdefinierte Formate in VBA, um die Ausgabe anzupassen. Zum Beispiel: .NumberFormat = "MMMM YYYY".
Nutze die Möglichkeit, VBA-Funktionen zu kombinieren, um komplexe Ausgaben zu erstellen. Du kannst auch mit If-Then-Bedingungen arbeiten, um verschiedene Formate je nach Jahr oder Monat zu nutzen.

FAQ: Häufige Fragen

1. Wie kann ich nur den Monat oder nur das Jahr aus einem Datum auslesen? Du kannst die Funktionen Format(datum, "MMMM") für den Monat und Format(datum, "YYYY") für das Jahr verwenden.

2. Warum zeigt Excel nicht den korrekten Monat an? Das kann daran liegen, dass die Zellen nicht richtig formatiert sind. Stelle sicher, dass du die Zelle im Format Benutzerdefiniert mit mmmm für den Monat und jjjj für das Jahr formatierst.

Beliebteste Forumthreads (12 Monate)

Monat und Jahr über VBA Format ausgeschrieben

Forumthread: Monat und Jahr über VBA Format ausgeschrieben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Monat und Jahr über VBA Format ausgeschrieben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread