ich bräuchte bitte mal eure Hilfe.
Ich habe eine Tabelle in der die Eingaben immer groß geschrieben werden sollen.
Hierfür nutze ich folgendes VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLast As Long
On Error GoTo ErrExit
lngLast = Cells(Rows.Count, 3).End(xlUp).Row
If Not Intersect(Range("C4:AG" & lngLast), Target) Is Nothing Then
If Target.Count = 1 Then
Application.EnableEvents = False
Target = UCase(Target)
End If
End If
ErrExit:
Application.EnableEvents = True
End Sub
Die Tabelle geht aktuell bis Zelle AG29.Nach einer Leerzeile habe ich ab Zeile 31 verschiedene Berechnungsformeln die Logischerweise nicht groß geschrieben werden sollen.
Wie muss ich die Formel umschreiben wenn das Ende nicht immer AG29 bleibt, da in der Tabelle immer wieder Zeilen eingefügt / gelöscht werden?
Danke schon mal für eure Unterstützung.
Gruß
Stefan