Clever-Excel-Forum - VBA-Code auf mehrere/alle Tabellenblätter anwenden

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.

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

[attachment=17739]

Gruß
h1138123

Hallo,

nimm das Ereignis im VBA-Modul DieseArbeitsmappe:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 Dein Code

End Sub

Sieh Dir dazu auch die Select Case - Anweisung in der Hilfe an.

Gruß Uwe

Hallo Kuwer!

Variante für mehrere bestimmte (explizit anzugebende) Tabellenblätter:

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Select Case Sh.Name

    Case "Tabelle1", "Tabelle3"

        Application.EnableEvents = False

        If Not Intersect(Target, Range("A:Z")) Is Nothing Then

            Target.Value = UCase(Target.Value)

        End If

        Application.EnableEvents = True

End Select

End Sub

Variante für alle Tabellenblätter:

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, 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

So? Irgendwelche Einwände oder Verbesserungsvorschläge? Ansonsten vielen Dank! Thumbsupsmileyanim

Gruß
h1138123

Hallo,

der Anfang ist schon mal gut, aber da fehlen noch 3 wichtige Sachen:

1. muss Sh nicht zwingend das aktive Blatt sein. Also müssen Bereiche genau referenziert werden.
2. könnte Target auch mehrere Zellen, vielleicht auch noch nicht einmal zusammenhängend, enthalten.
3. könnte irgend ein Fehler zum Abbruch des Codes führen, so dass die Zeile, welche Ereignisse wieder einschaltet, gar nicht ausgeführt wird.

So wäre (hoffentlich) alles abgedeckt:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim rngAlleZellenImBereich As Range

    Dim rngTeilbereich As Range

    Dim rngEinzelneZelle As Range

    Select Case Sh.Name

        Case "Tabelle1", "Tabelle3"

            Set rngAlleZellenImBereich = Application.Intersect(Target, Sh.Range("A:Z"))

            If Not rngAlleZellenImBereich Is Nothing Then

                On Error Resume Next

                Application.EnableEvents = False

                For Each rngTeilbereich In rngAlleZellenImBereich.Areas

                    For Each rngEinzelneZelle In rngTeilbereich

                        rngEinzelneZelle.Value = UCase(rngEinzelneZelle.Value)

                    Next rngEinzelneZelle

                Next rngTeilbereich

                Application.EnableEvents = True

                On Error GoTo 0

            End If

    End Select

End Sub

Gruß Uwe

Moin!
Apropos Einwände und daher nur ergänzend:
Sh.Name bezieht sich auf den Tabellennamen, der jederzeit vom Anwender geändert werden kann und das Makro ins Leere laufen lässt.
Ich würde immer Sh.Codename wählen.
Den Codename (im Projekt-Explorer vor der Klammer) kann man nur in der VBE ändern.
Projekt mit Kennwort sichern, Projekt für die Anzeige sperren und Du bist auf der sicheren Seite.

Gruß Ralf

Hallo Kuwer und RPP63!

Vielen Dank für eure wertvolle Hilfe! Thumbsupsmileyanim

Gruß
h1138123