|
Hallo, Ich habe ein Problem mit meinem Makro. Mein Ziel ist es aus einer unterschiedlichen Anzahl an csv files in einem Verzeichnis, immer die siebte und achte Spalte rauszukopieren und jeweils mit vier Spaltn Abstand in ein Auswerttungsfile zu schreiben(Makro Bauteil hinzufügen). Außerdem soll aus einem einzelnen anders benannten csv. file im selben Verzecihnis die ersten vier Spalten rauskopiert werden (Makro Grunddatenhinzufügen). Diese ersten vier Splaten sollen auch die ersten vier Spalten der neuen Arrbeitmappe werden. Mein Ansatz wäre fdas ich jedes Bauteil manuell auswähle und mit zwei Makros zwischen den file wo ich die ersten vier spalten rauszieh und den files wo ich die siebte und achte spalte rausziehe unterscheide, Mein code schaut wifolgt aus:
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
|