Excel Großbuchstaben
01.04.2021 09:02:43
Stefan
ich kenne mich leider überhaupt nicht mit Excel VBA aus.
Ich habe folgenden Code auf der Seite gefunden um Eingaben immer in Großbuchstaben zu wandeln.
Funktioniert einwandfrei....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrExit
If Not Intersect(Range("C4:AG14"), Target) Is Nothing Then
If Target.Count = 1 Then
Application.EnableEvents = False
Target = UCase(Target)
End If
End If
ErrExit:
Application.EnableEvents = True
End Sub
Wenn ich neue Zeile einfüge soll die Range auch dementsprechend ansteigen.
Gleiches wenn ich wieder Zeilen entferne, dann sollte die Range auch wieder verringert werden.
Wie kann ich dies realisieren?
Vielen Dank im Voraus
Gruß
Stefan
Anzeige