Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Martin-Excel vom 09.03.2019, 16:29 Options

Excel-VBA: aus Textbox in Zelle, mit verschiedenen Farben schreiben

Hallo Forum,

ich habe ein Problem mit einem Makro. Vielleicht kann mir jemand helfen.

Ich habe ein Userform mit einer Textbox1. Diese Textbox wird beim starten der Userform mit dem Inhalt einer bestimmten Zelle gefüllt. Ich kann dann einen neuen Text in diese Textbox1 eingeben und beim klick auf Commandbutton "Übernehmen" wird der neue Inhalt der Textbox in die gleiche Zelle geschrieben, welche beim Start ausgelesen wurde.

Gibt es eine Möglichkeit die Userform so einzurichten, daß ich folgendes machen kann. Wenn ich den neuen Text in die Textbox1 eingegeben habe, möchte ich gerne über zwei Auswahlfelder ("Häkchen" setzen) entscheiden, mit welcher Schriftfarbe in diese Zelle geschrieben wird. Zum Beispiel zur Auswahl stehen könnte Rot und Grün.

Vielen Dank für eure Hilfe im Vorraus.

Gruß

Martin

Antwort schreiben

Antwort 1 von schnallgonz vom 09.03.2019, 17:08 Options

Salve

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Selection.Font.ColorIndex = 3 '(rot)
End If
If CheckBox2 = True Then
Selection.Font.ColorIndex = 4 '(grün)
End If
End Sub

Wegen anderer Farben einfach den makrorecorder bemühen.
Und natürlich Selection durch Deine "bestimmte Zelle" austauschen, falls nicht schon durch Code voreingestellt.

gruß
schnallgonz

Antwort 2 von Beverly vom 09.03.2019, 18:53 Options

Hi miteinander,

wenn es nur 2 Farben sind, geht es auch einfacher

Private Sub CommandButton1_Click()
    If CheckBox1 Then
        Selection.Font.ColorIndex = 3
    Else
        Selection.Font.ColorIndex = 4
    End If
End Sub

Bis später,
Karin

Antwort 3 von Martin-Excel vom 09.03.2019, 20:06 Options

Hallo Forum,
Hallo schnallgonz ,
Hallo Beverly,

hat super funktioniert. Genau das was ich gesucht habe.

Vielen Dank.

Gruß

Martin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken