Thema Datum  Von Nutzer Rating
Antwort
04.01.2025 17:12:27 Karsten
NotSolved
04.01.2025 17:58:57 xlKing
NotSolved
Rot Formatierung einzelner Zeilen anpassen
 04.01.2025 19:27:55 Gast47454
NotSolved
05.01.2025 08:31:47 Gast75333
NotSolved
05.01.2025 16:49:36 xlKing
Solved
05.01.2025 17:27:11 Gast26057
Solved
05.01.2025 08:15:49 Gast4821
NotSolved

Ansicht des Beitrags:
Von:
Gast47454		 Datum:
04.01.2025 19:27:55		 Views:
23		 Rating:
     
Antwort:
  Ja
Thema:
Formatierung einzelner Zeilen anpassen

Falls mal eine der zu formatierenden Zeilen kein Semikolon enthält (weil du vergessen hast eins zu setzen) führt mein letzter Code dazu, dass ein größerer Bereich über mehrere Zeilen formatiert wird. Damit deine dort stehenden Formate nicht zerstört werden, habe ich hier einen neuen Code gebastelt. Damit werden die fehlerhafte Zeile, sowie der Bereich bis zum nächsten Semikolon, ignoriert und von der Formatierung ausgeschlossen. Diese fehlerhaften Zeilen werden gelb hinterlegt, damit du diese nachbearbeiten kannst. Solltest du bereits anderweitig Text gelb markiert haben, dann kannst du im Code natürlich auch eine beliebige andere Farbe wählen.

Sub Formatieren()

  Dim rng As Range ', rng2 As Range, rng3 As Range
  Set rng = ActiveDocument.Range
  
  With rng.Find
    .ClearFormatting
    .Text = "^t*;"
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    Do
      .Execute
      If rng.Paragraphs.Count = 1 Then
        With Range(rng.Start + 1, rng.End - 1).Font
          .Size = 20
          .Name = "Comic Sans MS"
        End With
      Else
        rng.HighlightColorIndex = wdYellow
      End If
    Loop Until .Found = False
  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
04.01.2025 17:12:27 Karsten
NotSolved
04.01.2025 17:58:57 xlKing
NotSolved
Rot Formatierung einzelner Zeilen anpassen
 04.01.2025 19:27:55 Gast47454
NotSolved
05.01.2025 08:31:47 Gast75333
NotSolved
05.01.2025 16:49:36 xlKing
Solved
05.01.2025 17:27:11 Gast26057
Solved
05.01.2025 08:15:49 Gast4821
NotSolved