AW: Schrift in einer Tabelle ersetzen
10.04.2008 07:53:00
Matthias
Hallo
obwohl ich nun auch gerade aktualisiert habe, ich kann nicht so schnell tippen ;o)
hier mein ähnliches Beispiel (hier sollte der Bereich(Usedrange) aber nicht zu groß sein,
sonst wartest Du unter Umständen sehr lange.
Man sollte noch überlegen, ob leere Zellen tatsächlich auch so formatiert werden sollen.
Tabelle anpassen!
Code in ein Modul
Option Explicit
Sub Schrift()
Dim Zelle As Variant
Application.ScreenUpdating = False
For Each Zelle In Tabelle1.UsedRange
With Zelle.Font
If .Name = "Courier New" And .Size = 10 Then
.Name = "Arial"
.Size = 11
End If
End With
Next
Application.ScreenUpdating = True
End Sub
hier wenn Du nur nichtleere Zellen umformatieren willst:
Option Explicit
Sub Schrift()
Dim Zelle As Variant
Application.ScreenUpdating = False
For Each Zelle In Tabelle1.UsedRange
With Zelle.Font
If Not IsEmpty(Zelle) Then
If .Name = "Courier New" And .Size = 10 Then
.Name = "Arial"
.Size = 11
End If
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Besser als UsedRange ist da evtl. auch ein vorher genau definierter Bereich.
Wichtig finde ich, das Application.ScreenUpdating mit einzusetzen
Um die anderen Formatierungen brauchst Du Dich nicht zu kümmern, da ändert Excel nichts.
Du mußt also nichts erst abfragen.
Es gibt aber sicher auch elegantere Lösungen. ;o)
Gruß Matthias