ich hab hier eine kleine Rückfrage zu einem Code,
den ich auch in diesem Forum erhalten habe.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Address = "$A$7" Then
If Target.Value <> "" Then
Set rng = Range("B13:B84").Find(What:=Target.Value, lookat:=xlWhole)
If Not rng Is Nothing Then rng.Select
End If
End If
End Sub
Grundsätzlich läuft der auch, aber in der Range("B13:B84")befinden sich lediglich Verknüpfungen.
Wie kann ich den Ansprung der entsprechenden Zelle trotzdem realisieren?
(z.Bs. Auf Arbeitsblatt "1" wird in Zelle A7 der Suchwert A eingegeben, innerhalb der Range ("B13:B84", z.Bs in der Zelle B13 sehe ich auch ein "A", allerdings ist B13 verknüpft mit der Zelle B13 auf dem Arbeitsblatt "2" und da ist dann wirklich ein "A" eingetragen.)
Wie kann ich realisieren, das der Code auch mit einem gesperrten Arbeitsblatt läuft? ( ausgenommen natürlich Zelle A7 auf Arbeitsblatt 1)
Ich hoffe es halbwegs verständlich erklärt zu haben.
Ich sag schon mal vielen Dank.
Gruß JR