select case Abfrage verkuerzen ?

Forumthread: select case Abfrage verkuerzen ?

13.11.2004 15:28:39

marc

hallo zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: select case Abfrage verkuerzen ?

13.11.2004 15:40:32

Josef
AW: select case Abfrage verkuerzen ?

marc

AW: select case Abfrage verkuerzen ?

13.11.2004 15:40:32

Josef

Hallo Marc!
Das geht doch auch so.


Private Sub cmdMOO10_Click()
Me.txtSumme1.Value = Sheets(txtDatum.Value - 41).Range("H4").Value
End Sub

Gruß Sepp

AW: select case Abfrage verkuerzen ?

marc

thanks Sepp :o)

Forumthread: select case Abfrage verkuerzen ?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread