Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

csv-Importe, Fehlersuche

csv-Importe, Fehlersuche
12.03.2019 08:00:38
EasyD
Hallo zusammen
ich bräuchte mal den detektivischen Spürsinn der Profis:
Ich importiere 2 csv Dateien in eine Excel-Mappe. Die beiden Importe kommen auf 2 verschiedene Blätter Import und Import2.
Auf einem weiteren Blatt habe ich Berechnungen angestellt, welche mit diesen importierten Daten arbeiten sollen. Mit dem einen Blatt klappen die Formeln ohne Probleme, mit den Daten auf Import2 habe ich ein Problem, welches ich nicht nachvollziehen kann.
Sämtliche Formeln auf meinem Berechnungsblatt, die auf das Blatt Import2 zugreifen, werden mit jedem Import (der findet wiederholt statt) um jeweils 2 Spalten nach rechts verschoben. Die Importe sind aber natürlich immer an der gleichen Stelle.
Im Code des Blattes mit den Formeln mache ich - nix!
Auf dem Blatt stehen nur Formeln, sonst passiert da überhaupt nichts.
Die folgenden 2 Codes laufen in der Prozedur nacheinander ab:

Sub ZGAST_import()
'die letzten BEIDEN Importe löschen
Sheets("Import").Range("A:L").ClearContents
Sheets("Import2").Range("A:AH").ClearContents
'BPK
Sheets("Import").Activate
Dim sFile As String
'Prüfen, ob die Reihenfolge für den Import eingehalten wurde
If Range("A1").Value = "Erstellungsdatum" Then 'dieses Wort steht nur in der xxx-Liste in Zelle  _
_
_
A1
MsgBox "Es handelt sich nicht um yyy-daten! Bitte die korrekte Reihenfolge für den Import    _
_
_
beachten !" & vbCrLf & _
"Die Prozedur bitte nochmal neu starten!", vbOKOnly, "Fehler!"
End
Else
'Datei zum Import auswählen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ActiveWorkbook.Path & "\"
.Filters.Add "Textdateien", "*.csv", 1
.FilterIndex = 1
If .Show = -1 Then
sFile = .SelectedItems(1)
Else
'Abbrechen falls keine Datei ausgewählt
MsgBox "Keine daten zum Import ausgewählt! Datei wird geschlossen.", , " _
Abbruch"
ActiveWorkbook.Close savechanges:=False
Application.Quit
End If
End With
If sFile  "" Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & sFile, destination:=Range("A1"))
.Name = "Importdatei"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
End If
End Sub
Sub ZGAST_import2()
'AAG
Dim sFile As String
Sheets("Import2").Activate
'Prüfen, ob die Reihenfolge für den Import eingehalten wurde
If Range("A1").Value = "Erstellungsdatum" Then 'dieses Wort steht nur in der xxx-Liste in Zelle  _
_
_
A1
'Datei zum Import auswählen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ActiveWorkbook.Path & "\"
.Filters.Add "Textdateien", "*.csv", 1
.FilterIndex = 1
If .Show = -1 Then
sFile = .SelectedItems(1)
Else
'Abbrechen falls keine Datei ausgewählt
MsgBox "Keine Daten zum Import ausgewählt! Datei wird geschlossen.", , " _
Abbruch"
ActiveWorkbook.Close savechanges:=False
Application.Quit
End If
End With
If sFile  "" Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & sFile, destination:=Range("A1"))
.Name = "Importdatei"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
Else
MsgBox "Es handelt sich nicht um xxx-daten! Bitte die korrekte Reihenfolge für den Import  _
beachten!" & vbCrLf & _
"Die Prozedur bitte nochmal neu starten!", vbOKOnly, "Fehler!"
End
End If
End Sub

Kann da irgendjemand einen Fehler erkennen?
Auch nach diesen beiden Codes läuft in der Prozedur noch das ein oder andere ab, aber auch da kann ich beim besten Willen nicht erkennen, warum es mir die Formeln auf dem Berechnungsblatt zerkloppt. Mir wäre erstmal lieb zu wissen, dass in den beiden Codes oben nicht irgendein Problem drin ist....
Dank euch!

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

Betreff
Datum
Anwender
Anzeige
AW: csv-Importe, Fehlersuche
12.03.2019 08:22:28
EasyD
Edit:
da hätte ich mal vorher probieren sollen:
Ich kann ausschließen, dass der erste Import das Problem ist.
Habe gerade beide Codes manuell hintereinander gestartet.
Der erste ohne Fehler, der zweite bewirkt aber die Spaltenverschiebung. Ursache aber nach wie vor unklar...
AW: csv-Importe, Fehlersuche
12.03.2019 11:42:41
EasyD
Lasst mich die Frage nochmal etwas anders stellen:
ZGAST_import() läuft wie schon gesagt reibungslos. Wenn also auch in ZGAST_import2() kein Fehler zu finden ist, der Fehler aber genau nach Ablauf dieses Codes auftritt und in dem Blatt in dem ich die Berechnungen mit Bezug auf Import2 durchführe keinerlei Codes (kein worksheet_change oder sonstwas) ausgeführt werden....
was kann da als mögliche Fehlerursache noch in Betracht kommen? Ich weiß nicht mehr, wo ich noch suchen soll... Lasse ich den Code in Einzelschritten durchlaufen, gibts keine Probleme...
Anzeige
AW: csv-Importe, Fehlersuche
13.03.2019 15:20:09
EasyD
schade....
ich hab's immernoch nicht.
AW: csv-Importe, Fehlersuche
13.03.2019 16:44:47
PeterK
Hallo
Versuch mal xlOverwriteCells statt xlInsertDeleteCells
AW: csv-Importe, Fehlersuche
14.03.2019 12:20:50
Easyd
Ok. Ich versuche es und geb Bescheid. Heute abend. Danke erstmal

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige