Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Farben auslesen und übertragen

VBA - Farben auslesen und übertragen
WalterK
Hallo,
ich suche einen Code, der die manuell erstellten Hintergrundfarben von einer Spalte in mehrere andere Spalten überträgt. Die betreffenden Spalten richten sich nach den Überschriften in Zeile 2.
Zum besseren Erläuterung habe ich eine Beispieltabelle hochgeladen.
Besten Dank für die Hilfe und Servus, Walter
https://www.herber.de/bbs/user/78714.xls

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

Betreff
Benutzer
Anzeige
AW: VBA - Farben auslesen und übertragen
03.02.2012 12:05:43
Rudi
Hallo,
Sub Farben()
Dim lngGesamt As Long, lngBeginn As Long, lngEnde As Long
Dim lngrow As Long
Application.ScreenUpdating = False
lngGesamt = Application.Match("Gesamt", Rows(2), 0)
lngBeginn = Application.Match("Beginn", Rows(2), 0)
lngEnde = Application.Match("Ende", Rows(2), 0)
For lngrow = 3 To Cells(Rows.Count, lngGesamt).End(xlUp).Row
Range(Cells(lngrow, lngBeginn), Cells(lngrow, lngEnde)).Interior.ColorIndex _
= Cells(lngrow, lngGesamt).Interior.ColorIndex
Next
End Sub

Gruß
Rudi
Danke Rudi, Perfekt! Servus, Walter
03.02.2012 13:13:52
WalterK
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige