Worksheet_Change
11.01.2007 16:20:54
Pity
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
ActiveCell.Offset(0, -1) = UCase(ActiveCell.Offset(0, -1))
ElseIf Target.Column = 3 Then
ActiveCell.Offset(0, -1) = UCase(ActiveCell.Offset(0, -1))
With ActiveCell.Offset(0, -1)
.Replace what:=".", replacement:=""
.Replace what:=" ", replacement:=""
End With
End If
End Sub
Die IF-Anweisung läuft normal, während bei der Elseif-Sequenz die nächste Zelle rechts in Spalte D mit der Tab-Taste nur mit Verzögerung markiert werden kann.
Weshalb diese Kurzblockade?
Bitte um eure Hilfe.
Gruss
Pity