Fett Buchstaben in Text ROT setzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Dieter
Bezieht sich das hierrauf ?
http://tinyurl.com/ycs59tf
Dann mach das doch in einem Abwasch:

Option Explicit
Public Sub machs()
    Dim objControl As CommandBarControl
    Dim btn As CommandBarControl
    Dim A As Integer, B As Integer, C
    On Error Resume Next
    ActiveSheet.UsedRange.Clear
    For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls
        A = A + 1
        For Each btn In objControl.Controls
            B = B + 1
            With Cells(B, A)
                .Value = btn.Caption
                C = InStr(1, .Text, "&")
                .Replace "&", ""
                If C > 0 Then
                    '#####
                    With .Characters(C, 1).Font
                        .Bold = True
                        .Color = vbRed
                    End With
                    '####
                End If
            End With
        Next
        B = 0
    Next
End Sub

ransi

Hallo Dieter
Die kannst du genauso auslesen:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub machs()
    Dim objControl As CommandBarControl
    Dim btn As CommandBarControl
    Dim A As Integer, B As Integer, C
    On Error Resume Next
    ActiveSheet.UsedRange.Clear
    For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls
        A = A + 1
        '###################
        B = 1
        With Cells(B, A)
            .Value = objControl.Caption
            C = InStr(1, .Text, "&")
            .Replace "&", ""
            If C > 0 Then
                '#####
                With .Characters(C, 1).Font
                    .Bold = True
                    .Color = vbRed
                End With
                '####
            End If
        End With
        '###################



        For Each btn In objControl.Controls
            B = B + 1
            With Cells(B, A)
                .Value = btn.Caption
                C = InStr(1, .Text, "&")
                .Replace "&", ""
                If C > 0 Then
                    '#####
                    With .Characters(C, 1).Font
                        .Bold = True
                        .Color = vbRed
                    End With
                    '####
                End If
            End With
        Next
        B = 0
    Next
End Sub

ransi

Sub aaaa() Dim rngC As Range, i As Integer For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) For i = 1 To Len(rngC.Value) With rngC.Characters(i, 1).Font If .Bold = True Then .Color = RGB(255, 0, 0) Exit For End If End With Next Next End Sub

Sub Fett_Rot() Dim rng As Range, n& Application.ScreenUpdating = False For Each rng In Sheets("Tabelle1").UsedRange 'Tabelle/Bereich evtl. anpassen If Not rng.HasFormula Then For n = 1 To Len(rng.Value) With rng.Characters(Start:=n, Length:=1).Font If .Bold Then .Color = 255& Exit For End If End With Next n End If Next rng Application.ScreenUpdating = True MsgBox "fertig" End Sub

Beliebteste Forumthreads (12 Monate)

Fett Buchstaben in Text ROT setzen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fett Buchstaben in Text ROT setzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread