Import und Kopie aus Datei in Tabellenblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Aufnahme2() ' Aufnahme mit Makro ' Beschreibung der Aufnahme ' Variablen Dim Datei_mit_pfad As Variant Datei_mit_pfad = Application.GetOpenFilename() If Datei_mit_pfad = False Then MsgBox "Cancel.", vbInformation Else Workbooks.Open Filename:=Datei_mit_pfad Columns("A:A").Select Range("A:A").Activate 'Bereich abgeändert Selection.Copy 'Application.Left = -16.4 ' nicht notwenig denke ich 'Application.Top = 220 ' nicht notwenig denke ich Application.DisplayAlerts = False ' Meldungen ab hier deaktivieren ActiveWindow.Close Sheets("Tabelle_x").Select Range("H:H").Select 'ActiveWindow.SmallScroll Down:=-21 ' nicht notwenig denke ich Columns("H:H").Select ActiveSheet.Paste Application.DisplayAlerts = True ' Meldungen ab hier wieder aktivieren Sheets("Tabelle_y").Select End If End Sub

Option Explicit Sub Aufnahme2() ' Aufnahme mit Makro ' Beschreibung der Aufnahme ' Variablen Dim Datei_mit_pfad As Variant Datei_mit_pfad = Application.GetOpenFilename() If Datei_mit_pfad = False Then MsgBox "Cancel.", vbInformation Else Workbooks.Open Filename:=Datei_mit_pfad Columns("A:A").Range("A:A").Copy _ ThisWorkbook.Sheets("Tabelle_x").Range("H1") End If ActiveWorkbook.Close False End Sub

Hallo Chris,
hier muss man für einen sauberen Ablauf die involvierten Objekte (Dateien/Tabellenblätter) durchgängig deklarieren.
Abhängig davon, ob in der CSV Semikolon (Deutsch) oder Komma (US) als Trennzeichen für Spalten verwendet werden musst du den Parameter "Local" auf True oder False setzen.
Bei Zahlenwerten wird Komma (Deutsch) bzw. Punkt (US) als Dezimalzeichen interpretiert.
LG
Franz

Sub Daten_aus_CSV_einlesen()
Dim wkbZiel As Workbook, wksZiel As Worksheet
Dim wkbCSV As Workbook, wksCSV As Worksheet
Dim varDatei As Variant
varDatei = Application.GetOpenFilename(Filefilter:="CSV-Dateien(*.csv),*.csv", _
Title:="Bitte CSV-Datei mit Import-Daten auswählen")
If varDatei = False Then GoTo Beenden
Set wkbZiel = ActiveWorkbook
Set wksZiel = wkbZiel.Worksheets(2) 'oder Worksheets("Tabelle 2")
Set wkbCSV = Application.Workbooks.Open(varDatei, ReadOnly:=True, Local:=True)
Set wksCSV = wkbCSV.Sheets(1)
With wksCSV
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy
End With
With wksZiel.Range("H1")
.PasteSpecial Paste:=xlPasteValues 'evtl. xlPasteAll
.EntireColumn.AutoFit
End With
Application.CutCopyMode = False
wkbCSV.Close savechanges:=False
Beenden:
Set wkbZiel = Nothing: Set wksZiel = Nothing
Set wkbCSV = Nothing: Set wksCSV = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Import und Kopie aus Datei in Tabellenblatt

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread