Probleme mit s = Target.Value
16.12.2004 11:57:09
Michael
Ich spreche mit dieser Zeile das ganze Tabellenblatt an. Ich aöchte aber,daß nur die Zeilen A3:E3 angesprochen werden. Kann mir vielleicht irgendwer helfen
Dim s$
s = Target.Value
If Not s = "" And Not (Left(s, 1) = "*" And Right(s, 1) = "*") Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = "*" & s & "*"
Application.EnableEvents = True
On Error GoTo 0
End If
Danke für Eure Hilfe
Michael