Hilfe für Schleife

Hallo zusammen,
könnte mal Hilfe brauchen.
Habe mir folgenden Code erarbeitet, aber ich denke man könnte das mit einer Schleife vielleicht eleganter lösen. Kann da mal jemand Hilfestellung leisten.
Hier werden je nach Zustand des OptionButtons Werte in bestimmte Zellen geschrieben.
If OptionButton1.Value = True Then DruckLS.Cells(13, 13).Value = "X"
If OptionButton2.Value = True Then DruckLS.Cells(13, 14).Value = "X"
If OptionButton3.Value = True Then DruckLS.Cells(13, 15).Value = "X"
If OptionButton4.Value = True Then DruckLS.Cells(13, 16).Value = "X"
If OptionButton5.Value = True Then DruckLS.Cells(13, 17).Value = "X"
If OptionButton6.Value = True Then DruckLS.Cells(13, 18).Value = "X"
If OptionButton7.Value = True Then DruckLS.Cells(13, 19).Value = "X"
If OptionButton8.Value = True Then DruckLS.Cells(14, 13).Value = "X"
If OptionButton9.Value = True Then DruckLS.Cells(14, 14).Value = "X"
If OptionButton10.Value = True Then DruckLS.Cells(14, 15).Value = "X"
If OptionButton11.Value = True Then DruckLS.Cells(14, 16).Value = "X"
If OptionButton12.Value = True Then DruckLS.Cells(14, 17).Value = "X"
If OptionButton13.Value = True Then DruckLS.Cells(14, 18).Value = "X"
If OptionButton14.Value = True Then DruckLS.Cells(14, 19).Value = "X"
im 2. Teil gibt es noch ein Else, geht da auch eine Schleife?
If OptionButton78.Value = True Then DruckLS.Cells(15, 30).Value = "X" Else: DruckLS.Cells(15, 30).Value = "-24"
If OptionButton79.Value = True Then DruckLS.Cells(15, 31).Value = "X" Else: DruckLS.Cells(15, 31).Value = "-14"
If OptionButton80.Value = True Then DruckLS.Cells(15, 32).Value = "X" Else: DruckLS.Cells(15, 32).Value = "-7"
If OptionButton81.Value = True Then DruckLS.Cells(15, 33).Value = "X" Else: DruckLS.Cells(15, 33).Value = ""
If OptionButton82.Value = True Then DruckLS.Cells(15, 34).Value = "X" Else: DruckLS.Cells(15, 34).Value = "+7"
If OptionButton83.Value = True Then DruckLS.Cells(15, 35).Value = "X" Else: DruckLS.Cells(15, 35).Value = "+14"
If OptionButton84.Value = True Then DruckLS.Cells(15, 36).Value = "X" Else: DruckLS.Cells(15, 36).Value = "+24"
Gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim DruckLS, i, OP, f OP = "OptionButton" Set DruckLS = Sheets("Tabelle1") With DruckLS For i = 0 To 6 f = 7: If i Mod 6 = 0 Then f = 8 If .OLEObjects(OP & 1 + i).Object.Value = True Then .Cells(13, 13 + i).Value = "X" If .OLEObjects(OP & 8 + i).Object.Value = True Then .Cells(14, 13 + i).Value = "X" If .OLEObjects(OP & 78 + i).Object.Value = True Then .Cells(15, 30 + i).Value = "X" Else: .Cells(15, 30 + i).Value = f * (i - 3) End If Next i End With

Dim DruckLS, i, OP, f OP = "OptionButton" Set DruckLS = Sheets("Tabelle1") With DruckLS For i = 0 To 6 f = 7: If i Mod 6 = 0 Then f = 8 If .OLEObjects(OP & 1 + i).Object Then .Cells(13, 13 + i) = "X" If .OLEObjects(OP & 8 + i).Object Then .Cells(14, 13 + i) = "X" If .OLEObjects(OP & 78 + i).Object Then .Cells(15, 30 + i) = "X" Else: .Cells(15, 30 + i) = f * (i - 3) End If Next i End With

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe für Schleife

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread