Mit Deinem Vorschlag bin ich genau an das gewünschte Ziel gekommen. Hab vielen Dank dafür! Vielen Dank auch an alle anderen, die mir mit ihren Tipps wieder gute Ansätze gegeben haben! Viele Grüße Dimo Grüezi dimo Post by d*** Eine Zeile, so wie ich sie aus dem Textfile bekomme, sieht sinngemäß no Ich nehme an, dass das 'no' ebenfalls in die Zeile gehört? Post by d*** Das ganze in einem String und entsprechend so mit Leerzeichen aufgefüllt, dass bei ausgabe in einer Dosbox der dsquery eine "vernünftige" Tabelle darstellt. Wenn die Text-Datei tabellarisch aufgebaut ist, gehe ich davon aus, dass jede 'Spalte' an derselben Stelle beginnt, sprich jeweils nach 0, 20, 40 usf. Vba split mehrere trennzeichen die. Zeichen? Dann könntest Du ebenfalls mit 'Text in Spalten' nach fester Spaltengrösse aufteilen. Ev. hilft dann auch ein anschliessendes Trimmen der Daten zum Entfernen von übrig gebliebenen Leerzeichen. Das Ganze klappt natürlich auch per VBA - zeichne den Vorgang einfach mal mit dem Makro-Recorder auf. Mit freundlichen Grüssen Thomas Ramel (@work) -- - MVP für Microsoft-Excel - [Win XP Pro SP-2 / xl2003 SP-1] Microsoft Excel - Die ExpertenTipps Hallo Dimo!
Was mir jedoch direkt aufgefallen ist, dass er dies nicht in meine aktive Arbeitsmappe importiert, sondern eine neue erstellt. Nochmals schon mal Danke! hier wird es ins aktive Blatt verschoben: kleiner Tip am Rande: auch Excel hat eine so schöne Import-Funktion wie OO, bei der du mehrere Trennzeichen auswählen kannst. hierzu öffnest du die CSV-Datei nicht direkt, sondern importierst sie mit DATEN - EXTERNE DATEN ABRUFEN - AUS TEXT. Split String mit 5-stelligem Trennzeichen. dann bekommst du erst einen File-Öffnen-Dialog und danach den Assisten wie in OO. kann man natürlich auch in einem Makro verwenden, der Recorder ist dein Freund. Gruß Daniel Erstmal lieben Dank für die zahlreichen Hilfen und Tipps. Zu dem Code hätte ich eine Verständnisfrage. Er funktioniert prima, aber ich will ja wissen erlangen und ich kann mit folgender Codezeile nichts anfangen bzw. bin mir nicht 100%ig sicher Code: Sehe ich es richtig, dass er hier eine neue Arbeitsmappe erstellt und dann den Inhalt von dort in meine aktive Mappe kopiert und die neue dann schließt ohne zu Speichern?
TextToColumns (1), DataType:=xlDelimited, _ Semicolon:=True, Comma:=False, Space:= False, Other:=False, FieldInfo:= _ Array(Array(1, 5), Array(2, 1), Array(3, 1)), DecimalSeparator:=". " 13. 2014, 15:28 # 14 Das sollte auf die Funktion keinen Einfluss haben. Hat das Array mehr Einträge als die Zeile Spalten, so werden die überzähligen Arrayswerte ignoriert, gibt es mehr Spalten als Array-Einträge, so wird für die überzähligen Spalten der Typ "Standard" verwendet. Vba split mehrere trennzeichen pdf. 13. 2014, 15:33 # 15 Registrierung: 15. 2014.. spielt aber schon eine Rolle. Warum funktioniert es mit OpenText nicht?
Abb. 2 Nach Ausführung des Makros wurde jeder einzelne Wert der Zellen A4 bis A7 ausgelesen und ab Zelle C4 nacheinander eingetragen. Wenn im Datenbereich ein anderes Trennzeichen, als im Beispiel das Semikolon verwendet wird, kann dies ganz einfach im VBA-Code geändert werden. Erfassen Sie dazu einfach in dieser VBA-Zeile ein anderes Trennzeichen, z. das Komma. strTrennzeichen = ", " 'Trennzeichen festlegen z. Komma(, ) Semikollon(;) Bindestrich(-) etc. VBA - Split-Funktion. Drucken E-Mail
2011 00:00:00;Abteilung;LOL;RandomText:;RandomText;;;" Dim v As Array = Split(quelltext, ";") For i As Integer = 0 To UBound (v) Dim link As String = Split(v(i), ";")( 0) If Not link = Nothing Then ' Wenn Link nicht nichts ist ^^ If ntains( ", ") Then 'Wenn der Link komma enthält gleich Splitten (0) & (1) Dim vornachname() As String = ( ", ") ' beim komma Splitten MsgBox(vornachname( 0) & vbNewLine & vornachname( 1). Replace( " ", "")) 'Replace zwecks leerzeichen entfernen MsgBox(link) Next Geht natürlich alles etwas schöner.... aber funktioniert soweit. Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von " Bady " ( 25. November 2011, 12:07) Wenn du bei jedem; Splittest erhältst du aus dem ersten Resultat: Das ist es ja, aber die ersten 2 sind nicht zusammen sondern sind getrennt. Ich bekam also nur Vorname obwohl das mit einem ", " und nicht ";" getrennt war. Wie dem auch sei. Vba split mehrere trennzeichen internet. Ich habe es nun dank eurer Hilfe FAST fertig gebracht. Nur etwas ist beim Einlesen der Datei etwas komisch.
Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt Teilen Sie Textzeichenfolgen mit Kutools for Excel durch Leerzeichen / Komma / Trennzeichen in mehrere Zeilen / Spalten auf Die obige Methode kann nur Textzeichenfolgen in mehrere Spalten aufteilen. Diese Methode führt Kutools für Excel ein Zellen teilen Dienstprogramm zum einfachen Aufteilen von Textzeichenfolgen in mehrere Zeilen oder Spalten durch ein bestimmtes Trennzeichen in Excel. Split-Funktion mit mehreren (identischen) Trennzeichen hintereinander. Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Kostenlose Testversion jetzt! 1. Wählen Sie den Bereich aus, in den Sie Textzeichenfolgen teilen möchten (in unserem Fall wählen wir den Bereich A1: A9 aus), und klicken Sie auf Kutoolen > Text > Zellen teilen. 2. Aktivieren Sie im sich öffnenden Dialogfeld Geteilte Zellen die Option In Zeilen teilen Option oder In Spalten teilen Optionen, wie Sie in der Typ Geben Sie als Nächstes ein Trennzeichen im Feld an Geben Sie ein Trennzeichen an Abschnitt und klicken Sie auf Ok Taste.
Schritt 2: Ein Projektfenster wird angezeigt. Klicken Sie auf Blatt 1, um das Codefenster zu öffnen. Schritt 3: Wenn das Codefenster angezeigt wird, deklarieren Sie eine Unterfunktion, um mit dem Schreiben des Codes zu beginnen. Code: Sub Sample () End Sub Schritt 4: Deklarieren Sie zwei Variablenarrays und eines als Zeichenfolgen A und B. Code: Sub Sample () Dim A As String Dim B () As String End Sub Schritt 5: Speichern Sie den Wert der Zeichenfolge in A. Code: Sub Sample () Dim A As String Dim B () As String A = "ANAND IST EIN GUTER JUNGE" End Sub Schritt 6: Speichern Sie in Feld B den Wert von A mit der Teilungsfunktion wie unten gezeigt. Code: Sub Sample () Dim A As String Dim B () As String A = "ANAND IST EIN GUTER JUNGE" B = Split (A) End Sub Schritt 7: Verwenden Sie For Loop, um jede Zeichenfolge zu unterbrechen. Code: Sub Sample () Dim A As String Dim B () As String A = "ANAND IST EIN GUTER JUNGE" B = Split (A) For i = LBound (B) To UBound (B) strg = strg & vbNewLine & "String Number "& i &" - "& B (i) Next i End Sub Schritt 8: Zeigen Sie es mit der Funktion Msgbox an.