Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro nach Monatsnamen auswählen

Forumthread: Makro nach Monatsnamen auswählen

Makro nach Monatsnamen auswählen
01.08.2006 17:24:17
Martin
Guten Tag
Ich stehe vor folgendem Problem. Ich blende eine MsgBox die eine Frage stellt die entweder mit Ja oder Nein beantwortet werden kann. Alles soweit kein Problem!

Sub Test()
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie Monatsblätter ausdrucken?", vbYesNo + vbQuestion, "2007")
If Antwort = vbYes Then
TestTest
End If
End Sub

Nun mein Problem Ich habe für diese Sache 12 Makros (für jeden Monat einen). Ich möchte, dass bei Ja in Januar Makro EMJan ausgeführt, in März EMMär, in September EMSep bis zum Dezember. Geht das?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry Doppelt
01.08.2006 17:25:31
Martin
Bin aus Versehen nochmals auf "Absenden" gekommen!
AW: Makro nach Monatsnamen auswählen
01.08.2006 21:05:40
Werner
Hallo Martin,
versuch's mal hiermit:
Sub...
Dim Antwort As Integer
Dim aktMon As String
Antwort = MsgBox("Möchten Sie Monatsblätter ausdrucken?", vbYesNo + vbQuestion, "2007")
aktMon = Month(Now)
If Antwort = vbYes Then
Select Case aktMon
Case 1
MsgBox ("hier steht die Anweisung für Monat Januar")
Case 2
MsgBox ("hier steht die Anweisung für Monat Februar")
Case 3
MsgBox ("hier steht die Anweisung für Monat März")
Case 4
MsgBox ("hier steht die Anweisung für Monat April")
Case 5
MsgBox ("hier steht die Anweisung für Monat Mai")
Case 6
MsgBox ("hier steht die Anweisung für Monat Juni")
Case 7
MsgBox ("hier steht die Anweisung für Monat Juli")
Case 8
MsgBox ("hier steht die Anweisung für Monat August")
Case 9
MsgBox ("hier steht die Anweisung für Monat September")
Case 10
MsgBox ("hier steht die Anweisung für Monat Oktober")
Case 11
MsgBox ("hier steht die Anweisung für Monat November")
Case 12
MsgBox ("hier steht die Anweisung für Monat Dezember")
End Select
End If
End Sub
Anzeige
AW: Makro nach Monatsnamen auswählen
01.08.2006 21:10:46
Werner
Hallo Martin,
Hallo Martin,
Fehler in meiner Variablendeklaration!
Die Variable natürlich besser als Byte ausweisen!
Sub...
Dim Antwort As Integer
Dim aktMon As Byte
Antwort = MsgBox("Möchten Sie Monatsblätter ausdrucken?", vbYesNo + vbQuestion, "2007")
aktMon = Month(Now)
If Antwort = vbYes Then
Select Case aktMon
Case 1
MsgBox ("hier steht die Anweisung für Monat Januar")
Case 2
MsgBox ("hier steht die Anweisung für Monat Februar")
Case 3
MsgBox ("hier steht die Anweisung für Monat März")
Case 4
MsgBox ("hier steht die Anweisung für Monat April")
Case 5
MsgBox ("hier steht die Anweisung für Monat Mai")
Case 6
MsgBox ("hier steht die Anweisung für Monat Juni")
Case 7
MsgBox ("hier steht die Anweisung für Monat Juli")
Case 8
MsgBox ("hier steht die Anweisung für Monat August")
Case 9
MsgBox ("hier steht die Anweisung für Monat September")
Case 10
MsgBox ("hier steht die Anweisung für Monat Oktober")
Case 11
MsgBox ("hier steht die Anweisung für Monat November")
Case 12
MsgBox ("hier steht die Anweisung für Monat Dezember")
End Select
End If
End Sub
Anzeige
AW: Makro nach Monatsnamen auswählen
01.08.2006 21:12:04
Werner
Hallo Martin,
versuch's mal hiermit:
Sub...
Dim Antwort As Integer
Dim aktMon As Byte
Antwort = MsgBox("Möchten Sie Monatsblätter ausdrucken?", vbYesNo + vbQuestion, "2007")
aktMon = Month(Now)
If Antwort = vbYes Then
Select Case aktMon
Case 1
MsgBox ("hier steht die Anweisung für Monat Januar")
Case 2
MsgBox ("hier steht die Anweisung für Monat Februar")
Case 3
MsgBox ("hier steht die Anweisung für Monat März")
Case 4
MsgBox ("hier steht die Anweisung für Monat April")
Case 5
MsgBox ("hier steht die Anweisung für Monat Mai")
Case 6
MsgBox ("hier steht die Anweisung für Monat Juni")
Case 7
MsgBox ("hier steht die Anweisung für Monat Juli")
Case 8
MsgBox ("hier steht die Anweisung für Monat August")
Case 9
MsgBox ("hier steht die Anweisung für Monat September")
Case 10
MsgBox ("hier steht die Anweisung für Monat Oktober")
Case 11
MsgBox ("hier steht die Anweisung für Monat November")
Case 12
MsgBox ("hier steht die Anweisung für Monat Dezember")
End Select
End If
End Sub
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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