Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Monatsnamen mit Jahr (VBA)

Forumthread: Monatsnamen mit Jahr (VBA)

Monatsnamen mit Jahr (VBA)
18.11.2008 17:30:00
Andre´
Hallo alle zusammen,
mit folgenden Makro schreibe ich das aktuelle Datum in A1:

Sub Monat()
Range("A1") = Str(Date)
End Sub


in A1 steht dann:
18.11.2008
Jetzt möchte ich aber den Monatsnamen und das Jahr in A1 wie folgt haben:
November 2008
Kann mir bitte jemand einen Tipp geben
Vielen Dank im Voraus!
MFG Andre

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Monatsnamen mit Jahr (VBA)
18.11.2008 17:49:00
robert
hallo,
ausprobieren
gruß
rofu

Sub Monat()
Range("A1") = (Date)
Range("A1").NumberFormat = "mmmm yyyy"
End Sub


AW: Monatsnamen mit Jahr (VBA)
18.11.2008 17:49:00
JogyB
Hallo.
Entweder das Zellenformat anpassen und Range("A1") = Date
oder
Range("A1") = Format(Date, "mmmm yyyy")
oder
Range("A1") = MonthName(Month(Date)) & " " & Year(Date)
Gruss, Jogy
Anzeige
AW: Monatsnamen mit Jahr (VBA)
18.11.2008 20:24:00
Andre´
Hallo rofu, Jogy
erstmals Danke für die Meldung.
In der Zelle soll aber wirklich nur der Monatsname und das Jahr stehen und nicht über das Benutzer Format. Qusi muss auch in der Bearbeitungsleiste der Name+Jahr zu finden sein.
MFG Andre
AW: Monatsnamen mit Jahr (VBA)
18.11.2008 21:17:29
Andre´
Hallo alle zusammen,
habe mir folgende Lösung ausgedacht:

Sub jk()
Dim M As String
Dim J As String
M = Format(Date, "mm")
J = Format(Date, "yyyy")
If M = "01" Then
Range("A1") = "Januar_ " & J
End If
If M = "02" Then
Range("A1") = "Februar_ " & J
End If
If M = "12" Then
Range("A1") = "Dezember_ " & J
End If
End Sub


Gibt es vielleicht noch eine bessere Variante?
MFG Andre

Anzeige
AW: Monatsnamen mit Jahr (VBA)
19.11.2008 00:20:50
Gerd
Hallo Andre!
Range("A1").Value = " " & CStr(MonthName(Month(Date), False)) & " " & CStr(Year(Date))
Gruß Gerd
AW: an Andre
19.11.2008 07:57:00
robert
hallo,
statt der vielen IF's
schau dir mal den befehl CASE an
gruß
rofu
an rofu
19.11.2008 20:01:53
Andre´
Hallo Gerd, rofu
Gerd, Deine Lösung gefällt mir sehr gut. Danke!
rofu, ist denn Case schneller als If?
MFG Andre
Anzeige
AW: an rofu
20.11.2008 07:13:32
robert
hallo andre,
die frage ob schneller kann ich nicht beantworten, aber eleganter finde ich
gruß
rofu
Select Case M
Case 1
Range("A1") = "Januar_ " & J
Case 2
Range("A1") = "Februar_ " & J
..
..
Case 12
Range("A1") = "Dezember_ " & J
End Select
Anzeige
AW: Monatsnamen mit Jahr (VBA)
20.11.2008 00:01:17
JogyB
Hi.
Die ganzen Lösungen sind alle suboptimal, die willst ja keine _ oder führenden Leerzeichen.
Mach es lieber so:
Range("A1").NumberFormat = "@"
Range("A1") = Format(Date, "mmmm yyyy")
Gruss, Jogy
AW: Monatsnamen mit Jahr (VBA)
20.11.2008 09:19:00
Andre´
Hallo Jogy,
Danke für den Tipp, mit der Textformatierung geht es natürlich.
MFG Andre
Anzeige
;

Forumthreads zu verwandten Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Anzeige
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
per VBA kopieren, kein Namenskonflikt
Peter

Guten Tag
Beim Kopieren eines Bereiches mit VBA in eine andere Tabelle erhalte ich die Meldung:
"Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits in der Zieltabelle vorhanden ist. Soll die vorhandene Definition von 'xxxxx' verwendet werden?
* Klicken Sie auf '...
11.12.2008 10:45:09
Thread-ID: 1031973
3 Beiträge
Anzeige
worksheet.activate über Name aus Eigenschaften
michael

Hallo Kollegen.
Folgendes Thema:
Ich habe eine Datei als Kopiervorlage, bei der das erste Blatt nicht umbenannt werden soll, weil ich beim schließen der Datei dorthin zurück springe und Aufgaben erledige.
Erst habe ich über Application.CommandBars("ply").Enabled = True die Funktion...
20.01.2009 19:10:54
Thread-ID: 1041968
5 Beiträge
Namensvergabe per VBA
Boris

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X...
30.01.2009 12:14:00
Thread-ID: 1045354
8 Beiträge
Anzeige
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Anzeige
Sheets.Name bei AddInn
mknelles

Hallo Leute,
>wb.Sheets.Countwb.Sheets.Name Gruß Markus
22.03.2009 20:59:56
Thread-ID: 1062713
12 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Sheets mit ähnlichen Namen finden und löschen
Jörg

hallo,
ich komme im Moment einfach nicht weiter und hoffe das ihr mir evtl. etwas klarheit schaffen könnt.
Ich möchte gerne alle in einer Excel-Datei befindlichen Sheets auf den Namen einer Checkbox überprüfen
und dann diese löschen. Dabei kann es vorkammen , das die mehrere Sheet v...
12.05.2009 11:17:49
Thread-ID: 1074532
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige