Gleicher Code, auf einem PC Fehler, auf dem anderen nicht....
06.12.2019 10:52:56
Marc
ich habe einen Programmcode mit dem Makrorecorder aufgenommen und auf meinem PC ausgeführt.
Hier funktioniert alles. Auf einem anderen PC läuft er bei der Zeile
.Refresh BackgroundQuery:=False
auf einen Fehler.
Hier der Code:
Sub Test ()
If Range("C3") Nun dachte ich, ok.... Nehme ich die gleiche Geschichte nochmal auf dem anderen PC auf. Folgendes war das Ergebnis:
Sub Makro1()
' Makro1 Makro
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\c:\temp\test.csv" _
, Destination:=Range("$A$1"))
'.CommandType = 0
.Name = "Bestand - Kopie"
.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(2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ende vom Lied ist, dass ihr Code funktioniert. Meiner nicht.... Ich habe auch ihren Code in meinen reinkopiert, weil ich dachte, ich hätte etwas übersehen. Aber es bietet sich das gleiche Bild....
Was mache ich falsch?
Lieben Gruß
Marc