Thema Datum  Von Nutzer Rating
Antwort
31.07.2020 10:45:17 Andreas
Solved
31.07.2020 12:43:15 Gast18314
NotSolved
31.07.2020 14:38:03 Andreas
NotSolved
31.07.2020 15:57:31 Gast406
NotSolved
03.08.2020 11:31:48 Andreas
NotSolved
03.08.2020 18:37:38 volti
NotSolved
03.08.2020 19:43:05 volti
NotSolved
04.08.2020 15:59:23 Andeas
NotSolved
04.08.2020 16:22:07 volti
NotSolved
31.07.2020 14:28:59 Gast41453
NotSolved
Rot Ansatz mittels Regulären Ausdruck
 04.08.2020 01:39:11 Gast53509
NotSolved

Ansicht des Beitrags:
Von:
Gast53509		 Datum:
04.08.2020 01:39:11		 Views:
746		 Rating:
     
Antwort:
  Ja
Thema:
Ansatz mittels Regulären Ausdruck		 
Option Explicit

'Hilfsfunktion
Public Function MyReplaceFunc(Expr As Variant) As Variant
  With CreateObject("VBScript.RegExp") 'Late Binding
    .Global = False
    .MultiLine = False
    .IgnoreCase = True
    .Pattern = "([a-z]+)0*(\d+)"
    MyReplaceFunc = .Replace(Expr, "$1($2)")
  End With
End Function

'Funktion zum Testen
Sub Test()
  Dim cell As Excel.Range
  With Worksheets("Tabelle1").Range("A1:A4")
    'Beispiel generieren
    .Value = [{"A01";"TG01";"PP0099";"WE020";"P020"}] 'Application.Evaluate("{""A01"";""TG01"";""PP0099"";""WE020"";""P020""}")
    'Zelle für Zelle den Wert verändert in Zelle rechts schreiben
    For Each cell In .Cells
      cell.Offset(0, 1).Value = MyReplaceFunc(cell.Value)
    Next
  End With
End Sub

Reguläre Ausdrücke (Tutorial)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.07.2020 10:45:17 Andreas
Solved
31.07.2020 12:43:15 Gast18314
NotSolved
31.07.2020 14:38:03 Andreas
NotSolved
31.07.2020 15:57:31 Gast406
NotSolved
03.08.2020 11:31:48 Andreas
NotSolved
03.08.2020 18:37:38 volti
NotSolved
03.08.2020 19:43:05 volti
NotSolved
04.08.2020 15:59:23 Andeas
NotSolved
04.08.2020 16:22:07 volti
NotSolved
31.07.2020 14:28:59 Gast41453
NotSolved
Rot Ansatz mittels Regulären Ausdruck
 04.08.2020 01:39:11 Gast53509
NotSolved