Feintuning mit verknoteten Fingern
22.09.2016 09:01:33
MB12
möchte in unsere Terminplanung noch ein Bonbon einbauen und bekomm es einfach nicht hin.
Makros aktuell (v. Michael):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 11 And Target.Row > 6 Then
Call zeileFaerben(Target.Row, 121) 'noch anpassen (bis KW bzw. Spalte)
Cancel = True
End If
End Sub
Sub zeileFaerben(z&, maxs&) 'TEST
Dim zeile As Range, c As Range
Dim farbe&
Set zeile = Range("L" & z).Resize(, maxs - 12)
' MsgBox zeile.Address
farbe = Range("F" & z).Interior.Color
For Each c In zeile
If IsNumeric(c) Then
If c > 0 Then c.Interior.Color = farbe Else c.Interior.Color = xlNone
Else
c.Interior.Color = xlNone
End If
Next
End Sub
Hiermit kann der User in bestimmten Zeilen mit Doppelklick Einträge einfärben.
Jetzt will ich etwas ganz einfaches einbauen:
Wenn der User mit rechts (Worksheet_BeforeRightClick)
in eine Zeile klickt, soll diese Zeile wieder Interior.Color=XlNone sein
Bedingung wie oben
If Target.Column > 11 And Target.Row > 6 Then
KANN DOCH NICHT SO SCHWER SEIN (Ärger!)
Danke für Eure Hilfe
Margarete