Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Monatsliste Jan, Feb, Mrz, ...

Forumthread: Monatsliste Jan, Feb, Mrz, ...

Monatsliste Jan, Feb, Mrz, ...
21.12.2008 16:44:17
Reinhard
Hallo Wissende,
wie erstelle ich per Vba diese Liste: Jan, Feb, Mrz,Apr,...
mit dem ersten Code, der zweite klappt ja.
Andersrum gefragt, wieso kürzt der Formatbefehl die Monate nicht wie gewünscht ab?
Im Archiv fand ich nichts.

Sub Kopf()
Dim N
For N = 1 To 12
Cells(N, 1) = Format(MonthName(N), "MMM")
Next N
End Sub
Sub Kopf2()
Dim N As Byte, M
M = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
For N = 0 To 11
Cells(N + 1, 1) = M(N)
Next N
End Sub


Gruß
Reinhard

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Monatsliste Jan, Feb, Mrz, ...
21.12.2008 16:53:00
K.Rola
Hallo,

Sub Kopf()
Dim N
For N = 1 To 12
Cells(N, 1) =MonthName(N, -1)
Next N
End Sub


Gruß K.Rola
PS Hilfe nicht installiert?

AW: @K.Rola:Auf die Sekunde genau!(;-) o.w.T.
21.12.2008 16:58:00
Uwe
.
AW: Monatsliste Jan, Feb, Mrz, ...
21.12.2008 16:53:28
Uwe
Hi Reinhard,
da hätte die Excel Hilfe geholfen, denke ich:

MonthName-Funktion
Beschreibung
Gibt eine Zeichenfolge zurück, die den festgelegten Monat angibt.
Syntax
MonthName(Monat[, abkürzen])
Die Syntax der MonthName-Funktion besteht aus folgenden Teilen:
Teil Beschreibung
Monat Erforderlich. Die numerische Bezeichnung des Monats, z. B. 1 für Januar, 2 für Februar  _
usw.
abkürzen Optional. Boolescher Wert, der angibt, ob der Monatsname abgekürzt wird. Wird er ausgelassen, ist die Standardeinstellung False, d. h. der Monatsname wird nicht abgekürzt.


also so:


Sub Kopf()
Dim N
For N = 1 To 12
Cells(N, 1) = MonthName(N, 1)
Next N
End Sub
Gruß
Uwe
(:o)
Anzeige
AW: Monatsliste Jan, Feb, Mrz, ...
21.12.2008 16:55:00
Andre´
Hallo Reinhard,
probier mal dies:
Cells(N, 1) = Left(Format(MonthName(N), "MMM"), 3)
allerdings steht dann für März = Mär und nicht Mrz
MFG Andre
AW: Monatsliste Jan, Feb, Mrz, ...
21.12.2008 17:21:00
Gerd
Hallo Reinhard,
wenn Du auf Format bestehst:
Cells(N, 1) = Format(Month(N), "MMM")
Gruß Gerd
AW: Hallo Gerd..
21.12.2008 17:36:00
robert
hast du das getestet?
bei mir folgendes bild:
Jan
Dez
Dez
Dez
... usw
gruß
robert
Anzeige
AW: Hallo Gerd..
21.12.2008 18:08:00
Gerd
Hallo Robert,
jein. Mit N= 12 :-)

Sub ttt()
Dim N As Long
For N = 1 To 12
Cells(N, 1) = Format(DateSerial(0, N, 1), "MMM")
Next
End Sub


Gruß Gerd

AW: Hallo Gerd..jetzt funkts-owt
21.12.2008 18:20:11
robert
AW: Monatsliste Jan, Feb, Mrz, ...
21.12.2008 17:49:18
Erich
Hi Reinhard,
nur mit Format ginge es z. B. so: 

Sub Kopf()
Dim N
For N = 1 To 12
Cells(N, 4) = Format(N * 28, "MMM")
Next N
End Sub

N*28 wird darin als Datum verwendet.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
Bedanke mich
21.12.2008 18:18:00
Reinhard
Hallo Helfende,
die Vba-Hilfe habe ich nicht installiert *schwer lüch* :-))
Dankeschön
Gruß
Reinhard
;
Anzeige

Infobox / Tutorial

Monatsliste in Excel erstellen: Jan, Feb, Mrz und mehr

Schritt-für-Schritt-Anleitung

Um eine Monatsliste in Excel mit den Abkürzungen "Jan", "Feb", "Mrz" usw. zu erstellen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte, um dies zu erreichen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub Kopf()
   Dim N
   For N = 1 To 12
       Cells(N, 1) = MonthName(N, True) ' True bedeutet Abkürzung
   Next N
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Drücke ALT + F8, wähle Kopf aus und klicke auf Ausführen, um die Monatsliste zu erstellen.

Damit werden die Monate in der ersten Spalte abgedruckt.

Häufige Fehler und Lösungen

  1. Fehler: "Die Monate werden nicht korrekt angezeigt."

    • Überprüfe, ob Du die Option für die Abkürzungen im MonthName-Befehl korrekt gesetzt hast. Setze den zweiten Parameter auf True.

  2. Fehler: "Das Arbeitsblatt bleibt leer."

    • Stelle sicher, dass Du das Makro tatsächlich ausführst (siehe Schritt 5 der Anleitung).

  3. Fehler: "Mein Excel zeigt die Monate nicht richtig an."

    • Achte darauf, dass Du die richtige Excel-Version verwendest, die VBA unterstützt.

Alternative Methoden

Neben der Verwendung von VBA gibt es auch andere Möglichkeiten, um eine Monatsliste in Excel zu erstellen:

  • Formeln: Du kannst die Funktion TEXT verwenden, um die Monatsnamen aus Datumsangaben zu generieren:

    =TEXT(DATUM(2023, A1, 1), "MMM")

    Stelle sicher, dass die Zellen von A1 bis A12 mit den Zahlen 1 bis 12 gefüllt sind.

  • Direkte Eingabe: Du könntest die Monate manuell in die Zellen eingeben, aber das ist weniger effizient.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die Monatsliste in Excel erweitern kannst:

  • Monatsliste in einer Zeile: Du könntest den Code anpassen, um die Monatsliste in einer Zeile anzuzeigen:

    Sub Kopf()
   Dim N
   For N = 1 To 12
       Cells(1, N) = MonthName(N, True)
   Next N
End Sub

  • Monatsnamen mit spezifischen Abkürzungen: Wenn Du maßgeschneiderte Abkürzungen wie "Mrz" für März verwenden möchtest, kannst Du ein Array nutzen:

    Sub Kopf()
   Dim M
   M = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
   Dim N As Long
   For N = 0 To 11
       Cells(N + 1, 1) = M(N)
   Next N
End Sub

Tipps für Profis

  • Effiziente Nutzung von VBA: Nutze Option Explicit am Anfang Deines VBA-Codes, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.

  • Makros speichern: Wenn Du häufig mit Makros arbeitest, speichere Deine Excel-Datei im Makro-fähigen Format (.xlsm).

  • Fehlerbehebung: Nutze die Debug.Print-Anweisung, um Werte während der Ausführung Deines Codes zu überprüfen.

FAQ: Häufige Fragen

1. Wie kann ich die Monatsliste in eine andere Spalte einfügen? Du kannst die Cells(N, 1)-Anweisung anpassen, um die Spalte zu ändern. Zum Beispiel Cells(N, 2) für die zweite Spalte.

2. Warum funktioniert der Format-Befehl nicht wie gewünscht? Der Format-Befehl kann manchmal aufgrund der Regionseinstellungen in Excel unerwartete Ergebnisse liefern. Überprüfe die Spracheinstellungen in Excel.

3. Kann ich die Monatsliste automatisch aktualisieren? Ja, Du kannst das Makro so anpassen, dass es beim Öffnen der Datei oder über einen bestimmten Trigger ausgeführt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige