habe dies mal in der Recherche gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaZelle As Range
Dim Zelle As Range
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
' If RaZelle.Column = 3 Or RaZelle.Column = 4 Then
If RaZelle.Column = 12 And Zelle.ScrollRow > 7 Then
RaZelle = UCase(RaZelle)
End If
Next RaZelle
Application.EnableEvents = True
End Sub
Habe mal dies eingefügt: Dim Zelle As Range + And Zelle.ScrollRow > 7
ich wollte nur den Bereich ab Zelle7 bis Zelle 40 das der Buchstabe GRO? geschrieben wird.
Ohne mein Zusatz läuft das in der kompl. Spalte.
Vielleicht kann mir jemand helfen, auch wenn Karneval ist,
mfg walter