Hilfe bei bestehenden VBA-Script
04.05.2007 08:34:58
Caro
ich versuche mich grade in ein bestehendes VBA-Script einzulesen. Das klappt auch ganz gut und ich hab soweit alles entziffert (ist natürlich alles ohne Kommentare versehen :( ) der einzige Part der mir jetzt noch fehlt ist der folgende:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A2")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Cells.Find(What:=RaZelle.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False,
False).Activate
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Kann mir jemand vielleicht sagen, was mit dem Script bewirkt wird? Ich bin leider grade auf den Kopf gefallen und komme einfach nicht drauf.
Danke schon mal für eure Hilfe.
Gruss
Caro
Anzeige