Intersect (Target,........) Is Nothing Then

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("multibereich1_neu")) Is Nothing Then 'Methode von MatthiasL Call ............ 'im Bereich Else Call........ 'nicht im Bereich End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim multibereich1_neu As Object Set multibereich1_neu = Union(Range("multibereich1_neu"), Range("namname")) If Not Intersect(Target, multibereich1_neu) Is Nothing Then MsgBox "im Bereich" Else MsgBox "nicht im Bereich" End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not (Intersect([multibereich1_neu], Target) Is Nothing) Then MsgBox Target.Address End If If Not (Intersect(ThisWorkbook.Names("multibereich1_neu").RefersToRange, Target) Is Nothing) _ Then MsgBox Target.Address End If End Sub

Möchte nochmal auf offen stellen und folgende Frage/Bitte:
Siehe bitte datei:
https://www.herber.de/bbs/user/114810.xlsm
Die zwei - mit Namensmanager definierten - Bereiche (multibereich1_neu und multibereich2_neu) werden mit dem Modul1 zu der Union multibereichalles_neu (diese Union scheint aber nicht im Namensmanager auf) zusammengefasst.
Wenn du jetzt in Bereich 1 oder 2 klickst funktioniert es wunderbar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, multibereichalles_neu) Is Nothing Then
MsgBox "im Bereich"
Else
MsgBox "nicht im Bereich"
End If
End Sub

Es wird erkannt dass die beiden Bereiche eine Union sind. Wenn ich die Datei aber schließe und wieder öffne muss wieder das Modul1 neu gestartet werden dass die Union besteht.
Bitte um Lösung wie die Unionzusammenführung nicht bei jeder Öffnung neu gemacht werden muss?
Danke für eure weitere Hilfe und Tipps.
lg STeve

Hallo sehr geehrter Luschi.......deine drei Varianten laufen perfekt ..so sollte es sein.
Ich habe ja nicht nur die zwei multi1 und 2 bereiche sondern bis zu 60, die immer verschieden heißen und mit langen komplizierten Namen definiert werden.
Aber schau mal hier: (habe in deine Datei nur mal 20 multi- bereiche erstellt und per def. Namen vergeben)

Die Datei https://www.herber.de/bbs/user/114822.xlsm wurde aus Datenschutzgründen gelöscht

Deshalb habe ich im Modul1 die:

Sub zusammenfassung()
End Sub eingebaut (von Beverly) diese fasst die ganzen namen per Schleife zusammen------ eben zu dem multibereichalles_neu
Deine Varianten kann ich leider nicht umsetzen.
Ich müsste
1.) die Namen wissen
2.) die Anzahl wissen
3.) deine Codes so ausarbeiten:
Intersect(Target, Union([multi1], [multi2], [multi3], [multi4], [multi5], [multi6], [multi7] _
[multi8], [multi9], [multi10], [multi11], [multi12], [multi13], [multi14]......
.................usw bis 60 und alles immer verschiedene und lange komplizierte Namen))
Das heißt: die ganzen Bereiche werden bei Erstellung des Blattes zusammengefasst und dann soll der in einen Begriff (multibereichalles_neu) erhalten bleiben.
Besten Dank für deine Hilfe
mfg
STeve

Function ZusFsgNamen(xWelcheTab As Worksheet, xWelcheNamen As String) As Range Dim namName As Name, i As Integer i = Len(xWelcheNamen) For Each namName In ActiveWorkbook.Names Debug.Print InStr(Replace(namName.RefersTo, "'", ""), ActiveSheet.Name & "!") 'es zeigt _ richtig den Wert 2 an Debug.Print LCase(Left(namName.Name, i)) ' es zeigt auch den richtigen String Wert an ' wenn der Bezug den Namen des aktiven Tabellenblattes enthält If InStr(Replace(namName.RefersTo, "'", ""), ActiveSheet.Name & "!") > 0 And _ LCase(Left(namName.Name, i)) = xWelcheNamen Then '''''''''''# hier kommt er aber nie rein.......weiß du was da los ist? ' Variable ist noch leer If multibereich1_neu Is Nothing Then ' der Variablen den Bezugsbereich des laufenden Namen zuweisen Set multibereich1_neu = namName.RefersToRange ' Variable ist schon gefüllt Else ' die Variable um den Bezugsbereich des laufenden Namen erweitern Set multibereich1_neu = Union(multibereich1_neu, namName.RefersToRange) End If End If Next namName Set ZusFsgNamen = multibereich1_neu End Function

Beliebteste Forumthreads (12 Monate)

Intersect (Target,........) Is Nothing Then

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Intersect (Target,........) Is Nothing Then

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread