Angeklickte Spalte Schrift + Farbe ändern

[RPP63]

Ich dachte eigentlich, dass durch die Bezeichnungen (*Zeile*, *Spalte*) in den einzelnen Verfahren sehr deutlich ist, was nicht gebraucht wird, wenn nur die Zeile relevant ist. 
Ein wenig Mitarbeit solltest Du schon mitbringen.
Willst Du lernen oder nur vorgekaut bekommen?

Probiere es einfach mal aus! ;)
Wenn Du dann nicht klar kommst, stellst Du Deinen Code hier rein, dann wird Dir sicherlich geholfen.

P.S.:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B18:J33")) Is Nothing Then
   ThisWorkbook.Names.Add Name:="AktiveZeile", RefersToR1C1:=Target.Row
   ThisWorkbook.Names.Add Name:="AktiveSpalte", RefersToR1C1:=Target.Column
Else
   On Error Resume Next
   ThisWorkbook.Names("AktiveZeile").Delete
   ThisWorkbook.Names("AktiveSpalte").Delete
   On Error GoTo 0
End If
End Sub

Preisfrage: Was muss hier wegfallen?  :21:

Gruß Ralf

[hbboy15]

Es klappt :)
Jedoch macht es mein anderen Code kaputt, bzw bringt es zum Absturz mit Fehlermeldung wahrscheinlich überschneidet es sich es.

Die Makierung


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A8:I200")) Is Nothing Then
   On Error Resume Next
   ThisWorkbook.Names("AktiveZeile").Delete
   On Error GoTo 0
   Exit Sub
End If
   ThisWorkbook.Names.Add Name:="AktiveZeile", RefersToR1C1:=Target.Row
End Sub

Mein Modul (Wenn ich Rechtsklick mache öffnet sich ein Menü)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Range("E8:E200"), Target) Is Nothing Then
   Target.Value = MeinAuswahlmenue
   Cancel = True
   End If
   End Sub

Wie kann ich das Problem beheben ?

[hbboy15]

Es klappt :)
Jedoch macht es mein anderen Code kaputt, bzw bringt es zum Absturz mit Fehlermeldung wahrscheinlich überschneidet es sich es.

Die Makierung


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A8:I200")) Is Nothing Then
   On Error Resume Next
   ThisWorkbook.Names("AktiveZeile").Delete
   On Error GoTo 0
   Exit Sub
End If
   ThisWorkbook.Names.Add Name:="AktiveZeile", RefersToR1C1:=Target.Row
End Sub

Mein Modul (Wenn ich Rechtsklick mache öffnet sich ein Menü)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Range("E8:E200"), Target) Is Nothing Then
   Target.Value = MeinAuswahlmenue
   Cancel = True
   End If
   End Sub

Wie kann ich das Problem beheben ?

Habs geändert:

'Zeile makieren
 Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A8:I200")) Is Nothing Then
On Error Resume Next
   ThisWorkbook.Names("AktiveZeile").Delete
   On Error GoTo 0
   Exit Sub
End If
   ThisWorkbook.Names.Add Name:="AktiveZeile", RefersToR1C1:=Target.Row
End Sub

funktioniert alles perfekt VIELEN DANK ! :)