Worksheet_Change-Problem
26.11.2008 16:59:00
Dysti
habe folgendes Problem:
Der unten stehende Code meines Macros verursacht eine Typenunverträglichkeit in der Zeile "trenner=..."
Es entsteht nur dann, wenn ich die gefüllte Zellen mit der Maus markieren und rechte Maustaste "Inhalte löschen" anklicke.
Funktion: schreibe 100/8 und er ändert es in 100/2008
Private Sub Worksheet_Change(ByVal Zelle As Range)
Dim trenner As Byte
Dim jahreseingabe As Variant
Application.EnableEvents = False
'welche Position hat das Zeichen "/"
trenner = InStr(1, Zelle, "/")
MsgBox trenner
If trenner > 0 Then
If Left(Right(Zelle, 2), 1) = 0 Then
jahreseingabe = Left(Zelle, trenner) + "200" + Right(Zelle, 1)
Else
jahreseingabe = Left(Zelle, trenner) + "200" + Right(Zelle, 1)
End If
Zelle.Value = jahreseingabe
Zelle.HorizontalAlignment = xlRight
End If
Application.EnableEvents = True
End Sub