Zahlen weniger 4 Ziffern entfernen

Boerni · 2021-01-12T20:57:23+00:00

Hallo, ich habe ein etwas eigenwilliges Problem. Mittels VBA case select habe ich aus längeren Texten alle Buchstaben und Sonderzeichen (ausser Schrägstrich, da es sich um Telefonnummern handelt) entfernt. Die Zahlen befinden sich in einer Zelle. Jetzt müssen noch alle Zahlen mit weniger als 4 Ziffern entfernt werden, damit die Rufnummern am Ende übrig bleiben. Kann man dies mit VBA oder einer Formel erledigen? Vielen Dank Boerni

Hallo Boerni,
(owT) steht für "ohne weitere Text". Bedeutet, alle was ich sagen möchte, ist bereit im Betreff.
Der Fehler ist, dass "\d{4,}" gemeint war.

Sub RegEx_testen()
Dim E
'version 1
Debug.Print bd_RegExtract("12 2 6589 0172123456 23 0171457895", "(\d{4,})", Trenner:=" ")
'version 2
For Each E In Split(bd_RegExtract("12 2 6589 0172123456 23 0171457895", "(\d{4,})"), ";")
Debug.Print E
Next
End Sub
Public Function bd_RegExtract(Target, Optional Pattern = "[a-zA-Z]+", Optional Occurence,  _
Optional Trenner = ";") As String
'unter Verweis (early binding) auf
'Name:         VBScript_RegExp_55
'Description:  Microsoft VBScript Regular Expressions 5.5
'FullPath:     C:\Windows\SysWOW64\vbscript.dll\3
Dim R As New RegExp
Dim strInput As String
Dim Ergs As Object
Dim i, Erg$
Select Case VarType(Target)
Case vbString: strInput = Target
Case Else: strInput = CStr(Target.Range("A1").Value)
End Select
R.IgnoreCase = True
R.MultiLine = True
R.Global = True
R.Pattern = Pattern
Set Ergs = R.Execute(strInput)
If Ergs.Count = 0 Then
bd_RegExtract = ""
Else
If IsMissing(Occurence) Then
For i = 0 To Ergs.Count - 1
Erg = Erg & Trenner & Ergs(i).Value
Next
bd_RegExtract = Mid(Erg, 2)
Else
bd_RegExtract = Ergs(Occurence - 1)
End If
End If
End Function

VG
Yal

Hi
naja grundsätzlich falsch ist, dass du mir verschweigst in welcher Zeile der Fehler auftritt. Excel zeigt dir das normalerweise an und das ist ein nicht ganz unwichtiger Hinweis auf die mögliche Fehlerursache und das sollte eigentlich so offensichtlich sein, dass man sich fragt, WARUM du diese Information für dich behälst.
ansonsten, mach mal aus dem DIM Teiltexte() ein DIM TeilTexte (ohne Klammern)
dann läufts.
sollten aus deinen Vorarbeiten auch Fehlerwerte in den Zellen stehen können, müsstest du das
txtAlt = Zelle.Value in txtAlt = Zelle.Text wandeln.
in meiner alternativ-Methode habe ich noch einen Denkfehler drin.
damit das richtig geht, muss man etwas mehr aufwand treiben.
1. ersetze " " durch "x x" (zwischen den x mindestens ein Leerzeichen mehr als du maximal Ziffern löschen willst
2. ersetze "x?x", "x?x" und "x?x" durch nichts
3. ersetze " " durch nichts
4. ersetze "xx" durch " "
vorher natürlich noch per formel am Anfang und Ende ein Leerzeichen hinzufügen und dieses am Schluss per Formel wieder entfernen (glätten)
Gruß DAniel

Zahlen weniger 4 Ziffern entfernen

Forumthread: Zahlen weniger 4 Ziffern entfernen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zahlen weniger 4 Ziffern entfernen

Forumthread: Zahlen weniger 4 Ziffern entfernen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread