Schleife über Zellen und je Zelle Eintrag in anderer Zelle
20.01.2024 15:30:50
Dieter(Drummer)
ich suche ein Schleifenlösung wie folgt:
Jede Zelle, B5-B658, hat ein Zellfarbe!
1) Zelle B5 markieren und Zellfarbeneintrag 4 Spalten weiter, gleiche Zeile. Eintrag per Code:
ActiveCell.Offset(, 4) = ActiveCell.DisplayFormat.Interior.Color
2) Zelle B6 markieren und Zellfarbeneintrag 4 Spalten weiter, gleiche Zeile. Eintrag per Code:
ActiveCell.Offset(, 4) = ActiveCell.DisplayFormat.Interior.Color
usw. bis B658
Bekomme selbst die Schleifenprogrammierung nicht hin.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Mein jetziger Code:
Sub Schleife()
Range("B5").Select
ActiveCell.Offset(, 4) = ActiveCell.DisplayFormat.Interior.Color
Range("B6").Select
ActiveCell.Offset(, 4) = ActiveCell.DisplayFormat.Interior.Color
'usw. Für Zellbereich B5:658
End Sub
Anzeige