gegevens doorvoeren en bijbehorend (nieuw) tabblad plaatsen

[RGMeijers]

Het gaat hier om een excel programma waarin een ledenbestand van de VVE bijgehouden wordt.
En, zoals de titel vermeld: dat is me gelukt.
Waar het wringt is dat als ik gegevens invoer die al een keer vermeld staan in de lijst er een foutmelding verschijnt.
Logisch, de tabbladen mogen niet dezelfde naam hebben.

Mijn vraag: hoe kan ik controleren of cel i13 (zo gaat ook het tabblad heten) al voorkomt in de lijst op de B kolom.

Hartelijk dank alvast.

 

[edmoor]

Dat kan hiermee:

If Evaluate("ISREF('" & Newname & "'!A1)") Then
    MsgBox "Blad " & Newname & " al aanwezig"
    Exit Sub
End If

 

[puppie]

Op verzoek maar verplaatst naar de juiste sectie, dit heeft namelijk niks met websites maken te maken.
Suc6 met je vraag.

 

[RGMeijers]

Dat kan hiermee:

If Evaluate("ISREF('" & Newname & "'!A1)") Then
    MsgBox "Blad " & Newname & " al aanwezig"
    Exit Sub
End If

Deze werkt helaas niet.....maar het zal beslist aan mij liggen. Op de verkeerde plek neergezet?
Of moet ik nog wat aanpassen? NewName in bv. celi13 ?

 

[edmoor]

Die code werkt prima.
Dan zal je hem niet goed gebruikt hebben.
In mijn voorbeeld moet je natuurlijk wel Newname vervangen door de naam die je wilt controleren.
Dus de inhoud van cel I13:

Newname = Sheets("Menu").Range("I13").Value
If Evaluate("ISREF('" & Newname & "'!A1)") Then
    MsgBox "Blad " & Newname & " al aanwezig"
    Exit Sub
End If

 

[RGMeijers]

Ik denk inderdaad dat ik hem niet goed gebruik.
Heb voor newname ("I13") neergezet maar hij blijft foutmeldingen geven.

In de module worden er eerst gegevens doorgevoerd naar de lijst en daarna wordt pas het blad aangemaakt.
Mijn vraag is dan: waar moet ik deze code neerzetten?

 

[edmoor]

Denk je dan niet dat het handig is om die foutmelding ook hier te laten weten?
Zo'n melding is er niet om gebruikers te pesten maar geeft aan wat er mis is.

De code zelf doet het prima in je eigen document:

 

[RGMeijers]

Ja, helemaal mee eens.
Wilde zojuist reageren dat het werkt als een tierelier.
Inderdaad de code omhoog gezet, net onder de ander "if"jes.
Dan geeft hij de foutmelding inderdaad weer in het menu.

Kan niet anders want zowel het lint als de tabbladen zijn straks niet meer zichtbaar voor de gebruiker.
Heel hartelijk dank, ben er super blij mee.