Hallo
Kann man den folgenden Code ändern?
1. nur eine bestimmter bereich soll kopiert werden und in den Zielort in der selben
stelle eingefügt werden. (z.B: $A:$G)
2. Zielort soll das aktuelle Tabellenblatt sein ..
Option Explicit
Sub Datenimport()
Dim Importdatei$, Verzeichnis$, aktiver_Blattname As String
Application.ScreenUpdating = False
aktiver_Blattname = ActiveSheet.Name
Sheets("C-1012").Activate
Cells.ClearContents
Verzeichnis = "C:\"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Exceldateien (*.csv), *.csv")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
Sheets(aktiver_Blattname).Activate
End Sub