nach ActiveSheet.ShowDataForm alle cellen in A gro
09.09.2003 22:40:53
franzel
ich schon wieder gebe in tabelle 1 über showdataform daten ein, wenn die form geschloßen ist möchte ich danach alle einträge in der Spalte in groß umwandeln.
mein code sieht so aus: wo liegt der fehler ?????
Sub eingabe()
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Dim EBereich As Range
Set EBereich = Range("A8:A24")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
ActiveWorkbook.Save
End Sub