Opgelost vba select tabbladnaam uit cel halen

[malsines]

Beste mensen
ik heb een vba code nodig voor het selecteren van meerdere cellen. alleen wil ik de code hebben op tabblad 1 vanuit een cel uit tabblad 1 moet het de naam halen van de tabblad van de te selecteren cellen.

bv
sub selecteren()
tabblad(uit cel halen B3)
Range("D2050).Select

End sub

alvast bedankt

 

[OctaFish]

Ik snap niet helemaal wat je bedoelt, en al helemaal niet met:

alleen wil ik de code hebben op tabblad 1 vanuit een cel uit tabblad 1 moet het de naam halen van de tabblad van de te selecteren cellen.

Code kun je in een module zetten, dan werkt-ie overal, of in een specifiek werkblad, dan werkt-ie vanuit die ene pagina. Maar het is geen enkel probleem om een macro te maken die gewoon alles kan; de plek waar de macro staat doet er echt niet zoveel toe.
En 'de naam halen van het (niet de) tabblad van de te selecteren cellen? Je weet toch hopelijk wel dat alle cellen op dat tabblad de naam krijgen van datzelfde tabblad? Als je het adres van één cel gebruikt, heb je de naam voor alle cellen. En dus ook omgekeerd: je kunt de naam van het tabblad uit alle cellen halen.
Dus wat is precies de bedoeling?

 

[AHulpje]

Als je dit bedoelt kan het zonder VBA:

 

[emields]

mooi voorbeeldbestandje.

 

[snb]

Sub M_snb()
   Msgbox cells(1).Parent.name
   Msgbox cells(1).Parent.codename
End Sub

 

[Warme bakkertje]

Select werkt enkel op het actieve werkblad dus wat wil je met de geselecteerde cellen ?
Het kan wel op deze manier. Vervang Sheet1 door de naam van tabblad 1

Sub tst()
    wSheet = Sheets("Sheet1").Cells(3, 2)
    Application.Goto Sheets(wSheet).Range("A1")
    ActiveSheet.Range("D20:D50").Select
End Sub

 

[emields]

Dat kan korter zou warme bakkertje zeggen als iemand anders die code zou plaatsen.

 

[malsines]

ik wil jullie allemaal bedanken. Emields bijlage is wat ik zoek

 

[malsines]

Beste Emields als ik het in me eigen excel zet. krijg ik de foutmelding typen komen niet met elkaar overeen

 

[edmoor]

Dan heb je niet een cijfer in die cel staan.
Maak er dit van:

Application.Goto Sheets([B3].Value).Range("D20:D50")

 

[sylvester-ponte]

Let op als je in b3 een1 zet kom je niet in blad 1 maar in het eerste blad.

 

[emields]

Beste Emields als ik het in me eigen excel zet. krijg ik de foutmelding typen komen niet met elkaar overeen

Dat is natuurlijk het nadeel van zelf geen voorbeeld bestandje te willen zetten.

 

[HSV]

Gebruik

Cstr([B3])

 

[malsines]

Dan heb je niet een cijfer in die cel staan.
Maak er dit van:

Application.Goto Sheets([B3].Value).Range("D20:D50")

Met een Value achter doet ie het dankjewel