Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige