Zelle formatieren...

[Kuwer]

Ich würde es aber an einem kleinen Bereich (5-6 Zellen) probieren. Bei mir dauert die Umwandlung bei 2500 Zellen etwas über 20 Sekunden.

So geht es bedeutend schneller:

Sub GROSSBUCHSTABEN()
  Dim rngZelle As Range
 
  For Each rngZelle In Range("A:C").Cells
    If Len(rngZelle.Value) Then
      If Not IsNumeric(rngZelle.Value) And Not IsDate(rngZelle.Value) Then
        rngZelle.Value = UCase(rngZelle.Value)
      End If
    End If
  Next rngZelle
End Sub

Gruß Uwe