Ein Code für mehrere Blätter

Trankolz

Grünschnabel
Hi, ich habe einen VBA Code aber 12 Blätter (Januar - Dezember). Ich möchte ungern den Code in jedem Blatt einzeln einfügen. Ich habe schon einiges Versucht aber bei meinem begrenzten Wissen komme ich da einfach nicht weiter. Wäre jemand so nett meinen Code um die Befehle zu erweitern, dass ich in nur in ein Modul einfügen muss.

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("H7:AL30")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub

Vielen Dank.
 

Zvoni

Erfahrenes Mitglied
Füge ein Standard-Modul ein
Alles ungetestet
Visual Basic:
Public Sub SheetChange(ByRef ASheet As Worksheet, ByRef ATarget As Range)
If ATarget.Cells.Count > 1 Then Exit Sub
   If Intersect(ATarget, ASheet.Range("H7:AL30")) Is Nothing Then Exit Sub
   On Error GoTo CleanUp:
   With ATarget
       If .Value <> "" Then
           Application.EnableEvents = False
           .Value = UCase(.Value)
       End If
   End With
CleanUp:
   Application.EnableEvents = True
End Sub

und in deinen Worksheet_Change-Ereignissen (allen 12)
Visual Basic:
Public Sub Worksheet_Change(ByVal Target As Range)
   SheetChange Me, Target
End Sub