Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Für Experten/ ChekBox automatisch erstellen

Forumthread: 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

Anzeige

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

Anzeige
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
;

Beliebteste Forumthreads (12 Monate)

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