(A) - Laufzeitfehler 5 !!?? VB

[yannikst]

Hallo.

Ich habe eine Excel-Datei dort soll eine zweite Tabelle eingefügt werden um dann eine Textdatei zu importieren. Dazu habe ich ein Makro aufgezeichnet. Aber leider kommt bei der Ausführung immer "Laufzeitfehler 5 - Ungültige..." !? Ich finde den Fehler nicht, warum funzt das nicht ??

Hier der Code (Excel 2000, Win 2000):

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\blablabla\TextDatei.txt" _
, Destination:=Range("A1"))
.Name = "Zuordnung"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.Refresh BackgroundQuery:=False
End With

 

[gisberthannes]

Hi yannikst,

du musst diesen Code innerhalb der Arbeitsmappe platzieren. Am Besten in einer eigenen Prozedur.
Wenn du ActiveWorkbook.Worksheets.Add in einem Tabellenmakro aufrufst kommt es zu dem Fehler 5.
Probiere es mal bitte aus !

Viele Grüße

 

[yannikst]

Hi !

Jo, danke das hat gefunzt, aber jetzt kommt der nächste Bug:

Und zwar habe ich dann später im Code noch folgende:

...Tabelle2.Cells(2,2).value <> ""... (halt ne Schleife)

Es kommt dann immer die Meldung "Variable nicht definiert" und er färbt dabei "Tabelle2" gelb ein !?? Die existiert, weil sie ja soeben angelegt wurde... (siehe oben).

Jetzt das kurriose: Wenn ich in den Code gehe und mit F8 Schritt für Schritt durchgehe, dann funzt es !!??!!

 

[gisberthannes]

Hi du,

kannst du mir vllt. mal die Datei uppen,

so is das schwer zu sagen.

Grüße

 

[garfield]

Etwas mehr Speck um die fehlerhafte Zeile herum würde enorm helfen!
Grüess