Für Euch Profis sicher 'ne Kleinigkeit.
nachfolgender Code färbt die ganze Zelle in gelb.
Diesen Codeteil bitte in einem Modul der entsprechenden
Mappe kopieren:
Dim ranAltBereich As Range
Dim lngColorIndex(1 To 256) As Long
Dim bolDynMauszeiger As Boolean
Sub MarkierungEin(ByVal Target As Excel.Range)
Dim ranZelle As Range
Dim x As Integer
If bolDynMauszeiger = False Then Exit Sub
If Not ranAltBereich Is Nothing Then
x = 0
On Error Resume Next
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
Next
End If
Set ranAltBereich = _
Range("A" & Target.Row & ":IV" & Target.Row)
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
lngColorIndex(x) = _
ranZelle.Interior.ColorIndex
Next
Target.EntireRow.Interior.Color = RGB(255, 255, 200)
End Sub
Sub MarkierungAus()
Dim x As Integer
Dim ranZelle As Range
If Not ranAltBereich Is Nothing Then
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
Next
End If
End Sub
Sub MauszeigerEinschalten()
bolDynMauszeiger = True
End Sub
Sub MauszeigerAusschalten()
MarkierungAus
bolDynMauszeiger = False
End Sub
Den jetzt folgenden Code bitte in "diese Arbeitsmappe" kopieren:
Private Sub Workbook_SheetSelectionChange(ByVal sh _
As Object, ByVal Target1 As Excel.Range)
MarkierungEin Target1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MarkierungAus
End Sub