Offset Funktion etwas anders !

Computer: Software & Programmierung Office Software
1

Hi Alle

Suche eine Funktion, die die Spalte links neben der ActivCell und die beiden Rechts neben der ActiveCell aktiviert. Anschliessend möchte ich diese formatieren.

Also ich bin auf Zelle D, möche nun das B, E und F auch aktiv sind und sich zusammen formatieren lassen.

Kennt sich jemand da aus ?

Gruss
Flexo

2

Suche eine Funktion, die die Spalte links neben der ActivCell
und die beiden Rechts neben der ActiveCell aktiviert.
Anschliessend möchte ich diese formatieren.
Also ich bin auf Zelle D, möche nun das B, E und F auch aktiv
sind und sich zusammen formatieren lassen.

Hallo Flexo,

vielleicht so, Code in das Blattmodul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zei As Long, Ber As Range
If Target.Column 4 Then Exit Sub
Zei = Target.Row
Set Ber = Union(Range(„C“ & Zei), Range(„E“ & Zei & „:F“ & Zei))
Ber.Interior.ColorIndex = 34
End Sub

Gruß
Reinhard

3

super !

Danke Reinhard