VBA, ComboBox nur wenn bestimmter Eintrag in Listbox ausgewählt wird

Private Sub UserForm_Initialize() With lst_Unterlagen .AddItem "aktueller Grundsteuerbescheid" .AddItem "Lohnzettel für die Monate ..." .AddItem "...." ' weitere Items folgen .ListStyle = fmListStyleOption .MultiSelect = fmMultiSelectMulti End With Dim liVal As Integer For liVal = 1 To 12 cbo_vonMonat1.AddItem Format("01." & liVal & "." & Year(Date), "MMMM") cbo_bisMonat3.AddItem Format("01." & liVal & "." & Year(Date), "MMMM") Next For liVal = 2018 To 2030 cbo_vonJahr2.AddItem liVal cbo_vonJahr4.AddItem liVal Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang,
teste mal:

Option Explicit

Private Sub lst_1_Change()
    Dim lngIndex As Long
    Dim blnSelected As Boolean
    With lst_1
        For lngIndex = 1 To 3 Step 2
            If .Selected(lngIndex) Then blnSelected = True
        Next
    End With
    Call EnableComboBox(blnSelected)
End Sub

Private Sub UserForm_Initialize()

    Dim liVal As Long

    With lst_1
        .AddItem "aktuellen Rentenbescheid"
        .AddItem "Lohnzettel vom ... bis ..."
        .AddItem "aktuellen Kindergeldbescheid)"
        .AddItem "Arbeitslosengeld I/Arbeitslosengeld II-Bescheide über die Leistungsgewährung vom ... bis ..."
        .ListStyle = fmListStyleOption 'Felder zum Ankreuzen
        .MultiSelect = fmMultiSelectMulti 'mehrere Felder auswählbar
    End With
    With cbo_1
        .AddItem ""
    End With
    With cbo_2
        .AddItem ""
    End With
    With cbo_3
        .AddItem ""
        .AddItem "aktuell"
    End With
    With cbo_4
        .AddItem ""
    End With
    With cbo_5
        .AddItem ""
    End With
    With cbo_6
        .AddItem ""
    End With
    With cbo_7
        .AddItem ""
    End With
    With cbo_8
        .AddItem ""
    End With

    'füllt die ComboBoxen1,3,5,7 mit allen Monatsnamen
    For liVal = 1 To 12
        cbo_1.AddItem MonthName(liVal)
        cbo_3.AddItem MonthName(liVal)
        cbo_5.AddItem MonthName(liVal)
        cbo_7.AddItem MonthName(liVal)
    Next

    'füllt die ComboBoxen2,4,6,8 mit den Zahlen 2018 bis 2030
    For liVal = 2018 To 2030
        cbo_2.AddItem liVal
        cbo_4.AddItem liVal
        cbo_6.AddItem liVal
        cbo_8.AddItem liVal
    Next

    Call EnableComboBox(False)

End Sub

Private Sub cmd_Übertragen_Click()
    Dim Einkommen As String 'alle ausgewählten Elemente werden in einen Textstring geschrieben
    Dim i As Long
    For i = 0 To lst_1.ListCount - 1
        If lst_1.Selected(i) Then
            Einkommen = Einkommen & "-" & lst_1.List(i) & vbCr
        End If
    Next
    If lst_1.ListIndex = 2 Then
        ActiveDocument.FormFields("FF_von").Result = cbo_1
    End If
    ActiveDocument.FormFields("FF_Einkommen").Result = Einkommen
    Unload Me
End Sub

Private Sub EnableComboBox(ByVal pvblnEnable As Boolean)
    Dim lngIndex As Long
    For lngIndex = 1 To 8
        Controls("cbo_" & CStr(lngIndex)).Enabled = pvblnEnable
    Next
    If Not pvblnEnable Then
        For lngIndex = 1 To 8
            Controls("cbo_" & CStr(lngIndex)).ListIndex = -1
        Next
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

VBA, ComboBox nur wenn bestimmter Eintrag in Listbox ausgewählt wird

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

253 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA, ComboBox nur wenn bestimmter Eintrag in Listbox ausgewählt wird

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

253 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread