Office: (Office 2010) Datei mit Blattauswahl per vba aus einer anderen Excel Datei öffnen

Hallo Excel-Freunde, ich habe zwei Excel Dateien, in der Excel Datei "A" steht in Zelle A1 ein Datum z.B. "02.02.2017". Die Excel Datei "B" hat mehrere Blätter nach Datum benannt z.B. "02.02.2017". Nun möchte ich per vba erreichen, dass aus Excel Datei "A" heraus Excel Datei "B" geöffnet wird und das Blatt mit dem Datum aus Excel Datei "A" Zelle A1 selektiert wird. habe schon einiges versucht aber keine brauchbare Lösung gefunden. Hat jemand eine Idee. Danke im Voraus

 

Hi,

ungetestet:

Code:

    Dim wksTab As Worksheet
    Workbooks.Open "C:\Test\B.xlsx"
    With ActiveWorkbook
        For Each wksTab In .Worksheets
            If wksTab.Name = CStr(ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value) Then
                wksTab.Activate
                Exit For
            End If
        Next wksTab
    End With

Bis später,
Karin

 

Hallo Karin, klapp super vielen Dank.

 

Ich habe nun meine Tabellen fertiggestellt. Musste aber zur besseren Übersicht, die Datumsangabe in den einzelnen Registernamen der Excel Datei "B" um den Wochentag erweitern z.B. "Mo 13.02.2013". In der Excel Datei "A" Tabelle1 in Zelle A1 habe ich zwar die Formierung "TTT TT.MM.JJJJ" eingegeben aber jetzt wird das Register nicht mehr erkannt. könnte man das auch noch irgendwie lösen?

 

Ändere den Vergleich wie folgt:

Code:

If wksTab.Name = Format(ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value, "ddd dd.mm.yyyy") Then

Bis später,
Karin

 

Danke für die schnelle Hilfe, klappt super!!

 

Jetzt habe ich noch eine Frage, es kommt vor, dass ein gesuchtes Datum in Excel Datei "B" nicht vorhanden ist. Gibt es hier noch eine Möglichkeit ein MsgBox anzuzeigen?

 

Ja, die Möglichkeit gibt es - damit ist deine Frage beantwortet :p

Aber ich nehme an du möchtest auch wissen WIE man das lösen kann:

Code:

Dim wksTab As Worksheet
Dim blnVorhanden As Boolean
Workbooks.Open "C:\Test\B.xlsx"
With ActiveWorkbook
    For Each wksTab In .Worksheets
        If wksTab.Name = Format(ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value, "ddd dd.mm.yyyy") Then
            wksTab.Activate
            blnVorhanden = True
            Exit For
        End If
    Next wksTab
End With
If blnVorhanden = False Then MsgBox "Tabelle nicht gefunden"

Bis später,
Karin

 

Vielen Danke Karin für Deine Hilfe. Klappt wie immer super.
Gruß Theo