Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code mir Select Case optimieren

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
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige