Code mir Select Case optimieren
03.06.2009 16:04:11
Edie
würde gerne den nachfolgenden Code optimieren. Aber wie?
Kann mir jemand dabei helfen?
Sub Test()
Dim Bereich As Range
Set Bereich = Range("A1")
Select Case Bereich
Case Is = 7
ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(1, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(2, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(3, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(4, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(5, 1).Value = ActiveCell.Value / 7
ActiveCell.Offset(6, 1).Value = ActiveCell.Value / 7
Case Is = 8
ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(1, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(2, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(3, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(4, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(5, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(6, 1).Value = ActiveCell.Value / 8
ActiveCell.Offset(7, 1).Value = ActiveCell.Value / 8
Case Is = 9
ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(1, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(2, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(3, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(4, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(5, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(6, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(7, 1).Value = ActiveCell.Value / 9
ActiveCell.Offset(8, 1).Value = ActiveCell.Value / 9
Case Is = 10
ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(1, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(2, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(3, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(4, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(5, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(6, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(7, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(8, 1).Value = ActiveCell.Value / 10
ActiveCell.Offset(9, 1).Value = ActiveCell.Value / 10
End Select
End Sub
Vorab vielen Dank.
Grüße