|
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
|