Guten Morgen,
habe hier ein kleines Problem.
Und zwar soll ich aus 2 verschiedenen Bereichen Formate kopieren und diese in einem neuen Bereich einfügen. Ich darf sie aber nicht überschreiben, sondern muss sie irgendwie zusammenfügen.
Habe im Bereich ("A1:AD22") Farben eingestellt, diese Farben werden automatisch generiert.
Im zweiten Bereich ("A26:AD47") haben gewisse Felder eine 1 oder eine 2 der rest ne 0. Bei 1 oder 2 sollen diese Felder ein besonderes Muster erhalten, das Problem habe ich gelöst.
---
Code:
---
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ActiveCell
For Each ActiveCell In Range("A26:AD47").Cells
With ActiveCell
If .Value = 1 Then
With ActiveCell.Interior
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
ElseIf .Value = 2 Then
With ActiveCell.Interior
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
End With
ElseIf .Value = 0 Then
With ActiveCell.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
---
(Vielleicht hat ja noch wer einen Verbesserungstip)
---
Diese Farben und Muster aus beiden Bereichen müssen nun zusammengefügt in einen neuen Bereich in einem anderen Arbeitsblatt eingefügt werden.
Grafik!("A1:AD22")
Vielen Dank im vorraus :)
MfG
Chris