Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Für Experten/ ChekBox automatisch erstellen

Für Experten/ ChekBox automatisch erstellen
13.02.2008 17:40:55
Fred
Hallo zusammen.
Ich habe da ein Problem und weis nicht ob dieses Lösbar ist. Ich möchte gerne, wenn ich in Spalte A ( A1) etwas eintrage, das dann in Spalte D (D1) eine Chekbox automatisch eingefügt wird mit dem Capter offen und der Hintergrundfarbe rot .
Das gleiche dann wenn ich in A2 oder A3 oder A2333 ...usw. was eintippe. wenn ich dann einen Haken in die Chekbox mache , soll das Capture sich ändern in geliefert und die Hintergrundfarbe soll sich in Grün ändern.
Ist soetwas möglich
Grüße Fred

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Für Experten/ ChekBox automatisch erstellen
13.02.2008 20:42:19
Tino
Hallo,
etwas habe ich zusammenbekommen,
nur mit der Umstellung des Textes habe ich keinen Erfolg.
https://www.herber.de/bbs/user/49901.xls
Gruß
Tino

AW: Für Experten/ ChekBox automatisch erstellen
13.02.2008 20:56:00
Fred
Hallo Tino
Das sieht ja absolut superaus. Vielen Dank für die Mühe so reicht mir das auch erst mal
Vielen Dank das hätte ich ja nie hin bekommen
Grüße Fred

AW: Noch Fehler gefunden! Sorry
13.02.2008 21:05:00
Tino
Hallo,
noch einen Fehler habe ich gefunden,
die Abfrage ob die Zelle, die geändert wurde überhaupt in Spalte A ist und wenn
der Inhalt in A gelöscht wird, wird auch Box dazu entfernt.
https://www.herber.de/bbs/user/49904.xls
Gruß
Tino

Anzeige
AW: Noch Fehler gefunden! Sorry
13.02.2008 22:42:00
Ramses
Hallo
probier mal. Ist etwas anders aufgebaut, aber grundsätzlich mit der gleichen Logik
https://www.herber.de/bbs/user/49906.xls
Gruss Rainer

anderer Ansatz
14.02.2008 10:19:00
Rudi
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
Dim myCBX As Object
If Target  "" Then
Set myCBX = ActiveSheet.CheckBoxes.Add(1, 1, 1, 1)
With myCBX
.Top = Target.Top
.Left = Target.Offset(0, 3).Left
.Height = Target.RowHeight
.Width = Target.Offset(0, 3).Width
.OnAction = "prcCBX"
.Characters.Text = "offen"
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
Else
For Each myCBX In ActiveSheet.Shapes
If myCBX.OLEFormat.Object.TopLeftCell.Address = Target.Offset(0, 3).Address Then myCBX. _
Delete
Next
End If
End If
End Sub


in ein Modul:


Sub prcCBX()
Dim myCBX As Object
Set myCBX = ActiveSheet.Shapes(Application.Caller)
With myCBX.OLEFormat.Object
Select Case .Value
Case 1
.Interior.Color = RGB(0, 255, 0)
.Caption = "erledigt"
Case -4146
.Interior.Color = RGB(255, 0, 0)
.Caption = "offen"
End Select
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige