Supportnet / Forum / Tabellenkalkulation

Hallo :) brauch mal wieder eure Hilfe, ich habe eine Datei mit einer wurscht von Daten.... mit hilfe der Textkonventierung (Feste breite) kann ich die Spalten festlegen die ich brauche ... es sind immer die selben Spalten ... kann man die irgendwie im assistenten so einstellen das es gleich die richtigen spalten "einzeichnet"? Danke und Lg Mario p.s. mit getrennte Breite/Tabstob+Semikolon funktionierts leider auch nicht bzw. mit dem überhaupt net ....

Hallo,

normalerweise funktioniert das bei importierten Daten automatsch und du bekommst eine Einstellungstabelle zur Verfügung gestellt.

Da die Angabe "Daten impotieren" o.ä. bei den Excel-Versionen unterschiedlich angeordnet sind, musst du mal bei deiner Version suchen

Gruß

Helmut

hallo, danke für die RE

es gibt die möglich keit die Tabellen meinen bedürfnissen nach zu defnieren, doch leider müsste ich das jedes mal machen - kann man das nicht irgendwie einstellen, das immer die gleichen tabstops genommen werden?

Lg

Hallo,

versuches mal ein >Makro aufzuzeichnen

Gruß

Helmut

p.s. nur ein Vorschlag, habe es selbst für einen solchen Fall noch nicht ausprobiert. Ergebnis würde mich auch intressieren. M.E. müsste es machbar sein

hallo Helmut,

mit einem Makro würde es zwar schon gehn, nur würde mir ja dann immer nur die SELBE datei aufgemacht werden die ich beim makro aufzeichne.

ich müsst immer eine andre datei - nach dem selben prinzip - öffnen.....

Hallo,

hier ein LösungsaHallo,

schau dir mal die AW 2 an, ein Lösungsansatz.

https://supportnet.de/threads/1395501

Gruß

Helmut

Hallo New123,

nachfolgend mal als Lösungsansatz ein Makro, dass vor dem Importieren ein Dialogfenster öffnet, in dem man eine Datei auswählen kann. Nach der Auswahl wird die Datei importiert. Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltläche.

Option Explicit

Sub Einlesen()
Dim ReadFile As Variant
Rem: Dialog öffnen auf Basis von *.* Files
ReadFile = Application.GetOpenFilename("Alle Dateien(*.*),")
Rem: Wenn Abbruchtraste beatätigt wurde
If ReadFile = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ReadFile, _
    Destination:=Range("A1"))
    .TextFileParseType = xlFixedWidth
    .Refresh BackgroundQuery:=False
End With
End Sub

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hallo :)

Danke für eure RE´s

oliver .... hab es in den Ediort ins Modul reinkopiert funktioniert auch soweit nur wenn ich die gewünschte Datei anklicke und auf öffnen geh kommt dann folgende Fehlermeldung:


Systemfehler & H80070057(-2147024809). The parameter is incorrect.

muss ich bei deinem Makro noch irgendwas ändern ?


noch eine Frage: wenn ich die datei dann öffnen kann müsste ich ja beim importieren ja wieder MANUELL die Tabstobs setzten - um das es mir ja ursprünglich gegangen ist ....

denn es sind immer die selben tabstops aber immer eine andre datei - kann man das im excel bei der textkonventrierung nicht so einstellen das immer die selben tabstops genommen werden ?

Lg

Hallo New123,

welche Zeile in dem Makro wird gelb markiert, wenn der Fehler auftritt?

Wieso TabStops? Du hast in Deiner Frage folgendes geschrieben



Beim Importieren der Daten in fester Breite gibt es keine Unterscheidungen für Trennzeichen. Das gibt es nur, wenn man "Getrennt" im Assistenten auswählt. Was möchtest Du denn nun?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hallo,

sorry hab mich blöd ausgedrückt .... ich meinte die ganze zeit das mit getrennte Breite - und das ich dann eben immer die selben breite einstellen muss.

weil die daten in einer langen wurscht sind .... kann man das nun so einstellen das ich immer die selben tabstops habe ohne sie manuell zu bestimmen?

Danke und Lg?

ohne sie jedes mal - manuell zu bstimmen - weil es ist immer eine andre datei, mit dem selben format- damit mein ich das die daten die ich brauch immer in einer laaaangen wurscht sindt....

Hallo New123,

was sollen den alles für Trennzeichen berücksichtigt werden? Nur Tab oder auch Komma, Semikolon, Punkt .....?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

ich hab dir zum besseren Verständnis hab dir eine Beispieldatei auf "info@excelbeispiele.de"

da das netuplod zurzeit net funktioniert...

hoffe du kannst mir helfen :-(

Lg

Hallo New123,

sorry, ich habe keine Mail von Dir erhalten. Kann aber sein, dass mein Spamfilter den ausgesiebt hat, jenachdem, was Du für einen Betreff oder eventuell sogar gar keinen angegeben hast oder wie Deine E-Mailadresse lautet. Mein E-Mail-Spamfilter filtert alles mögliche heraus, was ihm nicht koscher erscheint. Habe ich aber mit Absicht so eingestellt.

Aber nun zu Deinem Problem: Zeichne Dir doch einfach mal das Makro mit den Einstellungen für den Textassistenten auf. Du erhälst einen Code, in dem Du nur die beiden Zeilen der With-Anweisung, die z.B. nach dem Aufzeichnen folgendermaßen aussehen könnten

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;D:\Neu Textdokument.txt", Destination:=Range("A1"))

gegen die Zeilen

Dim ReadFile As Variant
Rem: Dialog öffnen auf Basis von *.* Files
ReadFile = Application.GetOpenFilename("Alle Dateien(*.*),")
Rem: Wenn Abbruchtraste beatätigt wurde
If ReadFile = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ReadFile, _
Destination:=Range("A1"))

austauschen müsstest.

Ich hoffe, Du kommst klar.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi ... hab dir am MIttwoch nochmal die Mail geschickt ..hoffe sie ist diesesmal angekommen - habe auch die atomatische Antwortmail bekommen...

ich schau mal gleich ob das Makro funktioniert.

Danke und Liebe Grüße Mario

• Das Beschreiben von CD funktioniert nicht, der Assistent öffnet sich nicht!
• Assistent zum Schreiben von CD
• bluetooth assistent mehrere dateien gleichzeitig
• Assistent für cd Brennen
• Hardware Assistent