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!
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
Hallo Uwe,
habe Deinen angepassten Code gerade getestet....und bin begeistert....funktioniert bestens.
Super, Danke!
(01.11.2015, 15:22)shift-del schrieb: [ -> ]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.
Hallo Günter
Zitat:damit der Bereich besser lesbar ist, würde ich Zoomfaktor 39 nehmen.
Komisch, ich dachte ich hätte es vorher ausprobiert.