Registriert seit: 09.05.2015
Version(en): 2013, Office 365
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!
Mit freundlichen Grüßen / Best regards
//
----------o00o---°(_)°---o00o----------------------
Erich
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• sharky51
Registriert seit: 09.05.2015
Version(en): 2013, Office 365
Hallo Uwe,
habe Deinen angepassten Code gerade getestet....und bin begeistert....funktioniert bestens.
Super, Danke!
Mit freundlichen Grüßen / Best regards
//
----------o00o---°(_)°---o00o----------------------
Erich
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
(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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 12.04.2014
Version(en): Office 365
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.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.