zahlen in text-problem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo
Da gibts wirklich noch ein Problem mit der eindeutigkeit.
Zumindest auf deine Beispieldaten bezogen funktioniert sowas:
Diesen Code in ein Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(zelle) As Variant
Dim strText As String
Dim RegEx As Object
Dim Alle As Object
Dim treffer As Object
Dim tmp As Variant
Dim L As Integer
Redim tmp(0)
strText = Replace(zelle, " ", "")
Set RegEx = CreateObject("Vbscript.Regexp")
With RegEx
    .Pattern = "6[0-9]{7}"
    .Global = True
    Set Alle = .Execute(strText)
    For Each treffer In Alle
        Redim Preserve tmp(L)
        tmp(L) = treffer.Value
        L = L + 1
    Next
End With
machs = tmp
End Function

Der Aufruf in deiner Tabelle geht dann so:
Tabelle1

	K	L	M	N	O
1	das ganze sieht z.b. so aus:
2	in sachen xy vom 12.06.07 61231234	61231234	#BEZUG!	#BEZUG!
3	oder	0	#BEZUG!	#BEZUG!
4	nr. 6123 1234 abzgl. 3% skto.	61231234	#BEZUG!	#BEZUG!
5	oder aber	0	#BEZUG!	#BEZUG!
6	6123 1234 u. 61235678 meyer	61231234	61235678	#BEZUG!
7

Formeln der Tabelle

Zelle	Formel
L2	=INDEX(machs($K2); SPALTE(A1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die 0 und #Bezug bekommst du selber raus ?
ransi

Hallo Phil,
so ganz eindeutig ist das noch nicht, deshalb hier drei Varianten,
von denen wohl noch keine deiner Vorgabe entspricht:

	A	B	C	D	E	F	G	H	I	J
1	Text	Variante1			Variante2			Variante3
2	62345678	62345678			62345678			62345678
3	sdf62345678	62345678			62345678			62345678
4	62345678sdf	62345678			62345678			62345678
5	sdf62345678sdf	62345678			62345678			62345678
6	6234 5678 sdf	62345678			62345678			62345678
7	62 34 56789							62345678
8	62 34 5678 8							62345678
9	62 34 5678 x	62345678			62345678			62345678
10	sdf 623 45 67 8 sdf	62345678			62345678			62345678
11	sdf 65 5 5 55 55 x23 45 67 8 sdfsdf 623 45 66666 sdf sdfs 12345678 66666666	65555555			65555555	66666666		65555555	62345666	67866666
12	in sachen xy vom 12.06.07 61231234				61231234			61231234
13	in sachen xy vom 12.06.06 61231234				61231234			66123123
14	in sachen xy vom 12.06.06 61231234 5 Tage							66123123
15	nr. 6123 1234 abzgl. 3% skto	61231234			61231234			61231234
16	6123 1234 u. 61235678 meyer	61231234	61235678		61231234	61235678		61231234	61235678

Und hier der Code:


Sub BestNr()
Dim lngZ As Long, ii As Integer, strT As String, lngC As Long
Dim strP As String, bolOK As Boolean
'   Range("B2:Z99").ClearContents
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
strT = Replace(Replace(Cells(lngZ, 1), " ", ""), ".", "x")
lngC = 1     ' oder 4 oder 7 für Variante 2 oder 3
For ii = 1 To Len(strT) - 7
bolOK = False
strP = Mid(strT, ii, 8)
If Left(strP, 1) = "6" And IsNumeric(strP) Then
bolOK = True
If ii > 1 Then                ' auskommentiert für Variante 2
If IsNumeric(Mid(strT, ii - 1, 1)) Then bolOK = False
End If
If ii

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub BestNr4() Dim lngZ As Long, ii As Integer, strT As String, lngC As Long Dim strP As String ' Range("B2:Z99").ClearContents For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row strT = Replace(Replace(Cells(lngZ, 1), " ", ""), ".", "x") strT = Replace(Cells(lngZ, 1), " ", "") lngC = 1 For ii = 1 To Len(strT) - 7 If Mid(strT, ii, 8) Like "##.##.##" Then ii = ii + 7 Else strP = Mid(strT, ii, 8) If Left(strP, 1) = "6" And IsNumeric(strP) Then lngC = lngC + 1 Cells(lngZ, lngC) = strP ii = ii + 7 End If End If Next ii Next lngZ End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	U	V	W
1	Text	Variante4				RegEx
2	62345678	62345678				62345678
3	sdf62345678	62345678				62345678
4	62345678sdf	62345678				62345678
5	sdf62345678sdf	62345678				62345678
6	6234 5678 sdf	62345678				62345678
7	62 34 56789	62345678				62345678
8	62 34 5678 8	62345678				62345678
9	62 34 5678 x	62345678				62345678
10	sdf 623 45 67 8 sdf	62345678				62345678
11	sdf 65 5 5 55 55 x23 45 67 8 sdfsdf 623 45 66666 sdf sdfs 12345678 66666666	65555555	62345666	67866666		65555555	62345666	67866666
12	in sachen xy vom 12.06.07 61231234	61231234				61231234	#BEZUG!
13	in sachen xy vom 12.06.06 61231234	61231234				66123123	#BEZUG!
14	in sachen xy vom 12.06.06 61231234 5 Tage	61231234				66123123	#BEZUG!
15	nr. 6123 1234 abzgl. 3% skto	61231234				61231234	#BEZUG!
16	6123 1234 u. 61235678 meyer	61231234	61235678			61231234	61235678
17	abc

zahlen in text-problem

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread