gibt es ein kleines makro, das unmittelbar nach der eingabe von text in eine zelle sämtliche buchstaben dieses textes in GROSSBUCHSTABEN umwandelt?
danke
Dirk
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Target = UCase(Target)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("B3:F20")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
End Sub