Private Sub hellanalyse()
        Dim a As Integer
        Dim ac As Integer
        a = 0
 
        a = CInt(pj1h) - CInt(pj2h)
        If a > 0 Then
            MsgBox("pj1h ist" & a & "heller als 02")
            Select Case a
                Case a < 3
                    MsgBox("a:" & a)
            End Select
        End If
        If a < 0 Then
            a = -a
            MsgBox("pj2h ist" & a & "heller als 01")
            Select Case a
                Case a < 3
                    MsgBox("a:" & a)
            End Select
        End If
        If a = 0 Then
            MsgBox("pj1h ist gleich hell wie pj2h")
            Select Case a
                Case a < 1
                    MsgBox("a:" & a)
            End Select
        End If
 
    End Sub

DJ Booking + Veranstaltungstechnik: www.roadresidents.de