Office: Aktive Zeile dauerhaft markieren

Habe die Lösung gefunden.

Code:

Private Sub ToggleButton1_Click()
If Cells(1000, 1000) <> 0 Then
Cells(1000, 1000) = 0
Else
Cells(1000, 1000) = 1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
1
If Cells(1000, 1000) <> 0 Then
With Range("B" & Target.Row, "P" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else

End If
End Sub

Jedoch benötige ich 3 Button und jeder Button die Spalte B-P der jeweiigen Zeile in eine andere Farbe einfärben. Wie bewerkstelle ich dies?

 

Hallo,

vielleicht solltest du mal ausführlich beschreiben, was du eigentlich machen willst. Im ersten Beitrag schreibst du:

Jetzt kommen auf einmal Werte ins Spiel, die die Färbung auslösen sollen. Das würde ja erst einmal für die Verwendung von bedingten Formatierungen sprechen. Dafür braucht man keinen ToggleButton.

 

Sorry. Werde nochmal versuchen zu erklären was ich eigentlich möchte.

Stelle mir 3 ToogleButton vor. Drücke ich auf Button 1 soll die Spalte B-P der jeweiligen Zeile wo ich mich gerade mit dem Cursor befinde in Gelb eingefärbt werden und mit nochmaligen drücken, wird dieses Funktion ausgeschaltet.
Drücke ich Button 2 soll das gleiche passieren, jedoch mit einer anderen Farbe. Und das gleiche mit Button 3 wieder mit einer anderen Farbe. Sind alle 3 Button nicht aktiviert, soll gar nichts davon geschehen.
Am Ende habe ich dann 3 verschiedene Button die mir jeweils eine andere Farb der Spalten B-P der jeweiligen Zeile markiert haben,
Die Tabelle wird täglich mit mehreren Zeilen erweitert.

 

Hallo,

warum willst du das mit ToggleButtons machen?

 

Wenn es anders geht ist es auch okay. Habe mir nur gedacht, so kann ich die Funktion ein und ausschalten.
Da ich auch Zeilen bearbeite, die keine Färbung haben. Auf eine andere Lösung bzw. weg komme ich selber nicht drauf.

 

Hallo Tommy,

versuche es mal damit:

Code:

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Range("B" & Target.Row, "P" & Target.Row).Interior.Color = xlNone
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim isect As Range
    Dim lngFarbe As Long
    lngFarbe = 65535
    Set isect = Application.Intersect(Target, Range("B" & Target.Row, "P" & Target.Row))
    With Range("B" & Target.Row, "P" & Target.Row).Interior
        Select Case .Color
            Case Is = 65535
                lngFarbe = 5296274
            Case Is = 5296274
                lngFarbe = 15773696
        End Select
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = lngFarbe
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Wenn du das erste Mal auf eine Zelle im Bereich der Spalten B bis P klickst, wird dieser Bereich gelb gefärbt.
Klickst du auf einen gelb gefärbten Bereich, wird der grün. Klickst du auf einen grün gefärbten Bereich wird der blau.
Klickst du mit der rechten Maustaste auf einen gefärbten Bereich, wird die Farbe entfernt. Hoffe das trifft es.

 

Nahezu Perfekt.
Doch diese Funktion ist ja dauerhaft. Möchte ich einen Wert in der Zelle verändern und klicke ich diese mit der Maus an. Ändert sich sofort die Markierung. Gibt es eine Möglichkeit diese Funktion ein und auszuschalten, damit ich den Wert der Zelle auch ändern kann, ohne dass die Funktion (Zeile Markieren) gleich aktiv ist?

 

Hallo,

der Betreff deiner Anfrage: Aktive Zeile dauerhaft markieren
Jetzt schreibst du: Doch diese Funktion ist ja dauerhaft.

Melde dich bitte wieder, wenn du weißt, was du möchtest, ich kann ein bisschen programmieren, hellsehen eher nicht so gut.