Office: (Office 2007) Einfärbung von XY-Achse bei Mouseover

User · 19. September 2007

Hallo zusammen,

gibt es die Möglichkeit bei einer Matrix die Schnittpunkte der X und Y Zeilen bei der Mouseover-Zelle zu markieren. Im Grunde ist es die Funktion welche ich z.B. bei PHPMyAdmin habe und mit der Maus die Zeilen einer Tabelle durchgehe. Dort wo mein Mauszeiger ist, wird die ganze Zeile eingefärbt.

Ich bräuchte diese Funktion noch zusätzlich für die Spalte und natürlich für Excel (2003). Ist das überhaupt möglich bzw. wer kann mir helfen.

Danke,
Flo

:)

User · 21. September 2007

Hier mal ein statisch gebautes Beispiel findet Ihr unter http://www.blamenet.de/matrix_einfaerbung_mover.gif
Das Ganze jetzt halt noch aktiv bei Mausbewegung.

Danke für die Hilfe!

OfficeUser · 21. September 2007

Hallo Floso,

eine Mouseover Ereignis über Zellen ist IMHO in Excel nicht Möglich. Man kann zwar die Mouseposition ermitteln, jedoch sagt diese nicht viel über die Zellen aus.

Schau mal, ob dir folgendes Makro schon weiter hilft.

A B C D E F G H I J K L M N O P
1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
2 1
3 2
4 3
5 4
6 5
7 6
8 7
9 8
10 9
11 10
12 11
13 12
14 13
15 14
16 15
17 16
18 17
19 18
20 19

Code:

User · 21. September 2007

Ach egal mit dem Mousover. Das ist schon genau das was ich will!

Kann man die Färbung nur bis zur geklickten Zelle gehen lassen oder ist
es immer wie ein Kreuz?

Vielen Dank!

OfficeUser · 21. September 2007

Hallo,

dann müsste es so aussehen.

A B C D E F G H I J K L M N O P Q
1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
2 1
3 2
4 3
5 4
6 5
7 6
8 7
9 8
10 9
11 10
12 11
13 12
14 13
15 14
16 15
17 16
18 17
19 18
20 19

Code:

Smeargol · 12. September 2016

Hallo Sebastian.

Dein Beitrag ist zwar schon "etwas älter", aber ich frage einfach mal darauf los....

Ich würde Dein Script ganz gerne verwenden. Aber....
Gibt es eine Möglichkeit, dass die Spalten und Zeilen nach dem Klicken auf eine andere Zelle wieder ihre ursprüngliche Farbe annehmen ?
Ich habe eine größere Tabelle, in der ich die Zeilen farblich markiert habe.

Vielen Dank.

B Y E,
Smeargol

mathieu_91 · 12. September 2016

Hallo,

du kannst in der Zeile statt xlNone deine eigentliche Farbe nehmen.

Code:

'Statt:
Range(Cells(row1 - 1, col1 - 1), Cells(row2, col2)).Interior.ColorIndex = xlNone
'So:
Dim MyColor as Integer
MyColor=1
Range(Cells(row1 - 1, col1 - 1), Cells(row2, col2)).Interior.ColorIndex = MyColor
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du verschiedene Farben hast wird das ggf. etwas komplizierter.

Grüße

Mathieu

Smeargol · 12. September 2016

Hi mathieu_91.

Vielen Dank für Deine schnelle Antwort.

Bin nur ein Anfänger, und vielleicht habe ich da einen Denkfehler, aber...

Wenn ich meine eigene Farbe eingebe, habe ich doch das selbe Problem wie vorher. Es werden alle Zeilen und Spalten in meiner vorgegebenen Farbe eingefärbt. Ich möchte die Zeilen aber abwechselnd grau|weiß (bzw. zwei verschiedene Farben) haben|belassen...

Liege ich da falsch ?

B Y E,
Smeargol

Muller · 12. September 2016

Hallo,

ich hab Dir mal was auf Grundlage des vorliegenden Codes geproggt:

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Klassenmodul der Arbeitsmappe
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Saved Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
"' gespeichert werden?", vbExclamation Or vbYesNoCancel)
Case vbYes
Call Tabelle1.prcResetColors
Call Tabelle1.prcResetUDType
Call Save
Case vbNo
Call Tabelle1.prcResetUDType
Saved = True
Case vbCancel
Cancel = True
End Select
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
'---------------------------------------------------------------------------------------
'Prozedur: Worksheet_SelectionChange
' Datum : 21.09.2007 15:56
'Ersteller: Sebastian Schulz
'Beschreibung:
'Variablen:
'Objekte:
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" ( _
ByRef pArray() As Any) As Long

Private Type ROW_COLOR
objRowRange As Range
lngColor As Long
End Type

Private mlngRow1 As Long, mlngRow2 As Long
Private mlngCol1 As Long, mlngCol2 As Long
Private maudtRowColor() As ROW_COLOR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lngColor1 As Long, lngColor2 As Long
Dim lngColor3 As Long
Dim ialngIndex As Long, ialngCount As Long
Dim objTarget As Range

On Error Resume Next
lngColor1 = RGB(255, 153, 0) 'Zeilen und Spaltenmarkierungsfarbe
lngColor2 = RGB(255, 204, 0) 'Zellmarkierung
lngColor3 = RGB(255, 153, 0) 'Spalten- und Zeilenüberschrift
mlngRow1 = 2 'Zeile Start >2
mlngRow2 = 20 'Zeile Ende
mlngCol1 = 2 'Spalte Start >2
mlngCol2 = 16 'Spalte Ende

Application.ScreenUpdating = False
Set objTarget = Target
Set Target = Application.Intersect(Target, Range(Cells(mlngRow1, mlngCol1), Cells(mlngRow2, mlngCol2)))

If Not CBool(SafeArrayGetDim(maudtRowColor)) Then
For ialngIndex = mlngRow1 To mlngRow2
With Rows(ialngIndex).Cells(1, objTarget.Column + 1).Interior
If .ColorIndex <> xlNone And .Color <> lngColor1 And _
.Color <> lngColor2 And .Color <> lngColor3 Then
ialngCount = ialngCount + 1
Redim Preserve maudtRowColor(ialngCount - 1) As ROW_COLOR
With maudtRowColor(ialngCount - 1)
Set .objRowRange = Rows(ialngIndex)
.lngColor = Rows(ialngIndex).Cells(1, objTarget.Column + 1).Interior.Color
End With
End If
End With
Next
End If
Call prcResetColors

' Bis Target markieren

Range(Cells(Target.Row, mlngCol1), Cells(Target.Row, Target.Column)).Interior.Color = lngColor1
Range(Cells(mlngRow1, Target.Column), Cells(Target.Row, Target.Column)).Interior.Color = lngColor1

' 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, mlngCol1 - 1).Interior.Color = lngColor3
Cells(mlngRow1 - 1, Target.Column).Interior.Color = lngColor3
Cells(Target.Row, Target.Column).Interior.Color = lngColor2

Set objTarget = Nothing
Application.ScreenUpdating = True
End Sub

Friend Sub prcResetUDType()
Erase maudtRowColor
End Sub

Friend Sub prcResetColors()
Dim ialngIndex As Long
Range(Cells(mlngRow1 - 1, mlngCol1 - 1), Cells(mlngRow2, mlngCol2)).Interior.ColorIndex = xlNone
For ialngIndex = 0 To Ubound(maudtRowColor)
With maudtRowColor(ialngIndex)
.objRowRange.Interior.Color = .lngColor
End With
Next
End Sub

Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 12
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, Muller

Smeargol · 12. September 2016

\@Muller

UUUaaaaahhhhh....

Das ist Unglaublich!
Du hast Dir ja Megaarbeit gemacht. *boah

Das muß ich mir unbedingt ansehen *freu*

Danke, danke...

B Y E,
smeargol

Nachtrag : Das Funktioniert Prima.... bis auf eines:
Die vorher im Tabellenblatt gefärbten Zeilen werden nach dem Einfügen der Codes komplett gefärbt.
Das heißt: die ganze Zeile wird ohne Begrenzung eingefärbt.

(Achso, ich habe Office 2010.)
.

xlph · 13. September 2016

Ich würde auf Nummer Sicher gehen und Bed. Format. nutzen.

Smeargol · 13. September 2016

\@xlph

Sowas habe ich ja noch nie gesehen......, nur mit bedingter Formatierung !
Das ist ja genial !

Muß ich mal schauen, wie oder ob ich das umsetzen kann...

Wenn ich das richtig gesehen habe, beziehen sich die bedingten Formatierungen auf die Angaben in Tabelle 2 (Spalte/Zeile).

Kann der Code im Tabellenblatt 1 so angepaßt werden, dass, wenn ich außerhalb der markierten Tabelle klicke, mir ein Wert auf der Tabelle 2 eingetragen wird, auf den die bedingte Formatierung nicht reagiert ?

Denn: Wenn ich Moment auf eine Zelle außerhalb der markierten Tabelle klicke, färbt sich trotzdem die Zeile oder Spalte in der Tabelle.

Sorry, wie gesagt bin immernoch nur Anfänger und kann leider nur sagen was nicht funktioniert. Habe keine Vorstellung davon, ob eine kleine Aktion manchmal einen Seitenlangen Code fordert (siehe Scrollen in ListBoxen).
Tut mir leid, diesen alten Thread nochmal herausgesucht zu haben.. :-)

Macht´s jut.

B Y E,
smeargol

xlph · 14. September 2016

Ist ne Kombination aus Bed. Form. und VBA.

Siehe Code im Codefenster der Tabelle:
Rechtsklick auf Tabellenreiter-> Code anzeigen...

Smeargol · 9. Februar 2021

Hey xlph,

von xlph

Ist ne Kombination aus Bed. Form. und VBA.

Siehe Code im Codefenster der Tabelle:
Rechtsklick auf Tabellenreiter-> Code anzeigen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Geil, geil, geil...das ist ja so geil!
Und ich staune, mit wie wenig Codezeilen sowas möglich ist *entsetzt
Gut..., dafür müssen die Zellen im Auswahlbereich mit bed.Form. gefüllt werden, aber das bekommt selbst ein Anfänger wie ich hin *grins *grins

Vielen dank für dieses Script, auch an sie anderen Beitragsteilnehmer und den Threadstarter.

B Y E,
Smeargol

P.S. Ich muß erst noch mehr andere Beiträge bewerten, bevor ich Deinen bewerten kann.

.

Luschi · 15. September 2016

Hallo Smeargol,

hier mal mein Versuch dazu. Damit man sieht, welche bedingte Formatierung für Zeile/Spalte verantwortlich ist, habe ich die Farbe für die Zeile geändert.

Gruß von Luschi
aus klein -Paris

Office: (Office 2007) Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover

Einfärbung von XY-Achse bei Mouseover - Similar Threads - Einfärbung Achse Mouseover

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

Excel VBA mit Toggle Button Zeile einfärben

Einfärben, wenn Wert benutzerdef. formatiert und positiv

Datum (von-bis) Zellen automatisch einfärben

Zelle vergleichen und einfärben

Bestimmte Spalten farblich markieren wenn Datum bzw. ein Wochentag erfüllt

Zelle mit Datumsangabe in Abhängigkeit von benachbarter Zelle einfärben

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1		1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19