Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle formatieren

Betrifft: Tabelle formatieren von: Marcus
Geschrieben am: 26.09.2014 09:58:26

Hallo Leute,
ich möchte folgendes realisieren:
Ich möchte mit VBA alle Zellen mit einer neuen Schriftart und neuer Schriftgröße formatieren und in den Zellen die mit einem Zeichen "." beginnen eine andere Schriftart und neuer Schriftgröße formatieren.
Das ganze gibt es auch bei bedingter Formatierung doch leider kann ich dort den Text nur Fett machen!

Ich danke schon mal im voraus!

LG Marc

  

Betrifft: AW: Tabelle formatieren von: Hajo_Zi
Geschrieben am: 26.09.2014 10:36:09

Hallo Marc,

Option Explicit

Sub Schriftart()
    Dim RaZelle As Range
    ActiveSheet.UsedRange.Font.Name = "Arial Black"
    ActiveSheet.UsedRange.Font.Size = 24
    For Each RaZelle In ActiveSheet.UsedRange
        If Left(RaZelle, 1) = "." Then
            RaZelle.Font.Name = "Arial"
            RaZelle.Font.Size = 12
        End If
    Next
End Sub
GrußformelHomepage


  

Betrifft: AW: Tabelle formatieren von: Marcus
Geschrieben am: 26.09.2014 10:57:37

Danke Hajo funktioniert SUPER!!!

Grüße und schönes WE
Marc


 

Beiträge aus den Excel-Beispielen zum Thema "Tabelle formatieren"