Excel 2013 VBA: Wo bin ich?

[sharky51]

Hallo zusammen,

ich glaube ich habe jetzt den Grund gefunden warum das Makro von Uwe immer alle Bereiche eines Workbooks aufgelistet hat.
Ich habe zur Sicherung mein Original Worksheet als Backup in der gleichen Mappe gespeichert.
Somit sind natürlich alle benannten Bereiche doppelt vorhanden.
Der Code mag das wohl nicht und verhaspelt sich da womöglich.

Ohne dem Backup-Sheet funktioniert alles perfekt.

Dank Euch allen, auch für Eure Geduld mit einem VBA-Neuling!

[Kuwer]

Hallo Erich,

mit folgendem Code sollte es auch mit Backup-Sheet gehen:

Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 Dim oName As Name

 Dim rngR As Range

 Dim strR As String

 

 On Error Resume Next

 For Each oName In Me.Parent.Names

   Set rngR = Nothing

   Set rngR = oName.RefersToRange

   If Not rngR Is Nothing Then

     Err.Clear

     If Not Application.Intersect(Target, rngR) Is Nothing Then

       If Err.Number = 0 Then

         strR = strR & vbNewLine & oName.Name

       End If

     End If

   End If

 Next oName

 On Error GoTo 0

 

 Cancel = True

 

 If Len(strR) Then

   strR = "Die Zelle """ & Target.Address(0, 0) & """ ist in folgenden benannten Bereichen enthalten:" & strR

 Else

   strR = "Die Zelle """ & Target.Address(0, 0) & """ ist in keinem benannten Bereich enthalten."

 End If

 

 MsgBox strR

End Sub

Gruß Uwe

[sharky51]

Hallo Uwe,

habe Deinen angepassten Code gerade getestet....und bin begeistert....funktioniert bestens.

Super, Danke!

[WillWissen]

Hallo Erich

Mein Beitrag #2 war übrigens ernst gemeint.
Und es läßt sich auch mit Macro-Recorder aufzeichnen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ActiveWindow.Zoom = 34
End Sub

Hi Detlef,

damit der Bereich besser lesbar ist, würde ich Zoomfaktor 39 nehmen. Wichtig ist nur, dass er unter 40 liegt.

[shift-del]

Hallo Günter

damit der Bereich besser lesbar ist, würde ich Zoomfaktor 39 nehmen.

Komisch, ich dachte ich hätte es vorher ausprobiert.