bladnaam opvragen voor verder links mee te maken

[2703]

Hallo,

ik ben nieuw op het forum en daarom mocht ik in de fout gaan, vergeef het mij.
Hier is mijn probleem ik maak en jaar nieuwe bladen aan en deze krijgen de naam met onderstaand stukje
Nu is de vraag hoe kan ik die nieuwe naam opvragen om nadien celverwijzingen te maken naar andere bladen?

Met dank

Sub CopyVerkoop()

Dim Cell As Variant


Sheets("Verkoop 2010").Select 'Select sheet to copy
ActiveSheet.Copy After:=Sheets(Sheets.Count) 'Copy sheet to last position
Sheets(Sheets.Count).Select 'Select new sheet
ActiveSheet.name = Format("Verkoop" & Str$(Year(Now())), "ddd")
'Rename to latest Year


Johan

 

[Elsendoorn2134]

Johan,

Hoe en waarom wil je de naam opvragen? Je geeft eigenlijk jezelf al antwoord.
De nieuwe naam is Format("Verkoop" & Str$(Year(Now())), "ddd"), staat in je eigen schript. Dus ik zie niet wat je probleem is. Kun je je vraag misschien duidelijker omschrijven?

Veel Succes.

 

[2703]

Ik wil in een ander blad verwijzen naar het gemaakte blad maar de code die ik daarvoor wil gebruiken moet naar de werkelijke naam van het blad refereren.
Dus het huidige blad dat automatisch aangemaakt is noemt "voorjaaroogst 2012".
Maar in code kan ik die naam nog niet gebruiken daar op dat moment dat blad nog niet bestaat.
Dus moet ik die naam gaan ophalen.
en daar zit mijn probleem.
Alvast bedankt om te reageren.

Johan

 

[Elsendoorn2134]

Johan,

Dit lijkt een beetje op een kip-ei probleem, je wil ergens naar verwijzen wat er nog niet is maar je wil deze wel in een verwijzing opnemen.
Misschien dat je gebruik kan maken van de functie INDIRECT. Door ergens op het tabblad een verwijzing op te nemen van de naam kan je de verwijzing tot stand brengen.
Zet bijvoorbeeld in cel A1 de naam van het tabblad waarnaar je wil verwijzen: "voorjaaroogst 2012" en neem dan de volgende formule op =SOM(Indirect("'"A1&"'A12:A24") om het genoemde bereik op te tellen. Als je een tabblad hebt aangemaakt hoef je alleen nog in cel A1 de naam van het tabblad op te nemen.
En dit kan weer met dezelfde macro als waarmee je het tabblad aanmaakt.

Veel Succes.

 

[2703]

Hallo, Beste Elsendoorn2134

ik heb het probleem als volgt opgelost, zie code hieronder, misschien omslachtig maar het werkt.
Sub FindWS()
Dim strWSName As String
Dim ActiveWorksheet As Worksheet


strWSName = Format("Zomeroogst" & Str$(Year(Now())), "ddd")
If strWSName = vbNullString Then
MsgBox "You cancelled!"
Exit Sub
End If

If SheetExists(strWSName) Then
Worksheets(strWSName).Activate
Else
MsgBox "That sheet name does not exist!"
End If

If SheetExists(strWSName) Then
Worksheets(strWSName).Activate
Worksheets(strWSName).Range("L44").Select

End If
Worksheets("Jaaroverzicht 2012").Range("C6").Value = Worksheets(strWSName).Range("L44").Value
Worksheets("Jaaroverzicht 2012").Range("J30").Value = Worksheets(strWSName).Range("C16").Value
End Sub



Function SheetExists(strWSName As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(strWSName)
If Not ws Is Nothing Then SheetExists = True
End Function