1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Sub FürJedeZelleInBereich()
Dim c As Excel.Range
For Each c In Range(Cells(6, 50), Cells(50, 50))
Debug.Print c.Row
Debug.Print c.Column
Cells(c.Row, c.Column).Value = "Wertzuweisung"
Cells(c.Row + 10, c.Column + 10).Value = "Wertzuweisung"
c.Offset(RowOffset:=10, columnoffset:=10).Value = "Wertzuweisung"
Next
End Sub
|
Was GetColor bewirken soll, musst Du uns noch zeigen.
Wertzuweisungen geschehen von Rechts nach Links.
Beispiel:
1 | DieseZelleBekommt = "EinenNeuenStringWert"
|
Willst Du einen Zellwert mit nichts vergleichen, so wie in Deinem Code:
1 | If Not Cells(i, x).Value = ""
|
Dann vergleiche nihct mit = "" sonder ist = Konstante.
Klingt komisch, is aber performanter:
1 | If Cells(i, x).Value = vbNullString Then
|
NImm mal ne Millionen Datensätze und miss die Zeit.
(bytheway: Und wenn Du den NOT-Operator weglässt, isses noch n ticken schneller)
Farben:
Bei den Eigenschaften Color und ColorIndex gibt es unterschiede.
Ich finde Klaus-Dieters Seite gut gelungen und empfehle Dir, Dich da mal einzulesen.
Farben (excelwelt.eu)
|