ich mache einen Import aus einer csv in ein Tabellenblatt meiner Anwendung dies funktioniert auch ohne Probleme.
Nun möchte ich zur besseren Übersicht haben das der Import nicht in die ersten Zeile geschrieben wird sondern erst in die zweite Zeile damit ich noch eine Überschrift darüber schreiben kann.
Momentan sieht mein Code so aus:
Sub ImportCSV()
Dim Dateiname
Dim Ws As Worksheet
Sheets("Eingabe").Select
Range("I6:I75").Select
Selection.ClearContents
Sheets("Importseite").Select
Rows("1:1").Select
Selection.ClearContents
Sheets("Kundendaten").Select
Set Ws = ActiveWorkbook.Sheets("Importseite")
Dateiname = Application.GetOpenFilename("Textdateien,*.csv")
If Dateiname False Then
Application.ScreenUpdating = False
Workbooks.OpenText Filename:=Dateiname, DataType:=xlDelimited, Local:=True
ActiveSheet.UsedRange.Copy Ws.Cells(1)
ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
End Sub
Stehe da irgendwie gerade auf dem Schlauch :-(Danke für die Hilfe vorab
Gruß Jürgen