3 EXCEL – VBA

Zelle

Schriftfont formatieren

Sub ZelleFormatierenMakro()
' Tastenkombination: Strg+Umschalt+R
'
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

Formatieren eines Zellenpaar als etikettiertes Ergebnis, z.B.

Saldo 100,00 €

Erste Zelle mit fetter Schrift, Zelle links davon mit Währungsformat, doppelter Unterstreichung

Sub ErgebnisFormatierenMakro()
' Tastenkombination: Strg+Umschalt+R
'
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.NumberFormat = "#,##0.00 $"
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleDouble
        .ColorIndex = xlAutomatic
    End With    
End Sub

Diagramm

Tortendiagramm für eine Datenreihe erstellen

Sub TorteMakro()
' Tastenkombination: Strg+a
'
    Charts.Add
    ActiveChart.ChartType = xlPie
    ActiveChart.SetSourceData Source:=Sheets("Kopie (1) von FileTypeStatistic"). _
        Range("A2:B33"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:= _
        "PieFileTypeStatistic"
End Sub