Hallo!
Wie kann ich den fürs Tabellenblatt "Tabelle1" hinterlegten (beispielhaften) VBA-Code auch auf weitere Tabellenblätter (zum Beispiel "Tabelle2" und "Tabelle3") anwenden, ohne ihn dort jeweils ebenfalls hinterlegen zu müssen? Optimal wären eine Variante für mehrere bestimmte (explizit anzugebende) und eine weitere für alle Tabellenblätter. Hintergrund ist in erster Linie die Wartbarkeit, Änderungen könnten so zentral an einer Stelle vorgenommen werden.
Mappe1.xlsm (Größe: 14,01 KB / Downloads: 1)
Gruß
h1138123
Wie kann ich den fürs Tabellenblatt "Tabelle1" hinterlegten (beispielhaften) VBA-Code auch auf weitere Tabellenblätter (zum Beispiel "Tabelle2" und "Tabelle3") anwenden, ohne ihn dort jeweils ebenfalls hinterlegen zu müssen? Optimal wären eine Variante für mehrere bestimmte (explizit anzugebende) und eine weitere für alle Tabellenblätter. Hintergrund ist in erster Linie die Wartbarkeit, Änderungen könnten so zentral an einer Stelle vorgenommen werden.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
Application.EnableEvents = True
End Sub
Mappe1.xlsm (Größe: 14,01 KB / Downloads: 1)
Gruß
h1138123