Formate kopieren

Bild

Betrifft: Formate kopieren
von: chris
Geschrieben am: 23.03.2005 09:22:24
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

Bild

Betrifft: AW: Formate kopieren
von: Martin Beck
Geschrieben am: 27.03.2005 11:00:58
Hallo Chris,
versuch's mal so:

Sub formate_uebernehmen()
Set Ziel = Worksheets("Grafik").Range("A1:AD22")
Set QuelleFarbe = Range("A1:AD22")
Set QuelleMuster = Range("A26:AD47")
c = Range("A26:AD47").Cells.Count
For i = 1 To c
    Ziel(i).Interior.Pattern = QuelleMuster(i).Interior.Pattern
    Ziel(i).Interior.ColorIndex = QuelleFarbe(i).Interior.ColorIndex
Next i
End Sub

Gruß
Martin Beck
Bild

Betrifft: AW: Formate kopieren
von: chris
Geschrieben am: 30.03.2005 10:44:38
Hallo Martin,
ich danke dir vielmals für deine Lösung, funktioniert einwandfrei :)))
MfG
Chris
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formate kopieren"