Ein Code für mehrere Blätter

[Trankolz]

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]

Füge ein Standard-Modul ein
Alles ungetestet

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)

Public Sub Worksheet_Change(ByVal Target As Range)
   SheetChange Me, Target
End Sub

 

[Trankolz]

Funktioniert 1A. Vielen Dank. Ich habe ganz falsch angesetzt