Mehabfragen mit der CASE anweisung !

[HackTack]

Hallo Leute !

Eine Stundenabrechnung soll bearbeitet werden, ich lade die Daten mit VB und habe die Aufgabe zu prüfen welche Person in welcher LohnartNr und / oder Bereichsnr gearbeitet hat. Wie kann ich eine Prüfung mit verschiedenen Daten vollziehen ?

Ist es möglich mit der Case anweisung.

So geht es irgendwie nicht ?!

Select Case recset1![A_Nr]

Select Case recset1![LohnartNR]

Case Is = 463, 162, 262, 362, 462, 562, 662, 762, 862, 962

MSHFlexGrid1.Col = 2

If MSHFlexGrid1.Text <> "" Then

MSHFlexGrid1.Text = CDbl(MSHFlexGrid1.Text) + CDbl(recset1![sTD])

Else

MSHFlexGrid1.Text = CDbl(recset1![sTD])

End If

Case Is = 320, 322, 323, 324, 325, 326, 420, 422, 423, 424, 425, 426, 620, 622, 623, 624, 625, 626, 720, 722, 723, 724, 725, 726, 820, 822, 823, 824, 825, 826

MSHFlexGrid1.Col = 3

If MSHFlexGrid1.Text <> "" Then

MSHFlexGrid1.Text = CDbl(MSHFlexGrid1.Text) + CDbl(recset1![sTD])

Else

MSHFlexGrid1.Text = CDbl(recset1![sTD])

End If

[Hironimo]

Hi,

so funktioniert Select-Case nicht. Hier ist mal ein einfaches Beispiel für Select-Case.

x = inputbox("Bitte Zahl eingeben")

select case x

case=1

msgbox "Die Zahl ist 1"

case=2

msgbox "Die Zahl ist 2"

case else

msgbox "Die Zahl ist größer 2"

end select

Beschreibe dein Problem doch mal etwas genauer. Wenn ich das was du geschrieben hast, richtig interpretiere geht es ohne case einfacher.

hiro