Sub Bauteilhinzufügen()
Dim varDatei As Variant
Dim i As Integer
Dim s As Integer
Dim wbziel As Variant
Dim wbQuelle As Variant
Set wbziel = ThisWorkbook.Worksheets("Tabelle1")
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
varDatei.Open
Set wbQuelle = ThisWorkbook.Worksheets("Tabelle1")
wbziel.Select
i = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(8, i + 1 + 4)).Value = InputBox("Bitte Namen eingeben")
wbQuelle.Select
s = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 8), Cells(s, 9)).Copy
wbziel.Select
Range(Cells(9, i + 1 + 4), Cells(9 + s, i + 1 + 4 + 1)).PasteSpecial Paste:=xlValues
End Sub
Hier erhalte ich die Fehlermeldung Objekt erforderlich.
Über jede hilfe wäre ich sehr dankbar.
MfG Smon