Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Anbei die Tabelle!

Viel Spaß beim Tüfteln! 

Hallo Günther,

hier das Makro was ich zur Zeit verwende:

Private Sub Worksheet_Beforedoubleclick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$A$350" Then
Angebot1204
End If
End Sub

Sub Angebot1204()
   Dim wkbMappe As Workbook
   Dim blnOffen1 As Boolean
   Dim blnOffen2 As Boolean
   For Each wkbMappe In Workbooks
      If wkbMappe.Name = "2230 AngebotsNummern.xlsx" Then
         blnOffen1 = True
         Exit For
      End If
   Next wkbMappe
   If blnOffen1 Then
      Workbooks("2230 AngebotsNummern.xlsx").Activate
   Else
      Workbooks.Open "G:\2200\Angebote\2230 AngebotsNummern.xlsx", _
        UpdateLinks:=3
   End If

   For Each wkbMappe In Workbooks
      If wkbMappe.Name = "2230 Angebote 15-1200_1220.xlsm" Then
         blnOffen2 = True
         Exit For
      End If
   Next wkbMappe
   If blnOffen2 Then
      Workbooks("2230 Angebote 15-1200_1220.xlsm").Activate
      Sheets("15-1204").Select

   Else
      Workbooks.Open "G:\2200\Angebote\2230 Einzelangebote\2230 Angebote 15-1200_1220.xlsm"
      Sheets("15-1204").Select
   End If
End Sub

Ich möchte jetzt nicht für jedes Tabellenblatt ein eigenes Makro verwenden, sonder hätte gerne eine Makro, dass in der Liste "2230 Angebote 15-1200_1220.xlsm" mit 20 verschiedenen Tabellenblättern nach der Tabellenblattbezeichnung "15-1204" sucht und das richtige Tabellenblatt öffnet. Wenn er dort die Tabellenblattbezeichnung nicht findet, dann soll er diese in der nächsten Liste suchen und so weiter...

Gibt es dafür eine Lösung?

Lieben Gruß,

Constanze