Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Einer von fünf Toggle Button soll Zelle färben
zurück: Blattschutz aktiv/ bestimmte Zellen freischalten weiter: Einfügen von Spalten in bestimmte Bereiche Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
rolandl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Nov 2009, 20:52
Rufname:

Einer von fünf Toggle Button soll Zelle färben - Einer von fünf Toggle Button soll Zelle färben

Nach oben
       Version: Office 2003

Hallo zusammen.
Ich habe folgendes Problem. In einem Urlaubsplaner sind fünf Toggle Button.
Wenn zum Beispiel Toggle Button 1 aktiv ist wird per Mausklick ein "U" in eine Zelle geschrieben bei Toggle Button 2 ein "S" usw wie ihr im Code seht.
Gleichzeitig wird bei den verschiedenen Buchstaben die Zellen andersfarbig gefüllt durch die bedingte Formatierung. Jetzt habe ich aber alle drei bedingten Formatierungen in gebrauch, und möchte mit dem Toggle Button 5 wenn dieser aktiv ist die Zelle blau färben, weiß aber nicht wie es geht. Könnte mir bitte jemand dabei helfen. Für euere Hilfe sage ich jetzt schon mal "Danke".

Viele Grüße
Roland
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Target.Column > 5 And Target.Row > 5 Then
        If ToggleButton1 = True Then
            Target.Cells(1).Value = "U"
           
        End If
        If ToggleButton2 = True Then
            Target.Cells(1).Value = "S"
           
        End If
        If ToggleButton3 = True Then
            Target.Cells(1).Value = "K"
           
        End If
        If ToggleButton4 = True Then
            Target.Cells(1).Value = "G"
           
        End If
        If ToggleButton5 = True Then
            Target.Cells(1).Value = "KU"

           
        End If
    End If
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub
Private Sub ToggleButton2_Click()
    If ToggleButton2.Value = True Then
        ToggleButton1.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub
Private Sub ToggleButton3_Click()
    If ToggleButton3.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub

Private Sub ToggleButton4_Click()
    If ToggleButton4.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton5.Value = False
    End If
End Sub

Private Sub ToggleButton5_Click()
    If ToggleButton5.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
    End If
End Sub
Phelan XLPH
Fortgeschritten


Verfasst am:
11. Nov 2009, 20:58
Rufname: Phelan


AW: Einer von fünf Toggle Button soll Zelle färben - AW: Einer von fünf Toggle Button soll Zelle färben

Nach oben
       Version: Office 2003

Wieso machst du das über nen ToggleButtton und nicht über Optionbuttons
oder über eine Combobox?

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Target.Column > 5 And Target.Row > 5 Then
        If ToggleButton1 = True Then
            With Target.Cells(1)
                .Value = "U"
                .Interior.ColorIndex = 3
            End With
        End If
        If ToggleButton2 = True Then
            With Target.Cells(1)
                .Value = "S"
                .Interior.ColorIndex = 4
            End With
        End If
        If ToggleButton3 = True Then
            With Target.Cells(1)
                .Value = "K"
                .Interior.ColorIndex = 5
            End With
        End If
        If ToggleButton4 = True Then
            With Target.Cells(1)
                .Value = "G"
                .Interior.ColorIndex = 6
            End With
        End If
        If ToggleButton5 = True Then
            With Target.Cells(1)
                .Value = "KU"
                .Interior.ColorIndex = 7
            End With
        End If
    End If
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub
Private Sub ToggleButton2_Click()
    If ToggleButton2.Value = True Then
        ToggleButton1.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub
Private Sub ToggleButton3_Click()
    If ToggleButton3.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton4.Value = False
        ToggleButton5.Value = False
    End If
End Sub

Private Sub ToggleButton4_Click()
    If ToggleButton4.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton5.Value = False
    End If
End Sub

Private Sub ToggleButton5_Click()
    If ToggleButton5.Value = True Then
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        ToggleButton4.Value = False
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein


Zuletzt bearbeitet von Phelan XLPH am 11. Nov 2009, 21:05, insgesamt einmal bearbeitet
Timo-T
Excel: gut, VBA: wird laaangsam besser


Verfasst am:
11. Nov 2009, 21:01
Rufname:
Wohnort: Sachsen

AW: Einer von fünf Toggle Button soll Zelle färben - AW: Einer von fünf Toggle Button soll Zelle färben

Nach oben
       Version: Office 2003

Hallo,
so vielleicht?
Code:
   
    If Target.Column > 5 And Target.Row > 5 Then
        If ToggleButton1 = True Then
            Target.Cells(1).Value = "U"
            Target.Cells(1).Interior.Colorindex = 5 ' Farbnummer einfach ausprobieren 1-56
        End If
' usw

_________________
Freundliche Grüße
vom Timo
rolandl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Nov 2009, 21:09
Rufname:

AW: Einer von fünf Toggle Button soll Zelle färben - AW: Einer von fünf Toggle Button soll Zelle färben

Nach oben
       Version: Office 2003

Hallo Timo-T/Glücksritter76.

Ich danke euch für die schnellen Antworten.
Leider bin ich ein Anfänger in Sachen Visual Basic Editor, Formeln und Makros.
Bin immer mal wieder damit am üben, tue mich aber schwer mit allem.

Die Lösung von Timo-T ist für mich genau das was ich gesucht.

Vielen Dank und viele Grüße
Roland
Phelan XLPH
Fortgeschritten


Verfasst am:
11. Nov 2009, 21:14
Rufname: Phelan


AW: Einer von fünf Toggle Button soll Zelle färben - AW: Einer von fünf Toggle Button soll Zelle färben

Nach oben
       Version: Office 2003

Das geht auch einfacher:

Hierzu benötigst du nur eine ComboBox:
Code:
Private Sub ComboBox1_GotFocus()
    ComboBox1.List = Array("U", "S", "K", "G", "KU", "")
    ComboBox1.Style = fmStyleDropDownList
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If ActiveCell.Column > 5 And ActiveCell.Row > 5 Then
        With ActiveCell
            .Value = ComboBox1.Value
            Select Case ComboBox1.Value
                Case "U": .Interior.ColorIndex = 3
                Case "S": .Interior.ColorIndex = 4
                Case "K": .Interior.ColorIndex = 5
                Case "G": .Interior.ColorIndex = 6
                Case "KU": .Interior.ColorIndex = 7
                Case Else: .Interior.ColorIndex = xlColorIndexNone
            End Select
        End With
    End If
   
End Sub


_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie? 4 excessor 1698 24. Jan 2005, 22:52
A.Knecht Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie?
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Daten in einer Zelle trennen 2 bsailer 7161 07. Jan 2005, 13:39
bsailer Daten in einer Zelle trennen
Keine neuen Beiträge Excel Formeln: mehrere WENN-Verknüpfungen pro Zelle 9 MichaP 2491 13. Dez 2004, 19:37
ae mehrere WENN-Verknüpfungen pro Zelle
Keine neuen Beiträge Excel Formeln: Bei der Formel "=C5-((B6-B5)*G3)" soll die Zelle G 2 Gast 1502 26. Nov 2004, 15:55
Gast Bei der Formel "=C5-((B6-B5)*G3)" soll die Zelle G
Keine neuen Beiträge Excel Formeln: Button erstellen 1 phil1982 1001 04. Nov 2004, 13:06
ae Button erstellen
Keine neuen Beiträge Excel Formeln: wenn zelle voll dann 15 umbroboy 7276 31. Okt 2004, 11:15
pehbeh wenn zelle voll dann
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
Keine neuen Beiträge Excel Formeln: spalte einer bestimmten zelle in einer anderen zelle anzeige 1 brouwe 1290 13. Okt 2004, 18:41
Arnim spalte einer bestimmten zelle in einer anderen zelle anzeige
Keine neuen Beiträge Excel Formeln: Leerzeichen in Zelle löschen 3 pkegelking 1807 01. Okt 2004, 11:57
pkegelking Leerzeichen in Zelle löschen
Keine neuen Beiträge Excel Formeln: Formatieren in Abhängigkeit von Zelle 'links'? 9 abidmon 2819 06. Sep 2004, 10:03
abidmon Formatieren in Abhängigkeit von Zelle 'links'?
Keine neuen Beiträge Excel Formeln: Zeile automatisch färben 26 Jony 4143 23. Aug 2004, 22:07
fl618 Zeile automatisch färben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage