im Bereich Zellenformat übernehmen
21.10.2008 18:00:00
Falk
ich habe 2 Tabellenblätter. Wenn ich in Tabelle 1 etwas schreibe wird es exakt in Tabelle 2 übertragen.
Damit eine Änderung besser sichtbar ist, formatiere ich in Tabelle 1 die jeweiligen Zelle mit anderer Schriftfarbe und Schriftart (nur Fett). Mit folgendem (Teil) VBA überträgt sich das auch auf Tabelle 2.
Private Sub Worksheet_activate()
Dim Schriftfarbe
Schriftfarbe = Worksheets("unten").Range("E6").Font.ColorIndex
Worksheets("oben").Range("E6").Font.ColorIndex = Schriftfarbe
Schriftfarbe = Worksheets("unten").Range("E7").Font.ColorIndex
Worksheets("oben").Range("E7").Font.ColorIndex = Schriftfarbe
Dim Schriftart
Schriftart = Worksheets("unten").Range("E6").Font.Bold
Worksheets("oben").Range("E6").Font.Bold = Schriftart
Schriftart = Worksheets("unten").Range("E7").Font.Bold
Worksheets("oben").Range("E7").Font.Bold = Schriftart
End Sub
Das ganze soll aber für jede Zelle im Bereich E6 bis X45 funktionieren. Damit ist das o.g. VBA nicht wirklich nutzbar - aber das einzige, was ich gerade so hinbekomme :)
Bis dahin Gruß Falk