Text trennen bei variabler Länge

Ingo · 2006-03-04T07:48:37+00:00

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

Hallo,
das geht z.B. so:

Tabelle1

	A	B
1	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
2	LASTSCHR. 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
5	XXX	XXX
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.

Text trennen bei variabler Länge

Forumthread: Text trennen bei variabler Länge

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Text trennen bei variabler Länge

Forumthread: Text trennen bei variabler Länge

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread