Zellenformatierung

  • Zelle A1:     Fett
  • Zelle A2:     Kursiv
  • Zelle A3:     Einfach Unterstrichen
  • Zelle A4:     Doppelt Unterstrichen
  • Zelle A5:     Schriftart
  • Zelle A6:     Schriftgröße
  • Zelle A7:     Füllfarbe
  • Zelle A8:     Textfarbe
  • Zelle A9:     Ausrichtung
  • Zelle A10:   Zelle verbinden
  • Zelle A11:    Horizontal zentrieren
  • Zelle A12:    Vertikal zentrieren

Zellenformatierung

Schrift:

Nachfolgender VBA Code zeigt die Zellenformatierung im Tabellenblatt Schrifteneinstellung. Mit der Range-Eigenschaft wird eine gewählte Zelle angeprochen, die dann mit einer bestimmten Eigenschaft z.B. Font.Bold gesetzt wird.

′Schrift in Zelle A1 auf Fett setzen Worksheets(“Schrifteinstellung“).Select.Range(‘‘A1’’).Font.Bold=True  

weitere Eigenschaften setzen siehe nachfolgender VBA Code..

Sub SchriftEinstell() 

Worksheets("Schrifteinstellung").Select 'Activate oder Select 
'Fett
Range("A1").Font.Bold = True 

'Kursiv
Range("A2").Font.Italic = True 

'einfach Untestrichen 
Range("A3").Font.Underline = True 

'doppelt Untestrichen 
Range("A4").Font.Underline = xlUnderlineStyleDouble 

'Schriftart 
Range("A5").Font.Name = "Arial Black" 

'Schriftgröße 
Range("A6").Font.Size = 15 

'Füllfarbe der Zelle 
Range("A7").Interior.ColorIndex = 6 

'Textfarbe 
Range("A8").Font.ColorIndex = 3 

'Ausrichtung
Range("A9").Orientation = 45
 
'Zelle verbinden 
Range("A10:B10").MergeCells = True 

'horizontal zentrieren 
Range("A11").HorizontalAlignment = xlCenter 

'vertikal zentrieren 
Range("A12").VerticalAlignment = xlCenter 

End Sub
Sub SchriftEinstell() 

Worksheets("Schrifteinstellung").Select 'Activate oder Select 

'Fett
Range("A1").Font.Bold = True 

'Kursiv
Range("A2").Font.Italic = True 

'einfach Untestrichen 
Range("A3").Font.Underline = True 

'doppelt Untestrichen 
Range("A4").Font.Underline = xlUnderlineStyleDouble 

'Schriftart 
Range("A5").Font.Name = "Arial Black" 

'Schriftgröße 
Range("A6").Font.Size = 15 

'Füllfarbe der Zelle 
Range("A7").Interior.ColorIndex = 6 

'Textfarbe 
Range("A8").Font.ColorIndex = 3 

'Ausrichtung
Range("A9").Orientation = 45
 
'Zelle verbinden 
Range("A10:B10").MergeCells = True 

'horizontal zentrieren 
Range("A11").HorizontalAlignment = xlCenter 

'vertikal zentrieren 
Range("A12").VerticalAlignment = xlCenter 

End Sub

Microsoft VBA Excel Dokumentation:


Objektmodell (VBA-Referenz für Excel)

Worksheet-Objekt (Excel)

Worksheet.Range-Eigenschaft (Excel)

Font-Objekt (Excel)