Ich möchte jede Zeile und Spalte von 6 bis 50 durchlaufen. Dabei sind die meisten Zellen leer. Wenn eine Zelle gefüllt ist mit einem Buchstaben, so möchte ich die Farbindex der Zelle mit der Funktion GetColor in einer anderen Spalte anzeigen lassen zum Beispiel in Spalte 1. Es wird mir kein Fehler angezeigt aber es passiert auch nichts.

Ich hoffe, dass ist halbwegs verständlich. Ich verzweifel bei meinem Praktikum an Excel.

Sub LeereZelle()

With ThisWorkbook.Worksheets("Roadmap").Activate

Dim i As Integer
Dim x As Integer

For i = 6 To 50
For x = 6 To 50

    If Not Cells(i, x).Value = "" Then

    Cells(i, x).GetColor = Cells(i, 1)
    
    

End If

Next
Next
End With
End Sub