Code mir Select Case optimieren

Forumthread: Code mir Select Case optimieren

03.06.2009 16:04:11

Edie

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code mir Select Case optimieren

03.06.2009 16:14:35

Andi
Select Case optimieren

03.06.2009 16:16:27

NoNet
AW: Select Case optimieren

03.06.2009 16:22:26

Edie

AW: Code mir Select Case optimieren

03.06.2009 16:14:35

Andi

Hi,
ungetestet, müsste aber das gleiche tun:


Sub test2()
Dim a As Long
Dim b As Integer
a = Range("A1").Value
If a >= 7 And a

Schönen Gruß,
Andi

Select Case optimieren

03.06.2009 16:16:27

NoNet

Hallo Edie,
meinst Du das etwa so :

VBA-Code:

Sub TestOptimiert()
Dim Bereich As Range
Set Bereich = Range("A1")
Select Case Bereich.Value
Case 7 To 10

        ActiveCell.Offset(, 1).Resize(Bereich.Value) = ActiveCell.Value / Bereich.Value
End Select
End Sub

Gruß, NoNet

					 AW: Select Case optimieren
				
					Edie
				
Hallo Andi,

Hallo NoNet,

einfach toll, beides funktioniert, vielen herzlichen Dank.

Grüße

AW: Select Case optimieren

03.06.2009 16:22:26

Edie

Hallo Andi,
Hallo NoNet,
einfach toll, beides funktioniert, vielen herzlichen Dank.
Grüße

Beliebteste Forumthreads (12 Monate)

Forumthread: Code mir Select Case optimieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread