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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen