Hallo Andreas,
Welche zweite Schleife meinst du? Ich sehe nur eine Schleife, dafür
aber zwei Select Case Blocks für die Bedingungen. Je nach
Aufgabe, kann es durchaus Sinn ergeben bestimmte Bedingungen
in mehreren Select Case Blocks unterzubringen, um sich unnötige
Tipparbeit zu sparen. Insofern hast du bereits eine einfache Variante
gewählt. Mann kann das ganze aber natürlich auch noch anders
darstellen. Allerdings habe ich deine Rundungsbedingung noch
nicht so ganz verstanden. Im oberen Block hast 321,7 und im
unteren 321,4 womit die eben befüllte Zelle(i,8) durch den unteren
Block über Case Else wieder auf 0 gesetzt wird.
Hier mal 2 mögliche Alternativdarstellungen deines Codes:
For i = 1 To 9
Select Case Cells(i, 1)
Case 220.7: Cells(i, 8) = 210: Cells(i, 9) = 10.7
Case 371.4: Cells(i, 8) = 350: Cells(i, 9) = 21.4
Case 110.7: Cells(i, 8) = 100: Cells(i, 9) = 10.7
Case 170.7: Cells(i, 8) = 160: Cells(i, 9) = 10.7
Case 321.4: Cells(i, 8) = 300: Cells(i, 9) = 21.4
Case 75.7: Cells(i, 8) = 65: Cells(i, 9) = 10.7
Case Else
Cells(i, 8) = Cells(i, 1)
End Select
Next
oder
For i = 1 To 9
Select Case Cells(i, 1)
Case 75 To 221
Cells(i, 8) = Int(Cells(i, 1) - 10)
Cells(i, 9) = 10.7
Case 300 To 400
Cells(i, 8) = Int(Cells(i, 1) - 21)
Cells(i, 9) = 21.4
Case Else
Cells(i, 8) = Cells(i, 1)
End Select
Next
Gruß Mr. K.