Thema Datum  Von Nutzer Rating
Antwort
Rot Farbe vom ausgegebenen Text bei VBA ändern
 29.11.2019 16:31:07 Stefan
Solved
29.11.2019 17:08:23 tscharl
Solved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
29.11.2019 16:31:07		 Views:
1370		 Rating:
     
Antwort:
 Nein
Thema:
Farbe vom ausgegebenen Text bei VBA ändern

Hallo, Ich habe mir wie folgt ein Userform erstellt:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub Button_Abbrechen_Click()
 
Unload Me
 
End Sub
 
Private Sub Button_Eingabe_Click()
 
'Erste freie Zeile ausfindig machen
 
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
'Hersteller
Cells(last, 1).Value = TextBox_Hersteller
 
'Typ
Cells(last, 2).Value = ComboBox_Typ.Value
 
'Modell
Cells(last, 3).Value = TextBox_Model
 
'Benutzer
Cells(last, 4).Value = TextBox_Benutzer
 
'Seriennummer
Cells(last, 5).Value = TextBox_Seriennummer
 
'Herstellungs Datum/Jahr
Cells(last, 6).Value = TextBox_Herstellungsjahr
 
'Kaufdatum
Cells(last, 7).Value = TextBox_Kaufdatum
 
'Prüfung bestanden oder nicht
If OptionsButton_Bestanden.Value = True Then Cells(last, 8).Value = <strong><em>"Betsanden"</em></strong>
If OptionsButton_NichtBestanden.Value = True Then Cells(last, 8).Value = <em><strong>"Durchgefallen"</strong></em>
 
 
'Nächste Prüfung
Cells(last, 9).Value = TextBox_NächstePrüfung
 
'Bemerkung
Cells(last, 10).Value = TextBox_Bemerkung
 
 
End Sub
 
Private Sub UserForm_Initialize()
 
'Hersteller
TextBox_Hersteller = "Hersteler eingeben"
 
'Typ
With ComboBox_Typ
    .AddItem "Karabiner"
    .AddItem "Gurte"
    .AddItem "Bandmaterial"
    .AddItem "Reepschnur"
End With
 
'Modell
TextBox_Model = "Modell eingeben"
 
'Benutzer
TextBox_Benutzer = "BWS_KA"
 
'Seriennummer
TextBox_Seriennummer = "Seriennummer eingeben"
 
'Herstellungs Datum/Jahr
TextBox_Herstellungsjahr = "Herstellungsdatum eingeben"
 
'Kaufdatum
TextBox_Kaufdatum = "Kaufdatum eingeben"
 
'Prüfung bestanden oder nicht
 
 
'Nächste Prüfung
TextBox_NächstePrüfung = "Nächste Prüfung eintragen"
 
'Bemerkung
TextBox_Bemerkung = "Bemerkungen eintragen"
 
End Sub

 

Jetzt hätte ich Gerne, dass der  "Betsanden" & "Nicht bestanden" in meiner Excel in verschiedenen Farben erscheinen.

Wie muss ich dies definieren?

Habe hierzu leider nichts gefunden. Danke schon mal im Vorraus

 

Gruß

Stefan

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Farbe vom ausgegebenen Text bei VBA ändern
 29.11.2019 16:31:07 Stefan
Solved
29.11.2019 17:08:23 tscharl
Solved