Ich glaube, ich bin unheilbar bloed...:(
ComboBox hat gut funktioniert, aber nicht mehr... Teoretisch habe ich nicht geaendert, aber jetzt geht es nicht mehr.:( Er nimmt immer E4:E8 und will gar nicht auf E5:E8 zu wechseln...
SOS! ich bin ein looooser........:(
Private Sub ResOptionsPers_Change()
If TypRes.Value = "résidentiel" Then
If Handicap.Value = "No" Then
If Acces.Text = 1 Then
Worksheets("A2").NbrPers.ListFillRange = "Tables!E4:E8"
Worksheets("A2").NbrPers.ListIndex = 0
End If
End If
End If
If TypRes.Value = "résidentiel" Then
If Handicap.Value = "No" Then
If Acces.Text = 2 Then
Worksheets("A2").NbrPers.ListFillRange = "Tables!E5:E8"
Worksheets("A2").NbrPers.ListIndex = 0
End If
End If
End If
End Sub