Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile färben, in dem das Kontrollkästchen sitzt

Zeile färben, in dem das Kontrollkästchen sitzt
21.02.2017 10:15:36
Emma
Hey hey,
ich versuche mich gerade an VBA.
Ich habe eine Tabelle mit 500 Zeilen am Ende jeder Zeile soll ein Kontrollkästchen sitzten, dass die Zeile bei kompletter Bearbeitung grün färbt.
der Code den ich bisher verwende lautet:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("B11:AB11").Interior.ColorIndex = 46 'orange
Else
Range("B11:AB11").Interior.ColorIndex = xlNone
End If
End Sub

Eine Lösung für mein Problem wäre, den Code so umzuschreiben, dass er die Zeile, in der das Kontrollkästchen eingefügt ist auswählt anstatt "Range("B11:AB11")."
Aber dazu fehlen mir die VBA Kenntnisse.
Dannach könnte man dann das Active-X Steuerelement einfach kopieren und 499 mal einfügen.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile färben, in dem das Kontrollkästchen sitzt
21.02.2017 10:55:21
hary
Moin
Eine Moeglichkeit: Du nimmst Formularsteuerelemet. Ein Makro( mit Caller) und weist dem Steuerelemant das Makro zu. Das Steuerelemant muss aber genau in einer Zelle sitzen. Dieses kannst du kopieren.
https://www.herber.de/bbs/user/111624.xlsm
gruss hary
Zellen als Kontrollkästchen verwenden
21.02.2017 13:19:32
Daniel
Hi
Ein Kontrollkästchen in jeder Zeile ist sehr aufwendig.
einmal für dich zum Programmieren, aber auch für Excel in der Verwaltung.
in diesem Fall verwendet man besser eine Zelle selbst als Kontrollkästchen.
über folgenden Code im Modul des Tabellenblatts kannst du per Doppelklick die Zellen der Spalte AC als Kontrollkästchen verwenden, als Häkchen dient das "x".
Bei Doppeltklick auf eine Zelle der Spalte AC wird das "x" gesetzt oder gelöscht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 29 Then
If Target.Value = "x" Then
Target.ClearContents
Else
Target.Value = "x"
End If
Cancel = True
End If
End Sub
die Färbung machst du dann per Bedingter Formatierung für den Bereich A:AB mit der Regel: =$AC1="x"
Gruß Daniel
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige