zu benannter Zelle gehen

Sub nn() ActiveWorkbook.Names.Add Name:="Apfel", RefersToR1C1:="=Tabelle2!R1C3" 'Range("Apfel").Select 'Fehler 'Range(Apfel).Select 'Fehler MsgBox Range("Apfel").Value Application.Goto Reference:="Apfel" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Beate,
der Code war nur so, damit man klar sieht das es den namen Apfel auch gibt, kein Shreibfehler oder so.
Es geht darum, ich wollte im Dokumentmodul eines anderen Blattes sowas basteln:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Range(Target.Value).Select
End Sub
Deshalb kam ich auf Select und fand keine Lösung mit Select, stiess auf Goto, damit war zwar der Code fertig, aber ich wollte halt wissen ob ich beim Ausprobieren mit Select etwas übersehen habe und es doch mit Select geht, deshalb habe ich hier nachgefragt.
Dank euch weiß ich jetzt wie es mit Select ginge und da man damit 2 Codezeilen bräuchte, es besser ist Goto zu nehmen.
Jetzt habe ich noch ein Problem in der gleichen Fruchtangelegenheit :-)
Es gibt Zellen im Blatt Obst mit den Namen Apfel,Banane,Orange.
In A1 eines anderen Blattes habe ich die Gültigkeitsliste: Apfel;Banane;Orange.
Durch obigen Code (halt mit Goto drinnen) klappt das gut, man wählt aus und schwupps ist man in der gewünschten Zelle.
Aber ist mna wieder in dem anderen Blatt und will erneut in die gewählte Zelle so klappt das nicht da ein Klick auf A1 ja kein Change-Ereignis auslöst.
Jetzt wollte ich das so lösen:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
'ActiveSheet.Hyperlinks.Add Anchor:="A1", Address:="", SubAddress:= _
'        Range("A1"), TextToDisplay:=Range("A1")
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:= _
Range("A1"), TextToDisplay:=Range("A1")
Application.Goto Reference:=Target.Value
End Sub

aber der Debugger meckert immer beim Add Befehl :-(
Ich weiß, um jetzt in A1 etwas auswählen zu können muß man sich mit der Tastatur reinschleichen oder mit der Maus lange drücken damit der Hyperlink nicht ausgeführt wird.
Manuell war es ja einfach auf A1 einen Hyperlink zu legen, aber der ist ja fest, ich will ihn ja dynamisch je nach Inhalt von A1.
Könnt ihr mir da auch weiterhelfen dies zu lösen?
Danke auch an Daniel
Gruß
Reinhard

Hi
anstatt aufwendig mit den Hyperlinks rumzubasteln, erstelle doch einfach nochmal das gleich Makro für das "Worksheet_Before_Doubleclick-Event"
wenn du zur gleichen Zelle nochmal wechseln willst, dann führt du einfach einen Doppelcklick auf die Zelle A1 aus und die Benannte Zelle wird angesprungen:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Cancel = True
Application.Goto Target.Value
End Sub

Beim Wechsel des Zellwertes wird dann wieder dieses Makro aktiv:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.Goto Target.Value
End Sub

Gruß, Daniel

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:= _ "Tabelle2!" & Range("A1") ', TextToDisplay:="huhu" Application.Goto Reference:=Target.Value End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread