Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife über Zellen und je Zelle Eintrag in anderer Zelle

Forumthread: Schleife über Zellen und je Zelle Eintrag in anderer Zelle

Schleife über Zellen und je Zelle Eintrag in anderer Zelle
20.01.2024 15:30:50
Dieter(Drummer)
Guten Tag an alle ...

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife über Zellen und je Zelle Eintrag in anderer Zelle
20.01.2024 15:49:34
Beverly
Hi Dieter,

Sub Farbe()

Dim lngZeile As Long
For lngZeile = 5 To 658
Cells(lngZeile, 6) = Cells(lngZeile, 2).DisplayFormat.Interior.Color
Next lngZeile
End Sub


Dein Code soll die festgelegte Farbe der erfüllten Bedingung einer bedingten Formatierung aus lesen - ist das richtig? Wenn es keine bedingte Formatierung ist, dann anstelle Cells(lngZeile, 2).DisplayFormat.Interior.Color nur dieses: Cells(lngZeile, 2).Interior.Color

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Schleife über Zellen und je Zelle Eintrag in anderer Zelle
20.01.2024 16:01:17
Dieter(Drummer)
Hallo Karin,

Danke dir und das ist eine perfekte Lösung. Habe es so genommen, da es keine bedingte Formatierung ist und klappt prima.

Gruß und einen schönen Tag,
Dieter(Drummer)

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige