Sub Grundatenhinzufügen()
Dim varDatei As Variant
Dim i As Integer
Dim s As Integer
Dim wbQuelle As Object
Dim wbziel As Object
Windows("Auswertungmakro.xlsm").Activate
i = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range("A8").Value = InputBox("Bitte Namen eingeben")
varDatei = Application.GetOpenFilename()
Workbooks.Open (varDatei)
With ThisWorkbook.Worksheets
Range("A2:I15").Select
Selection.Copy
Windows("Auswertungmakro.xlsm").Activate
Range("A9").Select
ActiveSheet.Paste
End With
End Sub
-> Dieses Makro ist dafür dar die ersten vier Spalten aus dem einen file rauszuziehen. Ich bekomme einen Laufzeitfehler und Merkwürdigwerweise schriebt das Makro beim neu geöffneten file die ersten vier spalten in die erste Spalt (wiso denn das?)Mein zweites Makro schaut wiefolgt aus:
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