select case Abfrage verkuerzen ?
13.11.2004 14:28:39
marc
ich habe mir 'ne select case Abfrage geschrieben.
Der Code funktioniert, die Werte werden in den txtBoxen angezeigt.
Nun das ganze ist sehr, sehr lang geworden.
Die Frage lautet: kann ich das ganze anders bzw. kuerzer gestallten ?
marc.
Private Sub cmdMOO10_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme1.Value = Range("H4").Value
Case "43"
Sheets(2).Select
Me.txtSumme1.Value = Range("H4").Value
Case "44"
Sheets(3).Select
Me.txtSumme1.Value = Range("H4").Value
Case "45"
Sheets(4).Select
Me.txtSumme1.Value = Range("H4").Value
Case "46"
Sheets(5).Select
Me.txtSumme1.Value = Range("H4").Value
Case "47"
Sheets(6).Select
Me.txtSumme1.Value = Range("H4").Value
Case "48"
Sheets(7).Select
Me.txtSumme1.Value = Range("H4").Value
Case "49"
Sheets(8).Select
Me.txtSumme1.Value = Range("H4").Value
Case "50"
Sheets(9).Select
Me.txtSumme1.Value = Range("H4").Value
Case "51"
Sheets(10).Select
Me.txtSumme1.Value = Range("H4").Value
End Select
End Sub
Private Sub cmdMO020_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme2.Value = Range("H5").Value
Case "43"
Sheets(2).Select
Me.txtSumme2.Value = Range("H5").Value
Case "44"
Sheets(3).Select
Me.txtSumme2.Value = Range("H5").Value
Case "45"
Sheets(4).Select
Me.txtSumme2.Value = Range("H5").Value
Case "46"
Sheets(5).Select
Me.txtSumme2.Value = Range("H5").Value
Case "47"
Sheets(6).Select
Me.txtSumme2.Value = Range("H5").Value
Case "48"
Sheets(7).Select
Me.txtSumme2.Value = Range("H5").Value
Case "49"
Sheets(8).Select
Me.txtSumme2.Value = Range("H5").Value
Case "50"
Sheets(9).Select
Me.txtSumme2.Value = Range("H5").Value
Case "51"
Sheets(10).Select
Me.txtSumme2.Value = Range("H5").Value
End Select
End Sub
Private Sub cmdMOO30_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "43"
Sheets(2).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "44"
Sheets(3).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "45"
Sheets(4).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "46"
Sheets(5).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "47"
Sheets(6).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "48"
Sheets(7).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "49"
Sheets(8).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "50"
Sheets(9).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "51"
Sheets(10).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
End Select
End Sub
Private Sub cmdMOO40_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme4.Value = Range("H3").Value
Case "43"
Sheets(2).Select
Me.txtSumme4.Value = Range("H3").Value
Case "44"
Sheets(3).Select
Me.txtSumme4.Value = Range("H3").Value
Case "45"
Sheets(4).Select
Me.txtSumme4.Value = Range("H3").Value
Case "46"
Sheets(5).Select
Me.txtSumme4.Value = Range("H3").Value
Case "47"
Sheets(6).Select
Me.txtSumme4.Value = Range("H3").Value
Case "48"
Sheets(7).Select
Me.txtSumme4.Value = Range("H3").Value
Case "49"
Sheets(8).Select
Me.txtSumme4.Value = Range("H3").Value
Case "50"
Sheets(9).Select
Me.txtSumme4.Value = Range("H3").Value
Case "51"
Sheets(10).Select
Me.txtSumme4.Value = Range("H3").Value
End Select
End Sub
Private Sub cmdMOO50_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme5.Value = Range("H6").Value
Case "43"
Sheets(2).Select
Me.txtSumme5.Value = Range("H6").Value
Case "44"
Sheets(3).Select
Me.txtSumme5.Value = Range("H6").Value
Case "45"
Sheets(4).Select
Me.txtSumme5.Value = Range("H6").Value
Case "46"
Sheets(5).Select
Me.txtSumme5.Value = Range("H6").Value
Case "47"
Sheets(6).Select
Me.txtSumme5.Value = Range("H6").Value
Case "48"
Sheets(7).Select
Me.txtSumme5.Value = Range("H6").Value
Case "49"
Sheets(8).Select
Me.txtSumme5.Value = Range("H6").Value
Case "50"
Sheets(9).Select
Me.txtSumme5.Value = Range("H6").Value
Case "51"
Sheets(10).Select
Me.txtSumme5.Value = Range("H6").Value
End Select
End Sub