|
Getestete Excel-Version: Excel 2003
Autor: Sebastian Schulz
Speicherort: Arbeitsmappe
Beispieldatei: ---
Bei größeren Tabellen kann leicht die Übersicht verloren gehen. Um die aktuelle Zeile im Blick zu halten, kann folgendes Makro benutzt werden.
| |
A |
B |
C |
D |
E |
F |
G |
H |
| 1 |
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
| 2 |
1 |
|
|
|
|
|
|
|
| 3 |
2 |
|
|
|
|
|
|
|
| 4 |
3 |
|
|
|
|
|
|
|
| 5 |
4 |
|
|
|
|
|
|
|
| 6 |
5 |
|
|
|
|
|
|
|
| 7 |
6 |
|
|
|
|
|
|
|
| 8 |
7 |
|
|
|
|
|
|
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row1 As Integer
Dim row2 As Integer
Dim col1 As Integer
Dim col2 As Integer
Dim color1 As Integer
Dim color2 As Integer
Dim color3 As Integer
On Error Resume Next
color1 = 45 'Zeilen und Spaltenmarkierungsfarbe
color2 = 44 'Zellmarkierung
color3 = 45 'Spalten- und Zeilenüberschrift
row1 = 2 'Zeile Start >2
row2 = 20 'Zeile Ende
col1 = 2 'Spalte Start >2
col2 = 16 'Spalte Ende
Set Target = Application.Intersect(Target, Range(Cells(row1, col1), Cells(row2, col2)))
Range(Cells(row1 - 1, col1 - 1), Cells(row2, col2)).Interior.ColorIndex = xlNone
'Bis Target markieren
Range(Cells(Target.Row, col1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = color1
Range(Cells(row1, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = color1
'Gesamte Zeile/Spalte in Target markieren
'Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = color1
'Range(Cells(row1, Target.Column), Cells(row2, Target.Column)).Interior.ColorIndex = color1
Cells(Target.Row, col1 - 1).Interior.ColorIndex = color3
Cells(row1 - 1, Target.Column).Interior.ColorIndex = color3
Cells(Target.Row, Target.Column).Interior.ColorIndex = color2
End Sub
|
Tipps und Tricks