• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

In blad niet beginnen in A1

Status
Niet open voor verdere reacties.

Schipperjte

Gebruiker
Lid geworden
24 jan 2006
Berichten
212
Hoi,

Ik heb een bestandje met elke dag voor de rest van het jaar met een index pagina met hyperlinks naar elke dag .
Het is een verslag wat er die dag gebeurd

In A1 staat dus de formule welke dag het is op elk blad .

Via een hyperlink kom ik dus op die dag terecht ,maar hij begint in de cel A1

hoe kan ik dit veranderen in bv B4 ?

Bas
 
Bas

Ga op de cel van de hyperlink staan. Rechtermuisknop klikken en er verschijnt een menu.
In dit menu heb je de keuze om de hyperlink te bewerken.

Daar kan je de celverwijzing wijzigen.
 
Kijk dat zocht ik ,is het ook mogelijk om alle hyperlinks in 1 keer te bewerken die op dat blad staan ?
 
Bas

Het hangt er vanaf.
Is de hyperlink gemaakt via Invoegen, hyperlink dan ben ik bang dat dat niet lukt.

Maar is de hyperlink gemaakt via een formule zoals :

Code:
=HYPERLINK(Blad2!A3;"makkelijk naam")

Dan zou het mogelijk moeten zijn om via zoek en vervangen de cel te wijzigen.
 
Ja bedankt ! :)
Het werkt wel maar kan maar 1 tegelijk veranderen ,aangezien er aardig wat staan ( 250)

is dit eigenlijk niet te doen.

Kan het niet met VBA en dan in het workbook zetten ,dat elk blad in B4 begint ?
De voorbeeldjes haal ik hier uit dit forum maar ben zelf niet zo bekent met VBA.

iemand een idee ?
 
Bas

Hoe zien die hyperlinks er uit ?
Zijn de logische benoemd, dus makkelijk te reproduceren?

Kan je er een paar in een bestandje zetten en hier plaatsen ?
 
Als bijlage 2 dagen 1 en 2 aug,zoals je ziet zijn het aardig wat dagen

ze starten in A1 het zou B4 moeten worden
 

Bijlagen

Bas,

Helaas maar ik zie even geen oplossing.

Hopelijk kijkt een ander er ook nog even naar.
 
Code:
Sub HyperlinksOmzetten()
Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.SubAddress = Left(HL.SubAddress, Len(HL.SubAddress) - 2) & "B4"
    Next
End Sub

Met vriendelijke groet,


Roncancio
 
Kijk dat is makkeilijk , bedankt :thumb:


Het werkt , alle hyperlinks zijn bewerkt en starten in B 4

Dat scheelt een hoop werk en zal de code bewaren voor een volgende keer


Top
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan