ich möchte folgendes:
1- Ein neues Worksheet erstellen
2- Ein Workbook selektieren
3- Die Inhalte vom Workbook importieren und einfügen
Das ist mein Code:
Dim TargetCellAddress As String
Dim a As Integer
' 1- Ein neues Worksheet erstellen
TargetSheetName = Application.InputBox("Schreiben Sie einen Blattnamen, unter dem Sie die Excel-Daten" , "Target Sheet Name")
Worksheets.Add
ActiveSheet.Name = TargetSheetName
ActiveSheet.Move after:=Worksheets("Filter")
'2- TargetCellAddress = Application.InputBox("Write a Cell Address from where XML Data Start Placing", "Target Cell Address")
'Set TargetSheet = ThisWorkbook.Sheets(TargetSheetName)
'TargetSheet.UsedRange.Clear
'ChooseFIle = Application.GetOpenFilename("XLSX File (*.xlsx), *.xlsx", False)
'If ChooseFIle = vbNullString Then Exit Sub
' →→→Hier gibt es den Fehler aber keine Ahnung warum!←←←
'ThisWorkbook.Open URL:=ChooseFIle, ImportMap:=Nothing, Overwrite:=True, Destination:=TargetSheet.Range(TargetCellAddress)
'3-Die Inhalte vom Workbook importieren und einfügen
TargetCellAddress = Range("A1")
MsgBox "Import Done"
Set TargetSheet = Nothing
Application.ScreenUpdating = True
End Sub