AW: Zellen als Text formatieren
10.03.2010 09:59:08
Roger
Hallo Daniel,
danke für Deine Antwort. Den Import erledige ich mit folgendem Makro:
Sub ImPort()
Dim v As Variant
Dim w As Variant
v = Application.GetOpenFilename
w = "TEXT;" & v
With ActiveSheet.QueryTables.Add(Connection:=w, Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Generell wird alles wie gewünscht als Text interpretiert - nur mit ein paar Ausnahmen, die ich mir nicht erklären kann. Da nur Text mit Spiegelstrichen betroffen ist, liegt der Verdacht nahe, dass das Problem durch dieses "Minuszeichen" verursacht wird. Die Frage ist nur, warum taucht das Problem in einigen Fällen auf, in anderen nicht?
Gruß
Rüdiger