Code ergänzen
08.08.2008 16:38:10
lasmik
kann mir wer den code so ergänzen das der bereich: Then ActiveSheet.Name = Target.Value auch dann funkt. wenn ich d3 angeklickt habe?
wenn ich c3 anklicke dann wird das blatt umbenannt, bei d3 klappt es nicht.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$3" Or Target.Address = "$D$3" Then UserForm1.Show
If Not Intersect(Target, Range("C3")) Is Nothing And Target.Count = 1 And Not IsEmpty( _
Target) _
Then ActiveSheet.Name = Target.Value
End Sub
vielen dank lasmik