Es werden Controls mit Caption und Ids aufgelistet. Das funktioniert, hier die Musterdatei:
https://www.herber.de/bbs/user/129569.xlsm
Es soll noch das erste Zeichen, hinter dem Zeichen "&" fett und rot markiert werden.
In Modul2, Code von Herber: MatthiasL - 17.05.2012, bricht der Code jetzt ab, mit
Fehlermeldung:
"Laufzeitfehler: 1004, Die Texteigenschaften des Character-Objekets kann nicht zugeordnet werden."
Fehlerzeile: "If rng.Characters(Start:=n, Length:=1).Text = "&" Then"
Hier der Code:
'Von Herber: MatthiasL - 17.05.2012
Sub Fett_u_Rot() '1. Zeichen NACH "&" wird rot = "n + 1"
Dim rng As Range, n&
On Error Resume Next
MsgBox "ID's etc. werden aufgelistet." & vbLf & "Bitte warten ...", vbExclamation, "Info"
Application.ScreenUpdating = False
Columns("D:D").Select 'Mx
For Each rng In Sheets("Tabelle1").UsedRange 'Tabelle/Bereich evtl. anpassen
If Not rng.HasFormula Then
For n = 1 To Len(rng.Value)
If rng.Characters(Start:=n, Length:=1).Text = "&" Then
rng.Characters(Start:=n + 1, Length:=1).Font.Bold = True
rng.Characters(Start:=n + 1, Length:=1).Font.Color = vbRed
Exit For
End If
Next n
End If
Next rng
'MsgBox "Fertig"
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Mit der Bitte um Hilfe, das Code wieder funktioniert,grüßt, Dieter(Drummer)