Thema Datum  Von Nutzer Rating
Antwort
04.09.2015 11:59:04 Pascal
Solved
Blau Zellenfarbe von Range zu Range kopieren
 04.09.2015 20:35:24 BigBen
Solved
04.09.2015 20:39:22 BigBen
Solved
06.09.2015 10:33:18 Pascal
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.09.2015 20:35:24		 Views:
665		 Rating:
     
Antwort:
 Nein
Thema:
Zellenfarbe von Range zu Range kopieren

Hallo,

ich habe leider nur Office 2013 zur Verfügung.

Um die Befehle zum Ändern der Hintergrundfarbe einer Zelle herausfinden zu können, wurde zunächst das Festlegen einer Hintegrundfarbe aufgezeichnet:

Sub Makro1()
'
' Makro1 Makro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

Als nächstes wurden folgende Befehle geschrieben:

Sub CopyBackgroundColors()
    Dim rngSrc As Range
    Dim rngDest As Range
    
    Set rngSrc = ActiveWorkbook.Sheets(1).Range("E8:G9")
    Set rngDest = ActiveWorkbook.Sheets(1).Range("K14:M15")
    CopyBackgroundColorsRange rngSrc, rngDest
End Sub

Sub CopyBackgroundColorsRange(rngSrc As Range, rngDest As Range)
    Dim iCol As Integer
    Dim iRow As Integer
    Dim rngSrcCl As Range, rngDestCl As Range
    If rngSrc.Columns.Count = rngDest.Columns.Count And rngSrc.Rows.Count = rngDest.Rows.Count Then
        For iCol = 1 To rngSrc.Columns.Count
            For iRow = 1 To rngSrc.Rows.Count
                Set rngSrcCl = rngSrc.Cells(iRow, iCol)
                With rngDest.Cells(iRow, iCol).Interior
                    .ThemeColor = rngSrcCl.Interior.ThemeColor
                    .TintAndShade = rngSrcCl.Interior.TintAndShade
                    .PatternTintAndShade = rngSrcCl.Interior.PatternTintAndShade
                End With
            Next
        Next
    End If
End Sub
 
Falls in Offie 2007 andere Befehle für das Ändern der Hintergrundfarbe verwendet werden, müssen die hervorgehobenen Zeilen angepasst werden.
 
Der Befehl "CopyBackgroundColors" legt nur die zu kopierenden Bereiche fest und übergibt diese dem eigentlichen Befehl CopyBackgroundColorsRange.
 
VG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.09.2015 11:59:04 Pascal
Solved
Blau Zellenfarbe von Range zu Range kopieren
 04.09.2015 20:35:24 BigBen
Solved
04.09.2015 20:39:22 BigBen
Solved
06.09.2015 10:33:18 Pascal
Solved