Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

im Bereich Zellenformat übernehmen | Herbers Excel-Forum


Betrifft: im Bereich Zellenformat übernehmen von: Falk
Geschrieben am: 21.10.2008 18:00:21

Hallo ihr Könner,

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

  

Betrifft: AW: im Bereich Zellenformat übernehmen von: David
Geschrieben am: 22.10.2008 09:31:54

Hallo Falk,

folgender Code:


Worksheets("unten").Range("E6:X45").Copy
Worksheets("oben").Range("E6:X45").PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False



sollte da eigentlich reichen.

Gruß
David


  

Betrifft: AW: im Bereich Zellenformat übernehmen von: Falk
Geschrieben am: 22.10.2008 15:56:21

Hallo David,


Danke klappt wunderbar.

Gruß Falk


Beiträge aus den Excel-Beispielen zum Thema "im Bereich Zellenformat übernehmen"