Thema Datum  Von Nutzer Rating
Antwort
05.04.2017 15:23:02 SJ-Fanboy33
NotSolved
06.04.2017 13:45:20 SJ
NotSolved
Rot Trimm Funktion (mit beispiel Datei)
 06.04.2017 18:37:24 Trägheit
*****
Solved
06.04.2017 18:43:44 Trägheit
NotSolved
10.04.2017 07:50:58 SJ-Fanboy33
NotSolved

Ansicht des Beitrags:
Von:
Trägheit		 Datum:
06.04.2017 18:37:24		 Views:
688		 Rating:
     
Antwort:
 Nein
Thema:
Trimm Funktion (mit beispiel Datei)

Nun... da SJ diesmal nicht so die Zeit hat, spring ich mal ein (bin seit ner ganzen Weile hier nur noch stiller Mitleser).

Man könnte es so lösen.

Option Explicit

Public Function tokenize() As Boolean
  
  Dim objRegEx    As Object
  Dim objMatches  As Object
  Dim strExpr     As String
  Dim rngRow      As Excel.Range
  Dim rngCell     As Excel.Range
  
  With Worksheets("Tabelle1").Range("A1").CurrentRegion
    For Each rngRow In .Rows
      If strExpr <> "" Then strExpr = strExpr & vbNewLine
      For Each rngCell In rngRow.Cells
        strExpr = strExpr & " " & rngCell.Value
      Next
    Next
  End With
  
  With CreateObject("VBScript.RegExp")
    .Pattern = "([a-z][\w\d]+) +(FROM|(?:(?:(?:LEFT|INNER|RIGHT) *)?JOIN)) +((?:(?:[a-z][\w\d]+))(?: +(?:[a-z][\w\d]+))?)"
    .IgnoreCase = True
    .MultiLine = True
    .Global = True
    
    Set objMatches = .Execute(strExpr)
  End With
  
  Dim o As Variant
  Dim i As Long
  Dim j As Long
  
  Application.ScreenUpdating = False
  
  With Worksheets("Tabelle3")
    For i = 0 To objMatches.Count - 1
      .Cells(1 + i, 1).Value = objMatches(i).SubMatches(0)
      .Cells(1 + i, 2).Value = objMatches(i).SubMatches(2)
      .Cells(1 + i, 3).Value = objMatches(i).SubMatches(1)
    Next
  End With
  
  Application.ScreenUpdating = True
  
End Function

Die Ergebnisse beinhaltet die Tabellenaliase. Aus deiner Musterlösung ging nicht eindeutig hervor ob du die mit haben willst oder nicht.

 

Gruß

Trägheit

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
05.04.2017 15:23:02 SJ-Fanboy33
NotSolved
06.04.2017 13:45:20 SJ
NotSolved
Rot Trimm Funktion (mit beispiel Datei)
 06.04.2017 18:37:24 Trägheit
*****
Solved
06.04.2017 18:43:44 Trägheit
NotSolved
10.04.2017 07:50:58 SJ-Fanboy33
NotSolved