folgendes Makro habe ich mir zusammengestellt, mit dem ich eine neue Exceldatei aus einem Pfad auswählen kann und aus welchem ich dann aus einem bestimmten Tabellenblatt Daten kopieren möchte.
Das Problem welches ich nun noch versuche zu lösen ist, dass das Tabellenblatt, welches ich aus der geöffneten Datei ansprechen will um die Daten zu kopieren, nicht immer den identischen Namen hat. Der im unten folgende Tabellenblattname "5.1 GuV_Übersicht" wird zwar in 80% der Fälle korrekt sein, jedoch gibt es noch weitere Bezeichnungen, so z.B. eine englische Übersetzun "5.1 P&L_Overview" sowie noch 2-3 weitere.
Wie kann ich diese unterschiedlichen Tabellenblattnamen abfangen (=das Makro sucht unter den mir vorgegebenen Tabellenblattnamen und nimmt dann den in der Datei vorhanenden Namen)? Geht das evtl. mit einer "if" Prüfung?
Hier das bisherige Makro:
Private Sub CommandButton1_Click()
Dim strPfad As Variant
Dim Wb As Workbook
Set Wb = ThisWorkbook
strPfad = Application.GetOpenFilename
If strPfad False Then
TextBox1 = strPfad
Workbooks.Open Filename:=strPfad
Else
MsgBox "Nichts ausgewählt!"
End If
Sheets("5.1 GuV_Übersicht").Select
Sheets("5.1 GuV_Übersicht").Cells.Copy
Wb.Activate
End Sub
Vielen Dank für eure Hilfe.
Börny