Farbige Reiter und Textpassagen
12.03.2018 12:28:12
Markus
ich hätte zwei Anliegen:
1. Wie bekommt man in eine UserForm den Text bei nur einigen Wörtern farbig dargestellt und auch farbig hervorgehoben also selektiert?
Beispiel:
Label1.Caption = "Die Sonne scheint hell und strahlend
Ich möchte nun die Wörter hell und strahlend in anderen Farben dargestellt haben.
Bisher kann ich aber nur den ganzen Satz bei den Eigenschaften des UserForms in der Farbe ändern, nicht aber einzelne Wörter. Wie geht das und wie muss der Code dazu aussehen?
Desweiten müsste es auch mit Variablen funktionieren bei den UserForms ,also:
Dim Name As String
Name = "Pluto"
Label1.Caption = "Der Planet" & " "& Name & "ist farbig gekennzeichnet."
Hier soll er die Variable Name, also den Namen des Planeten farbig machen, zum Beispiel blau.
Auch schön wäre es wenn die Schrift nicht nur farbig wäre an den entsprechenden Stellen in den Sätzen, sondern auch wenn diese Wörter farbig noch hervorgehoben werden könnten.
2. Ich möchte gern alle Reiter in der Arbeitsmappe farbig hervorheben, das geht auch soweit schon, doch nun soll er für das jeweilige aktuelle Arbeitsblatt eine andere Farbe verwenden, das funktioniert aber bisher nicht bei mir, ob an er das aktive Arbeitsblatt schon erkennt, aber er färbt es nicht anders ein.
Link zu Datei: https://www.herber.de/bbs/user/120355.xlsm
Code:
Sub FarbeReiter_all()
Dim Tabellennamen
Tabellennamen = Array("Tabelle3", "Tabelle4", "Tabelle4")
Dim WBname As String
WBname = ThisWorkbook.Name
Dim activeSheet As String
name_akltuell = ActiveWorkbook.activeSheet.Name
Dim Arrayspeicher As Variant
Dim Blatt As Worksheet
MsgBox "Hier kommt das atuelle Arbeitsblatt" & " " & activeSheet
For Each Blatt In ActiveWorkbook.Worksheets
If InStr(WBname, name_akltuell) > 0 Then
ActiveWorkbook.activeSheet.ColorIndex = 3
Else
If InStr(WBname, Arrayspeicher) > 0 Then
Blatt.Tab.ColorIndex = 4
End If
End If
Next Blatt
End Sub
Kann jemand bitte helfen?
Beste Grüße
Markus