besteht die möglichkeit, wenn Spalte A (Zellen) rot eingefärt sind, einen Text in Spalte C (Zellen)übertragen werden.
z. B.
wenn zelle A1 rot ist, soll in C1 "Test" eingetragen werden.
Gruß
Ahmadian
wenn Spalte A (Zellen) rot eingefärt sind
woher kommt die Farbe?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub Makro1()
Range("A2").Select ' beginne in A2
Do While ActiveCell "" 'so lange Zelle nicht leer ist ...
If ActiveCell.Interior.ColorIndex = 3 Then ' wenn Zellfarbe rot ist
ActiveCell.Offset(0, 2) = "test" ' 2 Spalten weiter test reinschreiben
End If
ActiveCell.Offset(1, 0).Select ' gehe eine Zelle tiefer
Loop
End Sub
Gruß
marcl