Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textimport in Excel (Zeilenweise)

Forumthread: Textimport in Excel (Zeilenweise)

Textimport in Excel (Zeilenweise)
Matthias
Hallo,
da ich leider noch keine VBA-Kenntnisse habe wende ich mich an Euch.
Ich habe folgendes Problem:
Aus der Daten https://www.herber.de/bbs/user/69745.txt sollen Zeilenweise die Werte ausgelesen werden, d.h. zu Beginn einmal die Zeile A im Excel Sheet mit den "Überschriften" befüllen und danach dann jeweils die Werte unterhalb der entsprechenden Überschrift schreiben.
Das Excel-File soll am Ende so aussehen:

Die Datei https://www.herber.de/bbs/user/69746.xls wurde aus Datenschutzgründen gelöscht


Ich hoffe ihr versteht, was ich meine und könnt mir weiterhelfen.
Das Text-File hat ca 100.000 Zeilen die sich immer wieder wiederholen, manchmal stehen Werte hinter den "Überschriften" manchmal nicht. Wenn nichts dran steht, soll auch nichts reingeschrieben werden.
Es soll sozusagen 1:1 importiert werden.
Grüße und besten Dank im Voraus
Matthias
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ohne VBA
26.05.2010 15:37:52
ChrisL
Hi Matthias
Beispiel im Anhang:
https://www.herber.de/bbs/user/69748.xls
Erstmal über Menü Daten, Text in Spalten (Trennzeichen ":"). Danach mit Formel...
=INDEX('Text in Spalten'!$1:$65536;(((ZEILE()-1)*91)-90)+SPALTE()-1;2)
Bei 100'000 Zeilen müsstest du es halt in 2 Tranchen machen.
cu
Chris
Anzeige
AW: ohne VBA
26.05.2010 16:49:00
Matthias
Hallo Chris,
vielen Dank!
Dein Code funktioniert ... zum Teil.
Also die Übernahme klappt, jedoch werden einige Zahlen als 4,97144E+11 und so dargestellt. Der Fehler liegt dabei aber schon beim einlese
Und durch das ganze "Copy+Paste" habe ich zwar Zeit gewonnen, aber es ist immernoch nicht optimal, da immer wieder solche Dateien kommen und dort dann, meiner Meinung nach, ein Makro optimal wäre, da man dies nur einmal wieder anschupsen muss und dann werden die Daten übernommen.
Ich hoffe das es auch möglich ist, dies als VBA zu realisieren.
Gruß
Matthias
Anzeige
AW: Textimport in Excel (Zeilenweise)
26.05.2010 17:34:13
David
Hallo Matthias,
auch keine VBA-Lösung, aber immerhin ohne weitere Datenaufbereitung:
https://www.herber.de/bbs/user/69751.xls
Deine einzige "Arbeit" wäre es, die Textdatei zu öffnen, alles zu markieren und per Copy and Paste in das Blatte 'Daten' einzufügen. Die Auswertung würde sich dann anpassen.
Die Hilfsspalte könnte man theoretisch in die Formeln integrieren, bei 10000 DAtensätzen würde aber jedem Rechner die Puste ausgehen, deshalb stehen lassen und ausblenden.
Ich war mir nicht sicher, ob die Struktur selbst immer gleich ist, deswegen habe ich die Überschriftenspalte noch einigermaßen variabel gestaltet. Falls das nicht nötig ist, vielleicht einfach die Werte reinkopieren.
Gruß
David
Anzeige
AW: Textimport in Excel (Zeilenweise)
27.05.2010 08:21:25
Matthias
Hallo David,
vielen Dank für deine Hilfe.
Das klappt soweit einwandfrei!
Es ist etwas weniger "Arbeit" als die Lösung von Chris, das stimmt.
Gruß
Matthias
AW: Textimport in Excel (Zeilenweise)
26.05.2010 21:27:20
Anton
Hallo Matthias,
probier sowas:
Code:

Sub b()
  Dim fs, a, i, j, strzeile, pos, pfad
  pfad = "E:\tmp\69745.txt" 'anpassen
  Set fs = CreateObject("Scripting.FileSystemObject")  
  Set a = fs.OpenTextFile(pfad, 1, False)  
  j = 2
  Do While a.AtEndOfStream <> True    
    strzeile = a.ReadLine
    i = 1
    If Left(UCase(strzeile), 5) = "TITLE" Then  
      pos = InStr(1, strzeile, ":")
      Cells(1, i) = Left(strzeile, pos + 1)
      Cells(j, i) = Mid(strzeile, pos + 1)
      Do
        i = i + 1
        strzeile = a.ReadLine
        If strzeile = "" Then Exit Do    
        pos = InStr(1, strzeile, ":")
        Cells(1, i) = Left(strzeile, pos + 1)
        Cells(j, i) = Mid(strzeile, pos + 1)
      Loop
      j = j + 1
    End If  
  Loop
  a.Close
  Set fs = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Textimport in Excel (Zeilenweise)
27.05.2010 08:22:05
Matthias
Hallo Anton,
herzlichen Dank für deine Bemühungen.
Das ist genau das, was ich gesucht habe. Es funktioniert einwandfrei.
Super.
Grüße
Matthias
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige