ich habe probleme mit einer macro Aufgabe. Ich bin dabei ein Makro zuschreiben )mit recorder und Code schnipseln das mir Bereiche einer csv Datei in Bereiche der geöffneten Excel Tabelle einfügen soll:
Problem ich bekomme nach der Datei auswahl kein kopieren hin - kann mir jemand helfen - Tausend _
Dank dafür schon mal!!!!
Private Sub CSV_Insert_Click()
Windows("Messwerte u. Berechnung.xls").Activate
Range("D10:F30000").Select
Selection.ClearContents
Dim CSVfile As Variant
CSVfile = Application.GetOpenFilename(FileFilter:="CSV-Dateien (*.csv), *.csv", MultiSelect: _
_
_
_
_
_
_
_
_
=False)
Workbooks.Open Filename:=CSVfile, Local:=True
Range("D9:D20000").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Messwerte u. Berechnung.xls").Activate
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Windows("Export.csv").Activate
Range("J9:J20000").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Messwerte u. Berechnung.xls").Activate
Range("E10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Windows("Export.csv").Activate
Range("M9:M5765").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Messwerte u. Berechnung.xls").Activate
Range("F10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Range("E11").Select
End Sub