If...Then mit > And <

Private Sub BedingungenB() Option Explicit Private Sub BedingungenB() If Cells(8, 3) >= 1400 And Cells(8, 3) < 1500 Then ChargeEx.ListFillRange = "Tables!F4" ChargeEx.ListIndex = 0 ElseIf Cells(8, 3) >= 1500 And Cells(8, 3) < 1600 Then ChargeEx.ListFillRange = "Tables!F5" ChargeEx.ListIndex = 0 End If End Sub Eigentlich sollte es wenn ich in C8 etwas eintipe entweder Ergebnis "Tables!F4" oder "F5" erscheinen. Er bleibt aber auf F4 haengen... Die 2te Frage ist, wie kann ich grids ausblenden? ich haette gerne alles wie ein weisse Feld gesehen. Danke im voraus, Tatiana End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tatiana,
ich kann da keinen Fehler finden. Nur die MsgBox kommt unter bestimmten Bedingungen zwei mal. Das kannst du verhindern, indem du das Makro vorzeitig verlässt.
' **********************************************************************
' Modul: Sheet3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$13" Or Target.Address = "$C$15" Then
        If AccesEx = "1" Then
            If Cells(13, 3) < 1400 Then
                MsgBox "Forget it, Frank! Everybody knows, BS has to be at least 1400"
                ChargeEx.ListFillRange = "Tables!F15"
                ChargeEx.ListIndex = 0
                Exit Sub
            End If
            If Cells(15, 3) < 1450 Then
                MsgBox "Forget it, Frank! Everybody knows, TS has to be at least 1450"
                ChargeEx.ListFillRange = "Tables!F15"
                ChargeEx.ListIndex = 0
            End If
            If Cells(13, 3) >= 1400 And Cells(13, 3) < 1500 Then
                If Cells(15, 3) >= 1450 And Cells(15, 3) < 1600 Then
                    ChargeEx.ListFillRange = "Tables!F4"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1500 And Cells(13, 3) < 1600 Then
                If Cells(15, 3) >= 1600 And Cells(15, 3) < 1650 Then
                    ChargeEx.ListFillRange = "Tables!F5"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1600 And Cells(13, 3) < 1650 Then
                If Cells(15, 3) >= 1600 And Cells(15, 3) < 1650 Then
                    ChargeEx.ListFillRange = "Tables!F6"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1600 And Cells(13, 3) < 1650 Then
                If Cells(15, 3) >= 1750 And Cells(15, 3) < 2450 Then
                    ChargeEx.ListFillRange = "Tables!F7"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1650 And Cells(13, 3) < 2000 Then
                If Cells(15, 3) >= 2450 And Cells(15, 3) < 4000 Then
                    ChargeEx.ListFillRange = "Tables!F8"
                    ChargeEx.ListIndex = 0
                End If
            End If
        ElseIf AccesEx = "2" Then
            If Cells(13, 3) < 1500 Then
                MsgBox "Forget it, Frank! Everybody knows, BS has to be at least 1500"
                ChargeEx.ListFillRange = "Tables!F15"
                ChargeEx.ListIndex = 0
                Exit Sub
            End If
            If Cells(15, 3) < 1650 Then
                MsgBox "Forget it, Frank! Everybody knows, TS has to be at least 1650"
                ChargeEx.ListFillRange = "Tables!F15"
                ChargeEx.ListIndex = 0
            End If
            If Cells(13, 3) >= 1500 And Cells(13, 3) < 1600 Then
                If Cells(15, 3) >= 1650 And Cells(15, 3) < 1850 Then
                    ChargeEx.ListFillRange = "Tables!F5"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1600 And Cells(13, 3) < 1800 Then
                If Cells(15, 3) >= 1650 And Cells(15, 3) < 1850 Then
                    ChargeEx.ListFillRange = "Tables!F6"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1600 And Cells(13, 3) < 1650 Then
                If Cells(15, 3) >= 1800 And Cells(15, 3) < 1950 Then
                    ChargeEx.ListFillRange = "Tables!F7"
                    ChargeEx.ListIndex = 0
                End If
            End If
            If Cells(13, 3) >= 1650 And Cells(13, 3) < 2500 Then
                If Cells(15, 3) >= 2500 And Cells(15, 3) < 2650 Then
                    ChargeEx.ListFillRange = "Tables!F8"
                    ChargeEx.ListIndex = 0
                End If
            End If
        End If
    End If
End Sub

Gruß
Nepumuk

Danke-danke, Nepumuk!
Funktioniert fast so, wie es vorgesehen ist.:)
Die einzige Schwierigkeit, die ich sehe ist, dass z.B.
bei der Bedingung "If AccesEx = "1" Then" werden dementsrechende Werte in ComboBox.
Wenn ich aber auf "AccesEx = 2" wechsele, sollten die Werten anderes sein, ober Message
rauskommen:
"MsgBox "Forget it, Frank! Everybody knows, BS has to be at least 1500"
"MsgBox "Forget it, Frank! Everybody knows, TS has to be at least 1650"
Oder werden jedes Mal bei Aenderung von Acces1 auf Acces2 und umgekehrt die Zeile 13,3 und 15,3 geleert.
Danke fuer deine grosszugige Hilfe. Naechste Woche muss am Donnerstag muss ich es presentieren, und ich frage mich, ob ich bis dorthin nicht Job wechseln soll...:)
Tanya

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If...Then mit > And <

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread