VBA:Fehlermeldung bei falscher Monatsreihenfolge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rosi,


Option Explicit
Private Sub ComboBox1_Change()
'Start
If ComboBox2.ListIndex  -1 Then
If ComboBox1.ListIndex > ComboBox2.ListIndex Then
MsgBox "not allowed!"
End If
End If
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox2.ListIndex  -1 Then
If ComboBox1.ListIndex > ComboBox2.ListIndex Then
MsgBox "not allowed!"
Cancel = True
End If
End If
End Sub
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.ListIndex  -1 Then
If ComboBox1.ListIndex > ComboBox2.ListIndex Then
MsgBox "not allowed!"
Cancel = True
End If
End If
End Sub
Private Sub ComboBox2_Change()
'Ziel
If ComboBox1.ListIndex  -1 Then
If ComboBox1.ListIndex > ComboBox2.ListIndex Then
MsgBox "not allowed!"
End If
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.ListRows = 12
ComboBox1.RowSource = "Tabelle1!A1:A12"
ComboBox2.ListRows = 12
ComboBox2.RowSource = "Tabelle1!A1:A12"
End Sub

Gruß
Reinhard

Hallo Rosi,
bei mir sieht der Code so aus

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Const strM As String = "Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember"

Private Sub ComboBox1_Change()
  Dim lngIndex As Long, vntL As Variant

  If ComboBox1.ListIndex > -1 Then
    vntL = Split(strM, ",")
    With ComboBox2
      .Enabled = True
      .Clear
      For lngIndex = ComboBox1.ListIndex To 11
        .AddItem vntL(lngIndex)
      Next
      .ListIndex = 0
    End With
  End If
End Sub

Private Sub UserForm_Activate()
  Dim vntL As Variant

  vntL = Split(strM, ",")

  ComboBox1.List = vntL
  ComboBox2.Enabled = False
End Sub

und er läuft auch!

Gruß Sepp

Option Explicit Const strM As String = "Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober, _ November,Dezember" Private Sub ComboBox1_Change() Dim lngIndex As Long, vntL As Variant If ComboBox1.ListIndex > -1 Then vntL = Split(strM, ",") With ComboBox2 .Enabled = True .Clear For lngIndex = ComboBox1.ListIndex To 11 .AddItem vntL(lngIndex) Next .ListIndex = 0 End With End If End Sub Private Sub UserForm_Activate() Dim vntL As Variant vntL = Split(strM, ",") ComboBox1.List = vntL ComboBox2.Enabled = False End Sub

Beliebteste Forumthreads (12 Monate)

VBA:Fehlermeldung bei falscher Monatsreihenfolge

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA:Fehlermeldung bei falscher Monatsreihenfolge

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread