Tabellenblatt importieren
06.01.2016 11:17:42
Sascha
ich habe eine Frage zu folgendem Code:
Private Sub sheetimport()
Dim folder As Variant, wbAct As Workbook, wbNeu As Workbook
folder = Application.GetOpenFilename
If folder = False Then Exit Sub
Set wbAct = ActiveWorkbook
Set wbNeu = Workbooks.Open(folder)
wbNeu.Sheets("PV_system_survey").Copy Before:=wbAct.Sheets("Data_end")
wbAct.Sheets("Evaluation").Activate
wbNeu.Close False
MsgBox ("The sheet was importet successfully!")
End Sub
Mein Ziel ist es jedoch ein Tabellenblatt aus der geöffneten Mappe auswählen zu können, da nicht jedes Tabellenblatt den gleichen Namen trägt.
Kann man das überhaupt realisieren?
Über Hilfe würde ich mich sehr freuen.
Gruß
Sascha
Anzeige