Import Zeilen aus Textdatei in Excel Spalten

[Storax]

Kein Thema, wenn Du nicht mit VBA dienen kannst.
Aber dann solltest Du dem OP vielleicht nicht empfehlen, per Makrorekorder seine Aktionen aufzuzeichnen in der Hoffnung, das wird schon jemand sonst verbessern.

Er zeichnet dann so etwas wie das hier auf, weil das eine Formel ist, die man ihm genannt hat. Das hat erstmal nichts mit seinem Problem zu tun.

Code:

  Range("B1").Select
  ActiveCell.FormulaR1C1 = _
      "=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-1],""="",""#""),"","",""#""),"";"",""#""),"")"",""#""),""("",""#"")"

Beispieldatei mit mehr als nur einem Datensatz wäre IMHO wesentlich hilfreicher gewesen, aber der OP wollte ja meinem Tipp nicht folgen.

[sunny01]

Hallo,

beiliegend ist eine Datei mit Beispielen der Datensätze. Als die sechs Trennzeichen gelten = (  ((  (  )) , Das Problem ist, dass das Dokument tausende derartige Datensätze hat und deshalb die Trennung der einzelnen Textteile in separate Spalten recht rasch funktionieren sollte.

[Storax]

Wo ist die Text-Datei, die Du importieren willst?
In der Excel Datei hast Du doch schon irgendwie die Daten importiert und das ggf. "vergurkt"
Anbei das Ergebnis

[WillWissen]

Hi Sunny,

ich wiederhole noch einmal meinen Vorschlag.

• Kopiere diese Formel
  
  Code:

  =WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"=";"#");"(";"#");")";"#");";";"#")
• in die ZelleB1. Es wird auch noch das letzte Semikolon in den Datensätzen entfernt
  
• Doppelklick auf das Ausfüllkästchen rechts unten
  
• Ganze Spalte B markieren, kopieren und in Spalte A als Werte einfügen
  
• Spalte A markiert lassen, Text in Spalten mit den bekannten Parametern
  
• Fertig
  

Zeitbedarf bei 5000 Datensätzen mit einmal einkopierter Formel: 16:07 Sekunden!!!

Ist das schnell genug?

[Storax]

Die Formel funktioniert nicht, denn es werden am Ende # angefügt und die Ausgabe erfolgt in eine Zelle.

[WillWissen]

Und wieso nicht, Storax?

Tabelle1 (2)

	A	B	C	D
1	#320= DATA01('GrossFloorArea',$,$,51.3206214331);	320	DATA01	'GrossFloorArea',$,$,51.3206214331
2	#321= DATA02('NetFloorArea',$,$,51.3206214331);	321	DATA02	'NetFloorArea',$,$,51.3206214331
3	#322= DATA03('SpaceNetFloorAreaBOMA',$,$,51.3206214331);	322	DATA03	'SpaceNetFloorAreaBOMA',$,$,51.3206214331
4	#323= DATA04('SpaceUsableFloorAreaBOMA',$,$,51.3206214331);	323	DATA04	'SpaceUsableFloorAreaBOMA',$,$,51.3206214331
5	#324= DATA05('GrossCeilingArea',$,$,51.3206214331);	324	DATA05	'GrossCeilingArea',$,$,51.3206214331
6	#325= DATA06('NetCeilingArea',$,$,51.3206214331);	325	DATA06	'NetCeilingArea',$,$,51.3206214331
7	#326=DATA07('GrossWallArea',$,$,0.);	326	DATA07	'GrossWallArea',$,$,0.
8	#327= DATA08('NetWallArea',$,$,0.);	327	DATA08	'NetWallArea',$,$,0.
9	#328= DATA09('GrossPerimeter',$,$,29.3504193688);	328	DATA09	'GrossPerimeter',$,$,29.3504193688
10	#329= DATA10('NetPerimeter',$,$,29.3504193688);	329	DATA10	'NetPerimeter',$,$,29.3504193688
11	#330=DATA11('GrossVolume',$,$,174.490112873);	330	DATA11	'GrossVolume',$,$,174.490112873
12	#331=DATA12('NetVolume',$,$,174.490112873);	331	DATA12	'NetVolume',$,$,174.490112873

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Zur Veranschaulichung:

In Spalte A der Originaltext, in den Nachbarspalten das Ergebnis nach "Text in Spalten" Ich sehe am Ende kein Doppelkreuz! Du musst die Parameter bei Text in Spalten beachten, nachzulesen in #2

[Storax]

Ach so, jetzt raffe ich es.  Eine Lösung mit der Hand am Arm. Sorry, mein Fehler, ich habe einfach nur schnell "Copy & Paste" gemacht :22: und dann nicht mehr Text in Spalten usw. usf. ...
Aber das geht natürlich auch und wenn es um einen einmaligen Import geht, ist das sicher ausreichend.

Na mal sehen was der OP sagt. Da kommt sicher noch etwas, speziell was das ; am Ende soll.
Das kann man mit SplitMultiDelimsEX auch zu "behandeln", einfach ; als weiteren Separator hinzufügen.
Aber trotzdem komisch! Und wie sollen die Zahlen behandelt werden? Im Moment gebe ich nur Text aus!

PS Das Komma sollte doch auch ein Separator sein, oder???

[WillWissen]

Moin Storax,

PS Das Komma sollte doch auch ein Separator sein, oder???

da könntest du recht haben; ist ein wenig unglücklich in der Beschreibung platziert. Ich hatte es als Satzzeichen angesehen (wenn auch dann mit falsch beginnendem Nebensatz - aber da bin ich insgesamt gesehen, einigermaßen desillusioniert :32:).

Sollte das Komma als Separator gelten, muss es nur im Menü TiS angehakt werden.

Btw, die Zahlen werden auch als solche ausgegeben, wenn im Menü im dritten Schritt als Spaltenformatierung Standard gewählt ist:

Tabelle1 (2)

	B	C	D	E	F	G	H
2	321	DATA02	'NetFloorArea'	$	$	513.206.214.331	WAHR

Formeln der Tabelle

Zelle Formel H2 =ISTZAHL(B2)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8