Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbänderung durch Checkbox

Forumthread: Farbänderung durch Checkbox

Farbänderung durch Checkbox
27.07.2005 08:46:15
Stephanie
Ich habe ein Problem welches ich durch meine noch nicht so ausgeprägten VBA Kenntnisse nicht lösen kann.
Ich habe eine Excel Tabelle erstellt in welchem Programme eingetragen sind. Die gibt auch eine Spalte welche mit "Erledigt" gekennzeichnet ist. Nun möchte ich, dass wenn bei einem Programm "Erledigt" als Status ist (d.h markierte Checkbox), dass sich die Schriftfarbe des Programmnamens Grün färbt.
Ich habe schon ein bisschen herumprobiert, aber konnte noch nicht viel Gescheites erreichen. Ich weiss nicht wie ich mich von einer Checkbox auf einen Text in einer Zelle beziehen kann.
Habe etwas mit ActiveCell probiert, doch das funktioniert nicht so wirklich. Kann mir jemand helfen?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbänderung durch Checkbox
27.07.2005 08:49:30
Claus
Hoi Stephanie,
probiers mal mit "bedingter Formatierung"... Das findest Du im Formatmenü...
Vielleicht hilft Dir das weiter...
Gruss
Claus
AW: Farbänderung durch Checkbox
27.07.2005 08:49:48
Dr.
Hi, z.B. so
If Checkbox1.Value = True then Cells(1,1).Interior.ColorIndex = xy
AW: Farbänderung durch Checkbox
27.07.2005 08:54:41
Dr.
Sorry, "Interior" veröndert natürlich den Zellhintergrund. Textfarbe z.B. auf blau:
.....Cells(1, 1).Font.Color = RGB(0, 0, 255)
Anzeige
AW: Farbänderung durch Checkbox
27.07.2005 09:22:42
Stephanie
Danke das hat super geklappt. Da ich aber nun ziemlich viele Einträge habe, wollte ich noch fragen, ob es möglich ist dies bei allen automatisch anzuwenden, ohne immer Copy Paste zu machen und die Nummern der Checkboxen zu ändern?
AW: Farbänderung durch Checkbox
27.07.2005 09:42:24
Dr.
Hi,
alle Checkboxen aktivierst Du so:

Sub test()
For i = 1 To OLEObjects.Count
Sheets(1).OLEObjects("Checkbox" & i).Object.Value = True
Next i
End Sub

Da musst Du dann nur noch Deinen Farbgebungscode integrieren.
Anzeige
AW: Farbänderung durch Checkbox
27.07.2005 11:28:04
Stephanie
Ich möchte aber nicht einfach alle Checkboxen aktivieren, sondern dass der Programmname vor der Checkbox grün wird falls sie aktiviert ist. Ich kann ja nicht einfach den gleichen Farbgebungscode integrieren, da dort ja die Zellen angegeben sind und ich möchte, dass es selber merkt welche Zellen aktiviert sind und diese dann grün schreibt
Anzeige
AW: Farbänderung durch Checkbox
27.07.2005 11:50:31
Dr.
Ich sag ja, Du musst den Farbgebungscode noch integrieren. Zb so:

Sub test()
For i = 1 To OLEObjects.Count
If Sheets(1).OLEObjects("Checkbox" & i).Object.Value = True then Cells (i,1).Font.Color = RGB (0,0,255)
End If
Next i
End Sub

;

Forumthreads zu verwandten Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
ComboBox 1 = ComboBox 2
mtremer

Hallo Excel-Freunde,
wie kann man die 2. ComboBox so programmieren, dass sie anfangs die gleichen Auswal wie die 1. Combobox anzeigt?
Wenn also die 1. "a" zeigt, soll die 2. auch "a" zeigen.
Die 2. soll aber auch weiterhin einstellbar sein. Man soll auch in der 2. "b" auswählen kön...
09.10.2008 14:33:00
Thread-ID: 1015355
5 Beiträge
Anzeige
combobox füllen durch textbox
kirsche

hallo leute,
ich stehe mal wieder vor einem problem und hoffe auf eure hilfe.
ich habe eine tabelle(artikelstamm) mit ca. 2000 einträgen. in spalte L steht die PLU, welche bei einigen artikeln gleich ist. außerdem habe ich eine userform mit einer textbox und combobox.
in die textb...
17.11.2008 13:46:00
Thread-ID: 1025207
6 Beiträge
checkboxen durchzählen: Syntax?
Jörg

Guten Abend oder guten Morgen...
simples Problem - ich weiß nur nicht, wie man das schreibt...
man kann doch alles mögliche durchzählen - Beispiel:
for i = 2 to 5
if irgendwas then range("Zelle" & i).irgendwas
wie geht denn das bei Checkboxen?
wenn ich z.B. schreibe...
18.03.2009 00:58:30
Thread-ID: 1061245
5 Beiträge
Checkboxen durchzählen
Jörg

Guten Abend, Gemeinde
mein Problem von vor einigen Tagen ist noch ungelöst - hab die Beispieldatei noch etwas modifiziert
https://www.herber.de/bbs/user/60530.xls
Es geht "ganz einfach" um die Frage, wie ich für eine For-next-Schleife, an der mehrere Checkboxen beteiligt sind, den...
20.03.2009 22:12:51
Thread-ID: 1062387
9 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Anzeige
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Excel Formel durch eigene Ergänzen ?
Hafner

Hallo
Ist es möglich, bei dem fixen Formeln unter Mathematikformeln eine eigene Formel zu speichern
es geht um diese Formel =@Ganzzahl(20*........+0.5)/20
ich benötige diese immer wieder und es ist Mühsam, diese jedesmal neu zu schreiben
23.05.2009 13:56:13
Thread-ID: 1076845
13 Beiträge
.find -> Suche erst nach x Durchläufen erfogreich
Suppenhuhn

Hallo Gemeinde !
Angehängte Makro-Routinen habe ich geschrieben um aus einer sehr, sehr langen Excel-Tapete die Zeilenpaare in ein neues Blatt auszusortieren, die in Spalte 13 bzw. 14 den gleichen Eintrag haben und deren Summe der Beträge in Spalte 17 gleich NULL sind.
Das Problem ist,...
24.05.2009 09:14:17
Thread-ID: 1076910
13 Beiträge
range("A1")= strText
Michael

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub URL_Load() Dim myIE_App As Object, strText As String Set myIE_App = CreateObject("InternetExplorer.Application") myIE_App.Navigate "http://www.kicker.de" Do Sleep 10 Loop Until myIE_App.B...
05.09.2009 16:16:24
Thread-ID: 1100785
2 Beiträge
Textbox1=Textbox2 wie?
Sascha


einen schönen guten abend...
kurze frage :)
wert einer textbox1 in eine andere textbox2 gleichzeitig übernehmen?
mit: TextBox4 = TextBox1?
lieben gruß
sascha
15.09.2009 17:42:27
Thread-ID: 1103029
3 Beiträge
Anzeige
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige