Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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
Inhaltsverzeichnis

Zellfarbe und Fontfarbe in ander Zelle übernehmen

Zellfarbe und Fontfarbe in ander Zelle übernehmen
Matthias.G.
Nabend Excelaner/inenn,
hab an Euch mal 2 Fragen,
ich übenehme mit :
If rc.Value = Cells(6, lx).Value Then
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
rc.Font.ColorIndex = Cells(6, lx).Font.ColorIndex
bSet = True
die Zellfarbe und Schriftfarbe , funzt ja auch, aber geht das einfacher?
Zellformatübernahme - Allerdings darf sich die Zellgröße NICHT mitverändern!
Frage2:
If rc.Value = Cells(6, lx).Value Then
mit der Zeile prüfe ich ja nur im aktivem Blatt, wenn ich nun ein neues "Blatt X" erstelle um dort die Formatierungsart festlege,wie müsste ich das einbinden?
Thx Matze

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zellfarbe und Fontfarbe übernehmen
07.04.2010 00:45:45
Erich
Hi Matthias,
wesentlich vereinfachen lässt sich das wohl nicht - die beiden Farb-Eigenschaften müssen einzeln übertragen werden.
Ein wenig besser wirds mit "With". Das zeigt sich auch daran, dass sich Frage 2 leicht erledigt,
durch Ergänzung des Blattangabe hinter dem With:

'  With Cells(6, lx)
With Sheets("Blatt X").Cells(6, lx)
If rc.Value = .Value Then
rc.Interior.ColorIndex = .Interior.ColorIndex
rc.Font.ColorIndex = .Font.ColorIndex
bSet = True
End If
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige