Comboboxen in Abhängigkeit

Hallo Excelprofis,
dies ist der zweite Versuch mein Problem zu lösen und hoffe auf Hilfe.
Folgendes Problem kann ich nicht lösen.
1. Mit der "ComboBoxAendern" wähle ich das zu bearbeitende Blatt aus.
2. Mit der "ComboBox_Mitglied" wähle ich im aktiven Blatt eine Zeile aus dem Bereich Zeile 9 bis Zeile 60.
Der verwendete Code ist mit Hilfe dieses super Forums entstanden.
Bei nachfolgender Aufgabe komme ich nicht weiter.
Die Comboboxen Jahr, Monat, Tag sollen dazu dienen, ein Datum zusammenzustellen.
In ComboBox_Jahr steht immer das Jahr aus dem Datum in Zelle A1.
In ComboBox_Monat sollen die Monate aus den Zellen F99 bis Q99 im Format MMMM stehen.
In ComboBox_Tag sollen, je nach Auswahl des Monats, die Tage aus dem Bereich F100 bis Q130 stehen.
Das Datum aus den 3 Comboboxen soll dann im Format dd.mm.yyyy in die Spalte 13 der, mit der "ComboBox_Mitglied" gewählten, Zeile geschrieben werden.
Wobei noch erwähnt werden muss, dass die "ComboBox_Jahr" später ausgeblendet wird, da hier ja nur ein Wert drin steht und keine Auswahl erfolgen soll.
https://www.herber.de/bbs/user/146169.xlsm
Ich hoffe es ist verständlich und es macht sich Jemand die Mühe mir zu helfen.
Vielen Dank fürs lesen und die Hilfe.
mfg, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
das Stand nicht im ersten Beitrag, da wurde ein Datum in Zelle geschrieben.


Private wks As Worksheet
Private bolAktion As Boolean 'Merker, dass eine Aktion bereits ausgeführt wird
Private Sub ComboBox_Jahr_Change()
Dim InI As Integer
ComboBox_Tag.Clear
If ComboBox_Monat  "" Then
For InI = 1 To Day(CDate("1." & ComboBox_Monat.ListIndex + 2 & "." & ComboBox_Jahr) - 1)
ComboBox_Tag.AddItem InI
Next InI
End If
End Sub
Private Sub ComboBox_Monat_Change()
Dim InI As Integer
ComboBox_Tag.Clear
If ComboBox_Jahr  "" Then
For InI = 1 To Day(CDate("1." & ComboBox_Monat.ListIndex + 2 & "." & ComboBox_Jahr) - 1)
ComboBox_Tag.AddItem InI
Next InI
End If
End Sub
Private Sub UserForm_Activate()
Dim ws As Worksheet
Application.DisplayAlerts = False
'Blattauswahl in Combobox
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Abrechnung*" Then
If CLng(Right(ws.Name, 4)) = Year(Date) _
Or CLng(Right(ws.Name, 4)) = Year(Date) - 1 Or CLng(Right(ws.Name, 4)) = Year(Date) + 1 Then
Me.ComboBoxAendern.AddItem ws.Name
End If
End If
Next ws
Me.ComboBox_Jahr.AddItem Year(Range("A1"))
ComboBox_Jahr.Value = Format(ComboBox_Monat.Value, ("yyyy"))
With ActiveSheet
Dim RaZelle  As Range
For Each RaZelle In Range("F99:Q99")
ComboBox_Monat.AddItem Format(RaZelle, "MMMM")
Next RaZelle
End With
End Sub

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Comboboxen in Abhängigkeit

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread