Hulp met VBA script icm hyperlinks

[Crips]

Hallo allemaal,

Ik ben nieuw op dit forum en redelijk handig met excel wat betreft formules.
Nu ben ik nog wel redelijk oneraven wat betreft VBA.

Ik ben op het moment een template aan het maken en ik kom er niet echt uit.

Er zijn 11 teams, ieder team is een hyperlink. Als je daarop klikt moeten de 2 regels eronder uitklappen (hidden = false).
In ieder blok van een team zit nog een hyperlink, als je daarop klikt moet hij een kopie van de regel eronder maken en die erboven invoegen.

Hyperlink 1 werkt overigens, daarna loop ik een beetje vast.

Ik heb als bijlage het bestand toegevoegd.
Wie kan mij helpen, die zou ik heel erg dankbaar zijn!!!

Gr.
Crips

 

[snb]

crosspost

http://www.worksheet.nl/forumexcel/vragen/84729-meerdere-hyperlinks-vba.html#post681372

 

[Elsendoorn2134]

Crips,

Pas de VBA aan naar de volgende code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Range(Target.Range.Address).Column = 9 Then
        AddRow Range(Target.Range.Address).Offset(1, 0)
    ElseIf Range(Target.Range.Address).Column = 3 Then
        If Range(Target.Range.Address).Offset(1, 0).EntireRow.Hidden Then
            Range(Target.Range.Address).Offset(1, 0).Resize(2, 1).EntireRow.Hidden = False
        Else
            Range(Target.Range.Address).Offset(1, 0).Resize(2, 1).EntireRow.Hidden = True
        End If
    End If
End Sub

Function AddRow(rTarget As Range)
    Range(rTarget.Address).EntireRow.Select
    Selection.Copy
    Selection.Insert Shift:=xlUp
    
    Range(rTarget.Address).Offset(0, -4).Value = ""
       
End Function

Dit zorgt ervoor dat beide hyperlinks (in kolom C en I) beide werken onafhankelijk van
waar de hyperlink wordt aangesproken.
Als je op kolom C drukt dan zullen de regels worden uitgeklapt, als ze uitgeklapt zijn worden
ze weer ingeklapt. Dit werkt alleen als er nog geen regels zijn toegevoegd dit probleem mag
je zelf oplossen.

Veel Succes.