Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formate kopieren

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formate kopieren
27.03.2005 11:00:58
Martin
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
AW: Formate kopieren
30.03.2005 10:44:38
chris
Hallo Martin,
ich danke dir vielmals für deine Lösung, funktioniert einwandfrei :)))
MfG
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige