Thema Datum  Von Nutzer Rating
Antwort
25.08.2017 09:42:18 Tom
NotSolved
Blau VBA fügt html Code für fette Textbereiche ein
 25.08.2017 19:11:33 Gast70416
NotSolved
25.08.2017 19:14:18 Gast70416
NotSolved

Ansicht des Beitrags:
Von:
Gast70416		 Datum:
25.08.2017 19:11:33		 Views:
527		 Rating:
     
Antwort:
  Ja
Thema:
VBA fügt html Code für fette Textbereiche ein

Wenn du,

die Zellen in einem Excel-Arbeitsblatt meinst:

Option Explicit
Sub TestMe()

Const C_active As String = "Tabelle1"
Const C_B As String = "<b>"
Const C_E As String = "</b>"

Dim uRng As Range, c As Range
Dim cText As String, cLen As Long
Dim x As Long, cb As Long, ce As Long
Dim aText() As Variant
Dim Wst As Worksheet
Dim Wsh As Worksheet: Set Wsh = Sheets(C_active)

   On Error Resume Next
      Set Wst = Sheets("Tmp")
      If Err.Number <> 0 Then
         Set Wst = Sheets.Add
         ActiveSheet.Name = "Tmp"
      End If
   On Error GoTo 0
   
   Set uRng = Wsh.UsedRange
   Set uRng = uRng.SpecialCells(xlCellTypeConstants)
   For Each c In uRng.Cells
    If InStr(c.Text, C_B) = False Then
      Select Case c.Font.Bold
         Case False
            'nix
         Case True
            'einfach
            With c.Characters
               .Font.Bold = False
               cText = .Text
               cLen = Len(cText)
               .Text = C_B & cText & C_E
            End With
            c.Characters(Start:=4, Length:=cLen).Font.Bold = True
            Debug.Print c.Text
         Case Else
            'sind nur Teile "fett" = Null = vartype(1)
            'geht mit einer Menge Code auch
            'eben Chracter.object zeichenweise bestimmen und ....
      End Select
    End If
   Next c
End Sub

 

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
25.08.2017 09:42:18 Tom
NotSolved
Blau VBA fügt html Code für fette Textbereiche ein
 25.08.2017 19:11:33 Gast70416
NotSolved
25.08.2017 19:14:18 Gast70416
NotSolved