Wie mache ich hieraus eine Schleife???
15.08.2003 13:10:37
DaD
ich muss für 120 Zeilen etwas überprüfen. Hier die Prüfung für die ersten 3 Zeilen. Ich müsste dies ja 120 mal schreiben, kann ich nicht eine Schleiße o.ä. daraus erstellen?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("R8").value = 1 Then
Range("H8").value = Range("R1").value
Range("I8").value = Range("R1").value
End If
If Range("R10").value = 1 Then
Range("H10").value = Range("R1").value
Range("I10").value = Range("R1").value
End If
If Range("R12").value = 1 Then
Range("H12").value = Range("R1").value
Range("I12").value = Range("R1").value
End If
End Sub
Anzeige