Code verbessern?
29.07.2004 12:28:42
Basti
Sub farben()
Dim yx As Integer
Dim xy As Integer
For yx = 21 To 256
For xy = 27 To 200
If Cells(yx, xy).Interior.Color = RGB(204, 255, 255) Then
Cells(yx, xy) = "text"
End If
Next xy
Next yx
End Sub
gibts da ne schneller möglichkeit?