Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Trennen nach Zeichenlänge

Trennen nach Zeichenlänge
16.05.2006 09:50:21
StingerMKO
Hallo,
ich habe in Spalte A Kundennamen, die z.T. bis zu 60 Zeichen in haben.
Für ein Anschreiben möchte ich den Kundennamen trennen, so dass er auf 2 Spalten verteilt wird. Jetzt habe ich diese Formel über die Suchfunktion im Forum gefunden:
=TEIL($A$1;(SPALTE()-3)*40+1;40)
Hier trennt die Formel aber genau nach 30 Zeichen, d.h. auch mitten im Wort.
Ich möchte, dass zwischen 2 Wörtern getrennt wird.
Im Detail: Er soll prüfen, ob das 41. Zeichen ein Leerzeichen ist, wenn ja, kann er da trennen, wenn nicht soll er schon vor dem aktuellen Wort (das das 40./41. Zeichen enthält)trennen.
Geht das?
Vielen Dank im Voraus!
Gruß,
Malte

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trennen nach Zeichenlänge
16.05.2006 09:57:04
Mag
Hi,
A1: Text
B1: =TEIL(A1;1;FINDEN(" ";A1)-1)
C1: =TEIL(A1;FINDEN(" ";A1)+1;99)
Gruss
AW: Trennen nach Zeichenlänge
16.05.2006 10:07:24
StingerMKO
Hi Mag!
Sieht schon mal gut aus, nur hier gibt es folgendes Problem:
Beispiel Text: Firma Meier Müller Schulze Dienstleistungen GmbH & Co KG
Bei deiner Formel trennt er schon nach "Firma", d.h. er sucht das erste Leerzeichen.
Ich möchte aber, dass er das 40 Zeichen prüft Leerzeichen ja/nein?
Wenn ja, trenne beim 40. Zeichen, wenn nicht suche das erste Leerzeichen vor dem 40. Zeichen und trenne da.
In diesem Fall ist das 40. Zeichen im Wort "Dienstleistungen", hier soll die Trennung zwischen "Schulze" und "Dienstleistungen" passieren.
Hier also in Spalte B: "Firma Meier Müller Schulze"
UNd in Spalte C: "Dienstleistungen GmbH & Co KG"
Gruß,
Malte
Anzeige
AW: Trennen nach Zeichenlänge
16.05.2006 10:39:39
Mag
Hi,
die Tabellenfunktionen FINDEN oder SUCHEN suchen von links nach rechts. Schreibe Dir eine eigene Funktion und setze sie in ein Modul:
Option Explicit
Public 

Function Stelle(Rng As Range) As Integer
Dim i As Integer
i = 40
While i > 0 And Mid(Rng.Text, i, 1) <> " "
i = i - 1
Wend
Stelle = i
End Function

dann in B1:
=TEIL(A1;1;Stelle(A1)-1)
und in C1:
=TEIL(A1;Stelle(A1)+1;99)
Gruss
AW: Trennen nach Zeichenlänge
16.05.2006 10:25:51
bst
Morgen Malte,
via Formel: http://excelformeln.de/formeln.html?welcher=383
via UDF:
 
 ABC
1Firma Meier Müller Schulze Dienstleistungen GmbH & Co KGFirma Meier Müller SchulzeDienstleistungen GmbH & Co KG
2  Dienstleistungen GmbH & Co KG
3 26 
Formeln der Tabelle
B1 : =strRegExFind(A1;"^(.{1,30}) ")
C1 : =strRegExFind(A1;"^.{1,30} (.*)$")
C2 : =TEIL(A1;LÄNGE(B1)+2;LÄNGE(A1))
B3 : =LÄNGE(B1)
 

sowie in ein Modul:
Option Explicit

' Suchen in einer Zelle mit Regular Expressions
' Parameter:
' src Der String in dem gesucht werden soll
' SearchPattern Das zu suchenende Pattern
' IgnoreCase Flag, Groß- / Kleinschreibung ignorieren
' MultiLine Flag ob ^ und $ in jeder Zeile matchen
' Rückgabewert:
' den 1.ten SubMatch (das Geklammerte) bzw. den Match bzw. ""
'
Public Function strRegexFind(src As String, SearchPattern As String, _
        Optional IgnoreCase As Boolean = False, _
        Optional MultiLine As Boolean) As String
    
    Dim re As Object ' Ein Regular Expression Objekt
    Dim mc As Object ' Eine MatchCollection
    Dim ret As String ' Der Rückgabewert
    
    ret = ""
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = SearchPattern ' der/die/das Pattern
    re.IgnoreCase = IgnoreCase ' Groß-/Kleinschreibung ignorieren
    re.MultiLine = MultiLine ' ^ und $ matchen auf jeder Zeile
    re.Global = False ' es wird ja nur EIN Ergebnis geliefert !!!
    
    Set mc = re.Execute(src) ' RegEx ausführen
    If mc.Count > 0 Then ' mc.count = Anzahl der Matches
        If mc(0).SubMatches.Count > 0 Then ' mc(0).SubMatches.Count = Anzahl der SubMatches
            ret = mc(0).SubMatches(0) ' der 1. SubMatch
        Else
            ret = mc(0) ' der 1. Match
        End If
    End If
    strRegexFind = ret
    Set mc = Nothing
    Set re = Nothing
End Function



cu, Bernd
Anzeige
AW: Trennen nach Zeichenlänge
16.05.2006 10:49:07
StingerMKO
Hi Bernd!
Das ist ja super umfangreich und gleich mit mehreren Varianten.
Vielen Dank!
Ich habe mich für die Function entschieden, klappt super.
Das Formelbeispiel ist ein bisschen anders, als mein Ansatz und würde leider
zu lange dauern, die Formeln an meine Liste anzupassen.
Gruß,
Malte
AW: Trennen nach Zeichenlänge
16.05.2006 10:48:40
UweD
Hallo
so?
 
 A
13Firma Meier Müller Schulze Dienstleistungen GmbH & Co KG
14 
15Firma Meier Müller Schulze
16Dienstleistungen GmbH & Co KG
Formeln der Tabelle
A15 : =LINKS(A13;SUCHEN("#";WECHSELN(A13;" ";"#";LÄNGE(LINKS(A13;40))-LÄNGE(WECHSELN(LINKS(A13;40);" ";""))))-1)
A16 : =RECHTS(A13;LÄNGE(A13)-LÄNGE(A15)-1)
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Trennen nach Zeichenlänge
17.05.2006 10:02:11
StingerMKO
Hallo Uwe!
auch eine super Lösung mit Formeln!
Danke!
Gruß,
Malte

303 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Text an bestimmtem Zeichen trennen?
Kasimir

Hallo Leute,
ich benötige mal Eure Hilfe. Ich würde gerne über ein Makro den Zellinhalt teilen. In der Zelle können folgende Kombinationen vorkommen:
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2
oder
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2 -> Testei...
31.01.2009 08:38:28
Thread-ID: 1045576
3 Beiträge
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Anzeige
Excel 2003: Nach Leerzeichen trennen
Florian

Mahlzeit zusammen.
Folgende Aufgabenstellung versuche ich zu lösen:
Liste mitz ca. 5.000 Zeilen, bestehend aus Artikelnummer, Bezedichnung und Preis.
Die Länge der Datensätze ist unterschiedlich, die Anzahl der Leerstellen dazwischen auch.
Ich möchte nun die Artikelnummer (alph...
01.07.2009 14:35:01
Thread-ID: 1085734
6 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:19:17
Thread-ID: 1086598
9 Beiträge
Daten sortieren in String nach zeichen Array
chris

Hallo VBa Experten, ich muss euch heute mal wieder um Hilfe bitten.
ich habe einen Code(unten) dieser steckt in einer schleife (xx)
in dieser Schleifen füge ich namen hinzu.
In jeder zelle steht ein name und ein kürzel.Das kürzel kommt nach dem 2 leerzeichen.
Also z.b
"Chri...
06.10.2009 17:21:51
Thread-ID: 1107530
7 Beiträge
Zeichenbeschränkung in TextBox auf Userform?
Herbert

Hallo,
ich habe ein Problem, für das die Lösung vermutlich gar nicht so fern liegend ist, aber ich irgendwie gerade nicht drauf komme...
Ich habe also auf einer Userform eine TextBox in die ich auch schon mal längere Texte, in diesem Fall über 900 Zeichen inklusive Leerzeichen, eingebe...
18.02.2010 12:14:01
Thread-ID: 1139480
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
1
4
5
1
8
6
1
2
3
9
3
13
4
4
7
3
12
2
6
3
4
1