Thema Datum  Von Nutzer Rating
Antwort
20.03.2023 21:18:48 Zymbo
NotSolved
Blau String aus Bereich auslesen und neuen Absatz erstellen
21.03.2023 00:17:15 xlKing
NotSolved
23.03.2023 00:41:05 Zymbo
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
21.03.2023 00:17:15		 Views:
169		 Rating:
     
Antwort:
  Ja
Thema:
String aus Bereich auslesen und neuen Absatz erstellen

Hi Zymbo, So in etwa?

Private Sub Dateien_Splitten()

With ActiveDocument.Range.Find
  Last = .Parent.End
  .ClearFormatting
  .Text = "*Dateien:"
  .MatchWildcards = False
  .Execute
  If .Found Then
    Start = .Parent.Start
    Start2 = .Parent.End
    Ende = InStr(Start2, ActiveDocument.Range.Text, "*")
    If Start2 < Last And Ende > Start2 Then
      Dateien = Split(Trim(ActiveDocument.Range(Start2, Ende - 1).Text), ",")
    End If
    For Each dt In Dateien
      ActiveDocument.Range.InsertAfter vbNewLine & dt
    Next dt
    If ActiveDocument.Range(Ende, Ende + 1) = vbCr Then Ende = Ende + 1
    ActiveDocument.Range(Start, Ende).Delete
  End If
End With

End Sub

Gruß Mr. K.

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
20.03.2023 21:18:48 Zymbo
NotSolved
Blau String aus Bereich auslesen und neuen Absatz erstellen
21.03.2023 00:17:15 xlKing
NotSolved
23.03.2023 00:41:05 Zymbo
NotSolved