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"