PDA

Vollständige Version anzeigen : Kopiere Bedingte Formatierung


aykut
27.12.2017, 22:39
Hallo Zusammen,

ich habe 2 Tabellen:
Tabelle 1 hat in der B Spalte eine Bedingte Formatierung.
Tabelle 2 wird zur Laufzeit generiert.
Tabelle 2 Spalte G soll die Bedingte Formatierung erhalten von Tabelle 1 Spalte B.

Folgender Ansatz ist fast richtig. Leider werden auch die Zellen kopiert.
Wie kann ich nur die "Bedingte Formatierung" kopieren, aber alles andere belassen?



Application.CutCopyMode = False
Worksheets("Tabelle1").Range("$B:$B").Copy
Worksheets("Tabelle2").Range("$G:$G").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = True


Danke Aykut

Hajo_Zi
28.12.2017, 05:00
falsch gesehen, es werden nur Formate kopiert, was ist falsch.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Hajo_Zi
28.12.2017, 06:26
vielleicht ist es auch nur falsch beschrieben. Es soll nur die bedingte Formatierung übertragen werden.
Bedingte Formatierung, "wird angewendet auf" ändern "=$B:$B;G:G"

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

aykut
28.12.2017, 06:34
@Hajo_Zi
Genau wie Du es richtig interpretiert hast, meinte ich es auch.

Wie kann ich nur die "Bedingte Formatierung" übertragen?

Aktuell werden auch die sonstige Formate Zellumrandung, Fett, Farben ... übertragen.

Hajo_Zi
28.12.2017, 06:36
ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

aykut
28.12.2017, 06:58
@Hajo_Zi
>>ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.

Ich verstehe nicht was Du mit dem folgenden Satz meinst
>>"Bedingte Formatierung, "wird angewendet auf" ändern "=$B:$B;G:G""

Ich als "Laie" interepretiere es als:
Worksheets("Tabelle2").Range("$B:$B;G:G").PasteSpecial Paste:=xlPasteFormats

Das wiederum führt zur Fehler.

Kopiere Doch bitte einfach die eine Codezeile von mir und ändere dort was Du meinst.

Nicht jeder ist so gut wie Du ;)

Beverly
28.12.2017, 07:56
Hi,

meinst du damit, dass du noch andere Formatierungen in Spalte B hast, die nicht kopiert werden sollen? Dann musst du diese einzeln in der kopierten Spalte zurücksetzen.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

aykut
28.12.2017, 08:24
@Beverly
Ganz genau.
In der Spalte, dessen Bedingte Formatierung ich übertragen möchte,
gibt es weitere Zellformatierungen, die ich nicht mitübertragen möchte.
(Siehe Anhang)

>>Dann musst du diese einzeln in der kopierten Spalte zurücksetzen.
Warum kann ich nicht nur die Bedingte Formatierung kopieren?

Wenn das technisch nicht geht, muss ich herausfinden,
wie ich über VBA eine Bedingte Formatierung selber erstelle.

Vielen Dank, Aykut

lupo1
28.12.2017, 08:26
Leider werden die Aktionen der bedF nicht aufgezeichnet:

Sub WieGehtDasMitBedF()
Aykut = "=REST(ZEILE();2)=0"

Range("B:B").FormatConditions.Add 2, , Aykut
'Hier bitte noch Elemente gemaess Excel-Hilfe zuweisen

Range("B:B,G:G").FormatConditions(1).Modify 2, , Aykut
'Die erste bedF wird ausgeweitet
End Sub

Ohne Gewähr für das ordentliche Funktionieren! Die 2 steht für Formelausdruck (xlExpression).

Beverly
28.12.2017, 08:58
Hi,



Warum kann ich nicht nur die Bedingte Formatierung kopieren?


Weil Excel das so nicht vorgesehen hat.



Wenn das technisch nicht geht, muss ich herausfinden,
wie ich über VBA eine Bedingte Formatierung selber erstelle.


Wozu? Zeichne mit dem Makrorekorder auf, wie du die Zellrahmen löschst.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

aykut
28.12.2017, 17:54
@lupo1:
>> Leider werden die Aktionen der bedF nicht aufgezeichnet:
Vielen Dank für den Hinweis,
So auch für den Bsp. Code. Ich habe das Problem nun gelöst! ;)