Ich möchte mit
Privat Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)
Eingaben prüfen und wenn gewisse Bedingungen erfüllt sind, diese in Grossbuchstaben umwandeln (UCASE).
Bedingungen:
Sh: Tabellenname darf nur aus Zahlen bestehen, z.b. "0000" oder "51994", etc.
Target.Row => 5 und Target Row = Target.Column muss einer der Spaltennummern entsprechen, welche in verschiedenen benannten Zellen enthalten sind.
Beispielsweise
Range("ABC").Value = 5
Range("XA5").Value = 17
Range("_ABB").Value = 19
.... (etwas insgesamt 7)
Mir ist nicht klar, wie ich diese Bedingungen in einen Code verpacken kann.
Kann mir jemand helfen?
Danke und Gruss, Peter