Worksheet Change+Grossschreibung
SteffenS
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wert für Wertberechnung eintragen
Dim ta As String
Dim rw As Long
Dim cl As Long
ta = Target.Address
rw = Target.row
cl = Target.Column
'Abfrage Fahrzeugart Grossbuchstaben
If ta <> "" And Cells(4, cl) = "N/A" Then
If Target.Address = ta Then bln = True
If bln = True And Target.Address = ta Then
If Cells(rw, cl).Value <> "" Then
Cells(rw, cl).Value = UCase(Cells(rw, cl).Value)
goto raus:
End If
'bln = False
End If
End If
Exit Sub
raus:
End Sub
Mein Problem ist jetzt, dass Excel zwar die Eingabe gross schreibt, aber gleichzeitig etwas länger überlegt ehe er weiter macht.
Ich habe herausgefunden, dass er den Code mehrmals abarbeitet!
Was muss ich tun, dass Excel einfach nur den Buchstaben grossschreibt?
Danke Euch schonmal
Steffen Schmerler