Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Obtionsfeld: Farbwechsel bei Aktivierung

Obtionsfeld: Farbwechsel bei Aktivierung
09.03.2007 20:37:42
Ta
Kann das Optionsfeld (Forumlar) so formatiert werden, dass bei Aktivierung die Farbe von beispielsweise grün auf rot wechselt?
Besten Dank für jede Hilfe.

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

Betreff
Datum
Anwender
Anzeige
AW: Obtionsfeld: Farbwechsel bei Aktivierung
09.03.2007 21:17:00
Josef
Hallo ?,
weise jedem Optionsbutton/Checkbox folgendes Makro zu.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ColorShapes()
Dim objShp As Shape

On Error GoTo ErrExit
GMS

For Each objShp In ActiveSheet.Shapes
    objShp.Fill.Visible = msoTrue
    If Left(objShp.Name, 6) = "Option" Or Left(objShp.Name, 5) = "Check" Then
        objShp.Fill.ForeColor.RGB = IIf(objShp.DrawingObject.Value = 1, RGB(0, 255, 0), RGB(255, 0, 0))
    End If
Next

ErrExit:
GMS 0
Set objShp = Nothing
End Sub

Sub GMS(Optional ByVal Modus As Integer = 1)

With Application
    .ScreenUpdating = Modus <> 1
    .EnableEvents = Modus <> 1
    .DisplayAlerts = Modus <> 1
    .Calculation = IIf(Modus = 1, -4135, -4105)
    .Cursor = IIf(Modus = 1, 2, -4143)
End With

End Sub

Gruß Sepp
Anzeige
AW: Obtionsfeld: Farbwechsel bei Aktivierung
10.03.2007 18:36:18
Ta
Super, besten Dank. Hat bestens geklappt!

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