in zelle C springen
09.01.2010 15:59:30
Ralf
Hallo anbei habe ich ein Makro das mir ganz gut gefällt jetzt möchte ich es nur so abändern , das es nicht immer in A1 spingt Range("A1").Select
sondern in der jeweiligen reihe wo man in den gesperrten bereich betreten möchte in dei zelle C
also wenn ich in reihe 18 den gesperrten bereich einteren möchte soll er in C 18 springen
hoffe es ist verständlich
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'* H. Ziplies *
'* 08.01.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/ *
' ein bestimmter Bereich darf nicht ausgewählt werden
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("i13:l27")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Intersect(RaZelle, RaBereich) Is Nothing Then
Else
Range("A1").Select
Exit For
End If
Next RaZelle
' ActiveSheet.protect
End Sub