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.
Vielen Dank.
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.