Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text trennen bei variabler Länge

Text trennen bei variabler Länge
04.03.2006 07:48:37
Ingo
Guten Morgen,
ich habe folgendes Problem und habe bis dato noch keine Lösung gefunden. Vielleicht kann mir hier einer weiterhelfen.
Aus einem Import habe ich folgende Daten in Excel (in einer Zelle):
LASTSCHR.
W RTT.VERSICHERUNG AG
33-1234567-11 BEITRAG FUER
33-1234567-11 KRANKENVERS.
222,22EUR
32-2345678-22 RIESTER RENTE
111,11EUR
32-3456789-33 LEBEN
11,11EUR
KNr 1111111111 BLZ 11111111
Ich möchte nun diesen String in folgender Weise trennen und die Beträge in einzelne Zellen nebeneinander schreiben:
222,22EUR
111,11EUR
11,11EUR
Damit diese Werte auswertbar sind.
Kann mir jemand helfen? Vielen Dank schon mal.
Ingo

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text trennen bei variabler Länge
04.03.2006 08:39:16
Franz
Hallo Ingo,
=WERT(LINKS(A5;LÄNGE(A5)-3))
A5 ist in diesem Beispiel die Zelle in der Betrag (z.B. 222,22EUR) steht
Gruß
Franz
AW: Text trennen bei variabler Länge
04.03.2006 09:11:35
Ingo
Hallo Franz,
Danke für deine Antwort. Wenn ich deinen Vorschlag verwende erscheint #WERT! in der Zelle.
Scheint nicht zu funktionieren.
AW: Text trennen bei variabler Länge
04.03.2006 09:25:45
Franz
Hallo Ingo,
evtl. stehen weitere Leerzeichen hinter EUR.
Probiere mal
=WERT(LINKS(GLÄTTEN(A5);LÄNGE(A5)-3))
Gruß
Franz
AW: Text trennen bei variabler Länge
04.03.2006 10:27:16
Ingo
Hallo Franz,
Danke für die Antwort, leider mit gleichem Ergebnis.
AW: Text trennen bei variabler Länge
04.03.2006 11:33:23
Franz
Hallo Ingo,
hatte in der Formel noch eine Kleinigkeit übersehen, jetzt sollte es aber funktionieren
Tabellenblattname: TabHoch A 1 LASTSCHR. 2 W RTT.VERSICHERUNG AG 3 33-1234567-11 BEITRAG FUER 4 33-1234567-11 KRANKENVERS. 5 222,22EUR 6 32-2345678-22 RIESTER RENTE 7 111,11EUR 8 32-3456789-33 LEBEN 9 11,11EUR 10 KNr 1111111111 BLZ 11111111 11 12 Formeln 13 222,22 14 111,11 15 11,11 Benutzte Formeln: A13: =WERT(LINKS(GLÄTTEN(A5);LÄNGE(GLÄTTEN(A5))-3)) A14: =WERT(LINKS(GLÄTTEN(A7);LÄNGE(GLÄTTEN(A7))-3)) A15: =WERT(LINKS(GLÄTTEN(A9);LÄNGE(GLÄTTEN(A9))-3))
Gruß
Franz
Anzeige
AW: Nachtrag
04.03.2006 11:40:51
Franz
Hallo Ingo,
Habe jetzt in der Beispieldatei gesehen, das der gesamte text in einer Zelle steht. Damit können meine vorgeschlägenen Formeln leider nicht funktionieren :(
Gruß
Franz
AW: Nachtrag
04.03.2006 11:51:00
Ingo
Ja richtig, wollte ich dir gerade schreiben. Aber trotzdem danke ;)
Gruss
AW: Text trennen bei variabler Länge
ransi
hallo ingo
Lade mal bitte eine beispieldatei mit einigen dieser datensätze hoch.
ransi
AW: Text trennen bei variabler Länge
04.03.2006 11:56:34
MichaV
Hallo,
das geht z.B. so:
Tabelle1
 AB
1LASTSCHR.
W RTT.VERSICHERUNG AG
33-1234567-11 BEITRAG FUER
33-1234567-11 KRANKENVERS.
   222,22EUR
32-2345678-22 RIESTER RENTE
   111,11EUR
32-3456789-33 LEBEN
    11,11EUR
KNr 1111111111 BLZ 11111111
 
2LASTSCHR.
W RTT.VERSICHERUNG AG
33-1234567-11 BEITRAG FUER
33-1234567-11 KRANKENVERS.
   5222,22EUR
32-2345678-22 RIESTER RENTE
   5111,11EUR
32-3456789-33 LEBEN
    511,11EUR
KNr 1111111111 BLZ 11111111
 
3 222,22
4 111,11
5XXXXXX
6 5222,22
7 5111,11
8 511,11
Formeln der Tabelle
B3 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A1))
B4 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A2))
B5 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A3))
B6 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A4))
B7 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A5))
B8 : =INDEX(eurodaten($A$1:$A$2);ZEILE(A6))
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Die Formel in B3 kannst Du so in eine beliebige andere Zelle schreiben, fange aber immer mit Zeile(A1) an. Dann kannst Du sie runterzeiehn. Wenn Du die Werte in einer Zeile haben möchtest, schreibe Spalte(A1) und ziehe die Formel nach rechts.
Um die Funktion "Eurodaten" zu erstellen, kopierst Du folgenden Code in ein allgemeines Modul:

Option Explicit
Function EuroDaten(Target As Range)
Dim i%
Dim s$
Dim strZeile() As String
Dim strEuros() As String
Dim Geld As Boolean
For i = 1 To Target.Cells.Count
s = s & vbLf & Target(i)
Next i
strZeile = Split(s, vbLf)
For i = 0 To UBound(strZeile)
If UCase(Trim(strZeile(i))) Like "*EUR" Then
s = Left(Trim(strZeile(i)), Len(Trim(strZeile(i))) - 3)
If IsNumeric(s) Then
If Not Geld Then
ReDim strEuros(0)
Geld = True
Else
ReDim Preserve strEuros(UBound(strEuros) + 1)
End If
strEuros(UBound(strEuros)) = s
End If
End If
Next
EuroDaten = strEuros
End Function

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Nachtrag
04.03.2006 12:28:13
Ingo
Danke!
Super Funktion. Funktioniert.
Gruss
Ingo
Danke für die Rückmeldung mT
04.03.2006 12:30:38
MichaV
darum heißt sie auch Funktion, weil sie funktioniert.
Gruß- Micha

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige