Office: (Office 2016) Excel VBA mit Toggle Button Zeile einfärben

Hallo,

ich habe ein Makro für einen activeX Toggle Button. Wenn dieser nicht betätigt ist, sollen bestimme Zellen in einer Reihe ihre Hintergrundfarbe ( hexal #FFFFFF ; RGB 255 255 255) behalten. Sobald der Button betätigt wurde, sollen sich die Zellen B9:D9 in die Hintergrundfarbe ( hex. #C198E0; RGB 193 152 224) wechsel. Beim Zurücksetzen des Buttons, sollen die Zellen ihre Ausgangsfarbe wieder annehmen.

Im Voraus, Danke für Eure Hilfe.

Das sind die Codes die ich bisher verwende:

Private Sub TBVergleich_Click()


If TBVergleich.Value = True Then
TBVergleich.Caption = "Aus"
Call SpaltenAu
Else
TBVergleich.Caption = "Ein"
Call SpaltenEi


End If
End Sub


Sub SpaltenEi()

Columns("U:AJ").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = True
Columns("M:T").EntireColumn.Hidden = True

End Sub

 

Hallo,

warum lädst du die Datei nicht hoch? So müssten wir jetzt alles nachbauen, ob das dann mit deiner Datei übereinstimmt, ist eher fraglich. In deinem Quelltext werden auch Spalten ein- bzw. ausgeblendet, das erscheint in deiner Beschreibung gar nicht.

 

Hola,
und dann bitte deine Beiträge in den verschiedenen Foren gegenseitig verlinken.
Gruß,
steve1da

 

Hallo Steve1da, Klaus-Dieter,
danke für eure schnellen Antworten.
Im Anhang die Tabelle.
@Klaus-Dieter
Ok, dachte das wäre nicht notwendig zu erwähnen, da es sich aus den Codes ergibt. Sorry

@steve1da
was meinst du mit, in anderen Foren verlinken? Ist doch nur was für das Excel-Forum.

 

Hallo Alive,

offenbar hast du deine Anfrage in mehreren Excel-Foren eingestellt. Warum arbeitest du mit den vielen Leerzeichen vor dem Minuszeichen in den Zellen ohne anderen Inhalt?

 

Hallo Klaus-Dieter,
damit das Minuszeichen immer kurz vor Ende der Zelle steht und überall gleich aussieht, wenn die Zelle leer ist.

 

Hallo,

meine gute Erziehung verbietet es mir, mich darüber zu vertiefen.
Nächste Frage: du schreibst in deiner Anfrage von Toggelbuttons, die Hintergrundfarbe von Zellen verändern. Welche sind das?. Magst du mir auf die Sprünge helfen?

 

Hallo,

wenn es eine bessere Lösung dafür gibt, dass das Minuszeichen an einer bestimmten Stelle ist, nehme ich diese gerne an.

Das sich die Zellen einfärben soll neu dazu kommen wenn man auf den Toggel Button für Vergleich drückt.

 

Hallo Alive,

OK, sehe ich mir an. Was die Minuszeichen betrifft, würde "- " bei Ausrichtung der Zellinhalte nach rechts, etwa den gleichen Effekt haben, wie deine 21 Leerzeichen links vom Minuszeichen. Das Minuszeichen zentriert zu positionieren wäre meine Wahl gewesen.
Solche Dinge fallen mir auf, weil mein erster Rechner nur einen Arbeitsspeicher von 16 KB (nutzbar 12 KB) hatte. Da kam es auf jedes Zeichen an.

 

Zur Info...
Excel VBA mit Toggle Button Zeile einfärben | HERBERS Excel Forum

 

Da gebe ich dir Recht, habe aber keine Möglichkeit gefunden um die leer Tabelle so zu formatieren, dass in allen Zellen das Zeichen an dieser Stelle angezeigt wird. Wenn man dann die Zelle mit einem Wert füllt, soll diese in der Mitte der Zelle stehen und nicht rechtsbündig.
Dies war der Hintergrund, es so zu lösen. Nur die Spalten O und P sind zum Ausfüllen freigegeben. Alle anderen werden über WENN Formeln befüllt.

 

Hallo Steve1da,

wo ist der Unterschied, ob ich in einem anderen Forum die Frage nochmal stelle und alles rein tippe oder aber einen Link angeben.
Am Ende stelle ich die selbe Frage in 2 verschiedenen Foren.
Wenn es dies ist, was dich ärgert, entschuldige ich mich dafür. Dachte mir nichts dabei.

Aber danke für den Hinweis, dass man es mitteilen sollte.

 

Das stimmt. Aber so können Helfer schauen, ob es schon Lösungen gibt und müssen nicht unnötig doppelt arbeiten.

 

Daran hatte ich nicht gedacht.
Wie schon geschrieben, danke für den Hinweis. Werde ich beim nächsten Mal beherzigen.

 

Hallo Alive,

so sollte es gehen:

Code:

Private Sub TBVergleich_Click()
    If TBVergleich.Value = True Then
        TBVergleich.Caption = "Aus"
        Call SpaltenAu
        Range("B9:D9").Interior.Color = 16777215
    Else
        TBVergleich.Caption = "Ein"
        Call SpaltenEi
        Range("B9:D9").Interior.Color = 14719169
        
    End If
End Sub