schleife
18.04.2008 19:40:00
ralf
habe eine frage habe folgenden code geschrieben funktioniert auch habe nun eine frage
kann man diesen code auch in eine schleife packen
Private Sub CommandButton3_Click()
Select Case UFAuto.ComboBox4.Value
Case 0
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
Case 1
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
Case 2
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
Case 3
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
Case 4
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
Case 5
ActiveSheet.Range("q4").Value = UFAuto.ComboBox4.Text
UFAuto.Label4.Caption = UFAuto.ComboBox4.Text
End Select
End Sub
gruß
ralf