Supportnet / Forum / Tabellenkalkulation
Hilfe bei Makro benötigt, Danke im Voraus
Frage
Ich habe folgendes Problem:
Ich hätte gerne ein Dropdown-Menü mit Monatsnamen von Jänner bis Dezember.
Dieses habe ich bereits über Userform angelegt.
Zusätzlich müsste aber jeder Monat mit einem Makro belegt werden - dh. wenn ich auf Jänner klicke müsste ein Makro aktiviert werden.
Wie schreibe ich hier den Code bzw. wo?
Bis jetzt bin ich folgend vorgegangen:
Private Sub ComboBox1_Change()
Label1.Caption = Range("a1").Value
Monate.List = Range("A2:A13").Value
Monate.ListIndex = 0
If ActiveSheet.Name = "a2" Then
Call DD_alles_BeiKlick
Else
DD_alles.BeiKlick
End If
End Sub
Unter A2 bis A13 stehen die Monatsnamen.
Bin leider absoluter Neuling auf dem Gebiet.
Bitte um Eure Hilfe
Antwort 1 von Ahnan
Hallo,
ein Beispiel zum Einlesen in Combobox:
Die Combobox befindet sich in einer UserForm!
Rechtsklick auf Combobox (im VBA-Editor), dann öffnet sich das Eigenschaftsfenster der Combobox.
Bei RowSource gibts du den einzulesenden Bereich ein. Bsp: Tabelle1!A2:A13. Also werden die Zellen A2:A13 der Tabelle1 eingelesen !
ein Beispiel zum Auslesen der Combobox:
In deinem Fall werden nun die Kalendermonate (A2:A13) eingelesen (angezeigt zum Auswählen). Mit diesem Makro kannst du jedem Monat eine Aktion zuordnen (Makro oder in diesem Fall eine Meldungsbox):
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Januar"
MsgBox "Januar ausgewählt !"
Case "Februar"
MsgBox "Februar ausgewählt !"
Case "März"
MsgBox "März ausgewählt !"
Case "April"
MsgBox "April ausgewählt !"
Case "Mai"
MsgBox "Mai ausgewählt !"
Case "Juni"
MsgBox "Juni ausgewählt !"
Case "Juli"
MsgBox "Juli ausgewählt !"
Case "August"
MsgBox "August ausgewählt !"
Case "September"
MsgBox "September ausgewählt !"
Case "Oktober"
MsgBox "Oktober ausgewählt !"
Case "November"
MsgBox "November ausgewählt !"
Case "Dezember"
MsgBox "Dezember ausgewählt !"
End Select
End Sub
Anstatt der jeweiligen Meldungsboxen fügst du einfach das entsprechende Makro ein.
Wie gesagt ein Beispiel, wie man dein Problem lösen kann.
MfG
ein Beispiel zum Einlesen in Combobox:
Die Combobox befindet sich in einer UserForm!
Rechtsklick auf Combobox (im VBA-Editor), dann öffnet sich das Eigenschaftsfenster der Combobox.
Bei RowSource gibts du den einzulesenden Bereich ein. Bsp: Tabelle1!A2:A13. Also werden die Zellen A2:A13 der Tabelle1 eingelesen !
ein Beispiel zum Auslesen der Combobox:
In deinem Fall werden nun die Kalendermonate (A2:A13) eingelesen (angezeigt zum Auswählen). Mit diesem Makro kannst du jedem Monat eine Aktion zuordnen (Makro oder in diesem Fall eine Meldungsbox):
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Januar"
MsgBox "Januar ausgewählt !"
Case "Februar"
MsgBox "Februar ausgewählt !"
Case "März"
MsgBox "März ausgewählt !"
Case "April"
MsgBox "April ausgewählt !"
Case "Mai"
MsgBox "Mai ausgewählt !"
Case "Juni"
MsgBox "Juni ausgewählt !"
Case "Juli"
MsgBox "Juli ausgewählt !"
Case "August"
MsgBox "August ausgewählt !"
Case "September"
MsgBox "September ausgewählt !"
Case "Oktober"
MsgBox "Oktober ausgewählt !"
Case "November"
MsgBox "November ausgewählt !"
Case "Dezember"
MsgBox "Dezember ausgewählt !"
End Select
End Sub
Anstatt der jeweiligen Meldungsboxen fügst du einfach das entsprechende Makro ein.
Wie gesagt ein Beispiel, wie man dein Problem lösen kann.
MfG
Antwort 2 von altitudinarian
Ich bräuchte nochmals deine Hilfe.
Muss ich jetzt einfach statt
MsgBox "Dezember ausgewählt !"
g_jaenner Makro
hinschreiben oder anders.
PS: g_jaenner: blendet Februar bis Dezember aus
Muss ich jetzt einfach statt
MsgBox "Dezember ausgewählt !"
g_jaenner Makro
hinschreiben oder anders.
PS: g_jaenner: blendet Februar bis Dezember aus
Antwort 3 von Ahnan
Hallo,
Anstatt z.B. MsgBox "Januar ausgewählt" schreibst du einfach das Makro rein, welches beim Auswählen von Januar ablaufen soll ! Bei MsgBox "Februar ausgewählt" schreibst du das Makro, welches bei Auswahl Februar laufen soll usw......
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Januar"
Call g_jaenner (Makro für Auswahl Januar)
usw.
.
.
.
MfG
Anstatt z.B. MsgBox "Januar ausgewählt" schreibst du einfach das Makro rein, welches beim Auswählen von Januar ablaufen soll ! Bei MsgBox "Februar ausgewählt" schreibst du das Makro, welches bei Auswahl Februar laufen soll usw......
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Januar"
Call g_jaenner (Makro für Auswahl Januar)
usw.
.
.
.
MfG
Antwort 4 von altitudinarian
Hallo Ahnan,
leider klappt das ding noch immer nicht ich geb dir mal meinen Code bekannt:
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Auswahl"
MsgBox "Auswahl treffen !"
Case "Januar"
Call g_jaenner
Case "Februar"
MsgBox "Februar ausgewählt !"
Case "März"
MsgBox "März ausgewählt !"
Case "April"
MsgBox "April ausgewählt !"
Case "Mai"
MsgBox "Mai ausgewählt !"
Case "Juni"
MsgBox "Juni ausgewählt !"
Case "Juli"
MsgBox "Juli ausgewählt !"
Case "August"
MsgBox "August ausgewählt !"
Case "September"
MsgBox "September ausgewählt !"
Case "Oktober"
MsgBox "Oktober ausgewählt !"
Case "November"
MsgBox "November ausgewählt !"
Case "Dezember"
MsgBox "Dezember ausgewählt !"
End Select
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Abbrechen_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Monate_AfterUpdate()
End Sub
Private Sub Monate_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Range("Monate!a1").Value
Monate.List = Range("Monate!A2:Monate!A14").Value
Monate.ListIndex = 0
End Sub
DANKE AHNAN
leider klappt das ding noch immer nicht ich geb dir mal meinen Code bekannt:
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Auswahl"
MsgBox "Auswahl treffen !"
Case "Januar"
Call g_jaenner
Case "Februar"
MsgBox "Februar ausgewählt !"
Case "März"
MsgBox "März ausgewählt !"
Case "April"
MsgBox "April ausgewählt !"
Case "Mai"
MsgBox "Mai ausgewählt !"
Case "Juni"
MsgBox "Juni ausgewählt !"
Case "Juli"
MsgBox "Juli ausgewählt !"
Case "August"
MsgBox "August ausgewählt !"
Case "September"
MsgBox "September ausgewählt !"
Case "Oktober"
MsgBox "Oktober ausgewählt !"
Case "November"
MsgBox "November ausgewählt !"
Case "Dezember"
MsgBox "Dezember ausgewählt !"
End Select
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Abbrechen_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Monate_AfterUpdate()
End Sub
Private Sub Monate_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Range("Monate!a1").Value
Monate.List = Range("Monate!A2:Monate!A14").Value
Monate.ListIndex = 0
End Sub
DANKE AHNAN
Antwort 5 von Ahnan
Hallo,
was genau funktioniert denn nicht ?
Besser noch, erklär mal genau was denn passieren soll.
Was soll z.B. diese MsgBox, wenn ich in der Combobox "Auswahl" auswähle ?
Case "Auswahl"
MsgBox "Auswahl treffen !"
Am einfachsten wäre es, du schickst mir mal die Datei.Dann kann ich mir selbst einen Überblick verschaffen (Aber mit Erklärung deinerseits, was du eigentlich erreichen möchtest).
An:
held1233@aol.com
MfG
was genau funktioniert denn nicht ?
Besser noch, erklär mal genau was denn passieren soll.
Was soll z.B. diese MsgBox, wenn ich in der Combobox "Auswahl" auswähle ?
Case "Auswahl"
MsgBox "Auswahl treffen !"
Am einfachsten wäre es, du schickst mir mal die Datei.Dann kann ich mir selbst einen Überblick verschaffen (Aber mit Erklärung deinerseits, was du eigentlich erreichen möchtest).
An:
held1233@aol.com
MfG