Microsoft Excel

Herbers Excel/VBA-Archiv

VBA - Farben auslesen und übertragen | Herbers Excel-Forum


Betrifft: VBA - Farben auslesen und übertragen von: WalterK
Geschrieben am: 03.02.2012 11:38:37

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

  

Betrifft: AW: VBA - Farben auslesen und übertragen von: Rudi Maintaire
Geschrieben am: 03.02.2012 12:05:43

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


  

Betrifft: Danke Rudi, Perfekt! Servus, Walter von: WalterK
Geschrieben am: 03.02.2012 13:13:52




Beiträge aus den Excel-Beispielen zum Thema "VBA - Farben auslesen und übertragen"