Thema Datum  Von Nutzer Rating
Antwort
20.09.2017 14:31:38 NM
Solved
Blau Fett formatierte Zeichen ergänzen
 20.09.2017 15:32:50 Martin
*****
Solved
20.09.2017 15:56:53 Gast1258
Solved
20.09.2017 17:14:56 NM
Solved
20.09.2017 16:15:01 Gast95011
NotSolved
20.09.2017 17:11:35 NM
Solved

Ansicht des Beitrags:
Von:
Martin		 Datum:
20.09.2017 15:32:50		 Views:
803		 Rating:
     
Antwort:
 Nein
Thema:
Fett formatierte Zeichen ergänzen		 
Sub test()
testString = ActiveCell.Value
newString = ""
stat = False
For dl = 1 To Len(testString)
formatChar = ActiveCell.Characters(dl, 1).Font.Bold
valueChar = ActiveCell.Characters(dl, 1).Text
If formatChar = True And stat = False Then
newString = newString & "<b>"
stat = True
End If
If formatChar = False And stat = True Then
newString = newString & "</b>"
stat = False
End If
newString = newString & valueChar
Next
msgbox newString
End Sub

Lg. Martin

 

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.09.2017 14:31:38 NM
Solved
Blau Fett formatierte Zeichen ergänzen
 20.09.2017 15:32:50 Martin
*****
Solved
20.09.2017 15:56:53 Gast1258
Solved
20.09.2017 17:14:56 NM
Solved
20.09.2017 16:15:01 Gast95011
NotSolved
20.09.2017 17:11:35 NM
Solved