Do Until .....
08.02.2004 21:07:02
Ernst Dunkel
Ich hätte zwei Fragen:
1. Der unten stehende Code funktioniert. Wie kann er vereinfacht werden?
2. Wie müsste der Code erweitert werden, dass sich die Schleife nur 5 mal wieder holt?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüssen
Ernst Dunkel
Privat
Sub worksheet_change(ByVal target as Excel. Range)
if target.column= 8 and target.row >10 and target.row <20 Then
End if
Do Until Range ("V10")= range("U10")
Range ("V10")=Range("U10")
Loop
Do Until Range ("V11")= range("U11")
Range ("V11")=Range("U11")
Loop
Do Until Range ("V12")= range("U12")
Range ("V12")=Range("U12")
Loop
usw. .........
End Sub