Roten Text

Guten Abend,
ich habe folgendes Problem:
Dieses Makro funktioniert:


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Worksheets("Kunde").Range("I70").Value = "Unbekannter KD freies Gebiet NDL
und Ladenverkäufer"
Worksheets("Kunde").Range("H70").Value = "X"
TextBox30.Value = "1,50"
ThisWorkbook.Worksheets("Kunde").Range("U63") = CDbl(TextBox30)
TextBox30 = Format(Worksheets("Kunde").Range("U63").Value, ("0.00"))
End If
End Sub

Wie gesagt funktioniert, nun möchte ich das der Text auf der UF Rot ist, sobald
das OptionButton1 angeklickt war und der Text in die Mappe Kunde eingesetzt wurde. Steht der Text nicht mehr drin oder eine anderer soll wieder Schwarz sein.
Also wenn in: Worksheets("Kunde").Range("I70")
Text: "Unbekannter KD freies Gebiet NDL und Ladenverkäufer"
soll Rot sondern Schwarz wenn dieser nicht drin steht.
Gruß Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub OptionButton1_Click() If OptionButton1 = True Then Worksheets("Kunde").Range("I70").Value = "Unbekannter KD freies Gebiet NDL und Ladenverkäufer" Worksheets("Kunde").Range("H70").Value = "1" TextBox30.Value = "1,50" ThisWorkbook.Worksheets("Kunde").Range("U63") = CDbl(TextBox30) TextBox30 = Format(Worksheets("Kunde").Range("U63").Value, ("0.00")) End If If Worksheets("Kunde").Range("H70").Text = "1" Then OptionButton1.ForeColor = &H8000& Else If OptionButton2 = True Then OptionButton1.ForeColor = &H80000012 End If End If End Sub

Und noch was in deinem Makro:wenn du OB1 drückst setz du h70 auf 1 und im gleichen atemzug fragst du h70 ab ob es 1 ist und machst dann den OB andersfarbig wieso machst du ihn nicht gelich so in dem du aus (Worksheets("Kunde").Range("H70").Value = "1") (OptionButton1.BackColor = H0000FF00) machst und den rest löschst denn das ist sinnlos ,weil die 1 ja sowieso gesetzt wird und du die dann nicht mehr abfragen musst.
If OptionButton1 = True Then
Worksheets("Kunde").Range("I70").Text = "Unbekannter KD freies Gebiet NDL und Ladenverkäufer"
Worksheets("Kunde").Range("H70").Value = "1"
TextBox30.Value = "1,50"
ThisWorkbook.Worksheets("Kunde").Range("U63") = CDbl(TextBox30)
TextBox30 = Format(Worksheets("Kunde").Range("U63").Value, ("0.00"))
End If
If Worksheets("Kunde").Range("H70").Text = "1" Then
OptionButton1.BackColor = H0000FF00
Else
If CheckBox1.Value = True Then
OptionButton1.BackColor = H0000FF00
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Roten Text

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread