Thema Datum  Von Nutzer Rating
Antwort
12.02.2021 09:06:24 Andreas
NotSolved
12.02.2021 11:07:11 Gast20653
NotSolved
12.02.2021 11:13:16 Andreas
NotSolved
12.02.2021 11:16:41 Gast81333
NotSolved
12.02.2021 11:41:42 Andreas
NotSolved
12.02.2021 12:25:50 Gast81333
NotSolved
12.02.2021 12:36:08 Andreas
NotSolved
12.02.2021 12:44:27 Gast46551
NotSolved
12.02.2021 12:27:49 Gast55264
NotSolved
12.02.2021 12:39:34 Gast75795
NotSolved
12.02.2021 13:03:54 Andreas
NotSolved
12.02.2021 13:12:28 Gast75795
NotSolved
Rot nur mal um eine Alternative zu demonstrieren
 12.02.2021 13:33:34 Gast75795
NotSolved
12.02.2021 13:34:56 Gast63751
NotSolved
12.02.2021 14:12:04 Gast75795
NotSolved
15.02.2021 08:41:38 Andreas
NotSolved
22.02.2021 08:47:09 Andreas
NotSolved
22.02.2021 18:55:57 Gast75795
NotSolved
27.04.2021 08:03:12 Andreas
NotSolved
27.04.2021 14:21:10 Gast17703
NotSolved

Ansicht des Beitrags:
Von:
Gast75795		 Datum:
12.02.2021 13:33:34		 Views:
488		 Rating:
     
Antwort:
  Ja
Thema:
nur mal um eine Alternative zu demonstrieren		 
Option Explicit
 
Sub Test()
   
  With CreateObject("VBScript.RegExp")
     
    .Global = False
    .IgnoreCase = True
    .MultiLine = True
     
    .Pattern = "(.+)\b([^\r\n]+)$"
     
    Dim str As String
    str = WorksheetFunction.TextJoin(vbNewLine, True, Worksheets("Tabelle1").Range("A:A"))
     
    With .Execute(str)
      If .Count > 0 Then
        Debug.Print "'"; .Item(0).SubMatches(0); "' = '"; .Item(0).SubMatches(1); "'"
      End If
    End With
     
  End With
   
End Sub

liefert:

'Berichts-Nr.: ' = '1001'

Das meinte ich vorhin mit "unterschiedliche Möglichkeiten".

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
12.02.2021 09:06:24 Andreas
NotSolved
12.02.2021 11:07:11 Gast20653
NotSolved
12.02.2021 11:13:16 Andreas
NotSolved
12.02.2021 11:16:41 Gast81333
NotSolved
12.02.2021 11:41:42 Andreas
NotSolved
12.02.2021 12:25:50 Gast81333
NotSolved
12.02.2021 12:36:08 Andreas
NotSolved
12.02.2021 12:44:27 Gast46551
NotSolved
12.02.2021 12:27:49 Gast55264
NotSolved
12.02.2021 12:39:34 Gast75795
NotSolved
12.02.2021 13:03:54 Andreas
NotSolved
12.02.2021 13:12:28 Gast75795
NotSolved
Rot nur mal um eine Alternative zu demonstrieren
 12.02.2021 13:33:34 Gast75795
NotSolved
12.02.2021 13:34:56 Gast63751
NotSolved
12.02.2021 14:12:04 Gast75795
NotSolved
15.02.2021 08:41:38 Andreas
NotSolved
22.02.2021 08:47:09 Andreas
NotSolved
22.02.2021 18:55:57 Gast75795
NotSolved
27.04.2021 08:03:12 Andreas
NotSolved
27.04.2021 14:21:10 Gast17703
NotSolved