Bereik combineren met "Namen Beheren"

[Robert Smidt]

Beste Forumleden,

Ik ben op zoek naar een mogelijkheid om middels "namen beheren" met de naam "Uitgaven" twee onderbroken gebieden te selecteren (verwijzingen).

='Persoonlijke instelling'!$B$63:$B$125&'Persoonlijke instelling'!$B$149:$B$163
(van B63 t/m B125 en van B149 t/m B163)

Helaas herkent Excel dit niet zoals ik dacht dat het mogelijk was, weet misschien iemand hoe ik beide gebieden kan samenvoegen?

Alvast hartelijk dank.

Robert

 

[edmoor]

Gebruik niet een & maar een ;

Je kan ook beide gebieden selecteren en deze een naam geven in het naamvak van Excel.

 

[Robert Smidt]

Ik heb het getest en het werkt perfect...heel erg bedankt een ook voor de extra uitleg...

 

[Robert Smidt]

Ik heb iets te vroeg gejuicht. In eerste instantie leek het te werken want wanneer ik het bereik aanklikte zag ik nu dat hij beide bereiken selecteerde, Echter, in de VBA herkent hij de naam Uitgaven nu niet meer en wel wanneer ik een aan-één- gesloten gebied selecteer.

 

[sylvester-ponte]

hier werkt het wel:
volgende keer graag zelf een voorbeeldje maken.

 

[Robert Smidt]

Bedankt Sylvester, je hebt helemaal gelijk dat ik een voorbeeld had mee moeten sturen en bedankt dat je dat voor mij hebt gedaan.
Jouw voorbeeld werkt helaas niet in mijn situatie, daarom heb ik het origineel (hetgeen een erg groot bestand is) een variant op gemaakt.

Je kunt zien dat in mijn voorbeeld het niet werkt, ik zou het super vinden als jij/jullie hier naar willen kijken en mij een antwoord geven wat hier fout gaat.

In de testmap in positie F1 maak je een keuze van een woord dat binnen het bereik staat. De uitkomst moet dan ook zijn dat hij het woord heeft gevonden.

 

[jkpieterse]

De VERGELIJKEN functie kan niet overwerg met niet aaneengesloten bereiken en zal in dat geval altijd een fout geven.

 

[Robert Smidt]

bedankt voor jouw reactie,

Wel vreemd dat het voorbeeld van Sylvester wel werkt, daar heb je ook te maken met separate bereiken. Ik hoop dat er toch nog een mogelijkheid is.

 

[Haije]

bedankt voor jouw reactie,

Wel vreemd dat het voorbeeld van Sylvester wel werkt, daar heb je ook te maken met separate bereiken. Ik hoop dat er toch nog een mogelijkheid is.

maar NIET met de VERGELIJKEN functie

 

[sylvester-ponte]

Robert, Application.Match kan niet overweg met niet aaneengesloten gebieden deze gebieden mogen slechts uit 1 rij of 1 kolom bestaan.
Find is een mogelijkheid

Sub test()
    If [Uitgaven].Find(Range("Testmap!f1")) Is Nothing Then
        MsgBox "Het grootboekrekening komt NIET voor binnen het aangegeven bereik"
    Else
        MsgBox "Het grootboekrekening komt voor binnen het aangegeven bereik"
    End If
End Sub

 

[VenA]

Nog steeds niet bekent met het plaatsen van voorbeelden zonder koppeling naar externe bestanden? Waarom staan er soms doelloze spaties achter waarden? Kan problemen opleveren met zoekfuncties.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 6 And Target <> "" Then
    Set f = [Uitgaven].Find(Target.Value, , , xlWhole)
    MsgBox "Het grootboekrekening komt " & IIf(f Is Nothing, "Niet", "") & " voor binnen het aangegeven bereik"
  End If
End Sub

 

[Robert Smidt]

Sylvester bedankt voor jouw inbreng. Helaas gaf deze code altijd hetzelfde antwoord ook al komt het woord niet voor binnen het bereik.

Het antwoord van VenA werkt helemaal goed.
NB. Ik heb snel een voorbeeldbestand samengesteld en geprobeerd de koppelingen te verwijderen, op de een of andere manier bleef deze actief, mijn verontschuldiging hiervoor. Verder nog bedankt voor de tip van de spaties.

Allen die mee hebben geholpen heel erg bedankt.