Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Mittels regulären Ausdrücken Punkt nach einer Zahl ersetzen
#1
Hallo Leute, 

ich bräuchte nochmal dringend weitere Hilfe. Ich möchte per VBA Programmierung das bei Zahlen von 0 bis 9 gefolgt von einem Punkt
der Punkt hinter der Zahl durch einen Stern * ersetzt wird. Also aus 1. wird 1*  und aus 2. wird 2* usw.

Mit allen Punkten die nicht direkt hinter einer Zahl stehen soll nichts passieren.
Ich denke man kann so etwas sehr effektiv mittels regulären Ausdrücken programmieren. Nur wie?
Für eure Lösungsvorschläge wäre ich sehr dankbar und bedanke mich schon mal hier.
to top
#2
Hallo,

könntest Du Dich erst einmal zu Deinem vorherigen Problem äußern? Da hättest Du auch weitermachen können!
Wenn Du schon weißt, dass man das mit regulären Ausdrücken programmieren kann, warum suchst Du nicht mal danach?

z.B. hier:

http://regexp-evaluator.de/tutorial/
http://de.wikipedia.org/wiki/Regul%C3%A4...es_Zeichen
http://www.herber.de/forum/archiv/896to9...egexp.html
Gruß


Opa Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
to top
#3
Hallo,

meinst Du so?

Code:
Sub prcTestRegex()
   Dim re As Object, reMat As Object
   Dim lngC As Long
  
   On Error Resume Next
   Set re = CreateObject("vbscript.regexp")
   re.Pattern = "(\d)*(\.)"
   re.Global = True
   lngC = 1
   While Cells(lngC, 1) <> ""
      Set reMat = re.Execute(Cells(lngC, 1))
      If Not IsEmpty(reMat(0).submatches(0)) Then
         Cells(lngC, 2) = Replace(Cells(lngC, 1), ".", "*")
      Else
         Cells(lngC, 2) = Cells(lngC, 1)
      End If
      lngC = lngC + 1
   Wend
   On Error GoTo 0
End Sub
Gruß Stefan
Win 7 / Office 2007
to top
#4
Hi Stefan,

habe deinen Code gerade ausprobiert. Funktioniert super. Genau das habe ich gesucht.
Vielen Dank für deine Hilfe.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Sortieren von Datensätzen nach mehreren Kriterien in einer Zeile Doesie 2 107 12.01.2017, 12:01
Letzter Beitrag: Doesie
  Nach Namen sortieren - mit einer Bedingung swissbird 5 126 08.01.2017, 22:30
Letzter Beitrag: swissbird
  suchen/ersetzen die 2. Fami 3 72 30.12.2016, 11:58
Letzter Beitrag: GMG-CC
  Hilfe bei suchen/ersetzen Fami 2 63 29.12.2016, 11:05
Letzter Beitrag: Fami
  Einträge in einer Tabelle mit einer anderen vergleichen und ersetzen JeyP 5 154 26.12.2016, 18:35
Letzter Beitrag: JeyP
  Button zum Ausdrucken für bestimmten Zeilenbereich AndyExcel77 2 48 19.12.2016, 11:37
Letzter Beitrag: AndyExcel77
  Wenn-Dann funktion an Nachkommastellen einer Zahl knüpfen ako82 4 102 13.12.2016, 16:27
Letzter Beitrag: BoskoBiati
  Fadenkreuz in Diagramm über Punkt XY Koordinaten Julian22 7 127 10.12.2016, 07:07
Letzter Beitrag: schauan
  Ersetzen von Bestandteilen in Hyperlinks Icepic 2 113 29.11.2016, 17:23
Letzter Beitrag: Fennek
  #Wert! mit "Text" ersetzen VBA GustavL 10 224 29.11.2016, 14:47
Letzter Beitrag: GustavL

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste