Es wurden keine Daten zur Analyse makiert. ?
16.07.2014 08:32:36
Dennis
Ich habe da ein kleine Problem.
Ich habe diesen Code, der mein Importiertes Ascii-blatt Formatiert:
Sub CommandButton4_Click()
Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=True, _
Comma:=False, _
Space:=True, _
Other:=False, _
TrailingMinusNumbers:=False
End Sub
Dieser Code Funktioniert wunderbar wenn man ihn direkt auf dem Worksheet (also in das Codefenster von "Tabelle 2" reinschreibt. Und ihn dann dort Ausführt)Das Problem ist jetzt leider das Tabelle 2 immer neu Erstellt wird(da es wechselnd Ascii Datein einliest). Das heißt der Code kann da leider nicht stehenbleiben. Deshalb habe ich mir überlegt in Tabelle 1 einen CommandButton einzufügen. Gesagt Getan. Code in den Button Intregiert... "Bam" erster Fehler. Habe den Code dann so Editiert:
Sub CommandButton4_Click()
Sheets(Tabelle2).Activate
Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=True, _
Comma:=False, _
Space:=True, _
Other:=False, _
TrailingMinusNumbers:=False
End Sub
Erste Fehler wurde behoben. Ein zweiter Fehler taucht nun auf.Tabelle2 wird nun ausgewählt. Der Befehl wird ausgeführt und gibt nun den Laufzeitfehler '1004' an. Es wurden keine Daten zur Analyse makiert.
Der Debugger Verweißt auf die Zeilen "Columns("A:A").TextToColumns Destination:=Range("A1"), _" bis "TrailingMinusNumbers:=False" also alles unter
"Sheets(Tabelle2).Activate".
Nun Frag ich mich woran das liegen könnte? Könnte mir da Vielelicht jemand Helfen bzw. mit Rat und Tat zur Seite stehen?
Gruß Dennis