'der 'Privat'Code der übersichtsstabelle
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Row = 1 And Target.Column = 1 Then 	'bezieht den Doppelklick nur auf A1
    With Application.ActiveWorkbook.Worksheets
    For i = 1 To .Count	'zähle die Anzahl vorhandener Blätter in der Mappe i=Anzahl
      If i <> Me.Index Then	'me (=Tabelle Übersicht) ausgeschlossen
        Me.Cells(i + 2, 1) = .Item(i).Name 'cells(Anzahli+2=ZeilenNummer, 1=SpalteA) also ZelleA3
        Me.Cells(i + 2, 2) = .Item(i).Cells(3, 2)'cells(Anzahli+2=ZeilenNummer, 2=SpalteB also B3
        Me.Cells(i + 2, 3) = .Item(i).Cells(4, 2)'cells(Anzahli+2=ZeilenNummer, 1=SpalteC, C3
        Me.Cells(i + 2, 4) = .Item(i).Cells(5, 2)'cells(Anzahli+2=ZeilenNummer, 1=SpalteD, D3
      End If
    Next
    End With
  End If
End Sub