VBA funktion i Excel 2010

Hvis VBA - så er du velkommen til at sende et eksempel.
@-adresse under min profil

done

Dim gruppe As String, antalKol As Integer, antalRæk As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = "4" And Target.Row > 1 Then
        gruppe = Trim(Target.Offset(0, -1))
        Target = findGruppen(gruppe)
    End If
End Sub
Private Function findGruppen(gruppe)
Dim kol As Integer, medlemmer As String

    ActiveWorkbook.Sheets("Grupper").Activate
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For kol = 1 To antalKol
        If gruppe = Trim(ActiveSheet.Cells(1, kol)) Then
            medlemmer = findMedlemmer(kol)
           
            ActiveWorkbook.Sheets("Liste").Select
            findGruppen = medlemmer
            Exit Function
        End If
    Next kol
End Function
Private Function findMedlemmer(kol)
Dim ræk As Integer, medlemmer As String
    medlemmer = ""
    For ræk = 2 To antalRæk
        If ActiveSheet.Cells(ræk, kol) <> "" Then
            medlemmer = medlemmer & ActiveSheet.Cells(ræk, kol) & vbCrLf
        Else
            Exit For
        End If
    Next ræk
   
    findMedlemmer = medlemmer
End Function

Hej Peter

Nu har jeg fået til at virke, det spiller bare.
Mange 100 tak, jeg vil ihvertfald anbefale dig fremover :-)
Smider du et svar??

Mvh Stine

Hej Stine

Fint - selv tak + tak

Her er svaret..