Excel, mit dem Sie eine Zelle auswählen und zum entsprechenden Blattnamen wechseln können

516
William Aaron Winfrey

Ich habe den folgenden Code, um eine Zelle mit einem bestimmten Namen auszuwählen und zum Blatt zu gelangen, das nach dieser Zelle benannt ist. 

Dim ws As Worksheet If Target.Address = "$A$1" Then For Each ws In ActiveWorkbook.Worksheets If ws.Name = Range("A1").Value Then ws.Activate End If Next ws End If

Ich möchte dies jedoch für Zellen in Spalte A tun! A1-A306 Wie kann ich den Code ändern?

0
Sie möchten also zu dem Blatt wechseln, in dem sich Target.value = Name und Target in A1: A306 befinden? Scott Craner vor 6 Jahren 0
Eine etwas andere Methode, aber Sie könnten Hyperlinks zu allen Zellen haben. Ron Rosenfeld vor 6 Jahren 0

1 Antwort auf die Frage

0
Ross

Ich würde es so machen - aber es ist nicht so, wenn man sich den Wert von .Address ansieht

If Not (Intersect(Target, Range("A1:A306")) Is Nothing) Then For Each ws In ActiveWorkbook.Worksheets If ws.Name = Target.Value Then ws.Activate End If Next ws End If
Perfekt gearbeitet! William Aaron Winfrey vor 6 Jahren 0

Verwandte Probleme