Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten aus einzelnen csv. files in ein neue Arbeitsmappe kopieren
 15.05.2016 22:17:48 Gast93266
NotSolved
15.05.2016 22:45:33 Gast99028
NotSolved
15.05.2016 22:52:35 Gast72039
NotSolved
16.05.2016 14:24:37 Gast5980
NotSolved

Ansicht des Beitrags:
Von:
Gast93266		 Datum:
15.05.2016 22:17:48		 Views:
1322		 Rating:
     
Antwort:
  Ja
Thema:
Spalten aus einzelnen csv. files in ein neue Arbeitsmappe kopieren

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten aus einzelnen csv. files in ein neue Arbeitsmappe kopieren
 15.05.2016 22:17:48 Gast93266
NotSolved
15.05.2016 22:45:33 Gast99028
NotSolved
15.05.2016 22:52:35 Gast72039
NotSolved
16.05.2016 14:24:37 Gast5980
NotSolved