Spalten- und Zeilen-"Koordinaten" farblich ändern

[Calafati]

Hab ich, Danke Dir Berni.
Sollte auf jeden Fall schon mal besser klappen!
VG
Klaus

[Rabe]

Hi Peter,

weil von Ralf angesprochen, hier ein einfaches Fadenkreuz.

inwiefern macht dieser Code ein Fadenkreuz?

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Calculate
On Error GoTo Beenden:
Beenden:
End Sub

[Käpt'n Blaubär]

Hallo Ralf, 

.., sorry, das war ein Griff in die falsche Schublade.
Aber da der TE  das Fadenkreuz ohnehin nicht wollte hat sich das ja wohl erledigt.

[Rabe]

Hi Peter,

hatte schon an meinen VBA-Kenntnissen gezweifelt.

Aber vielleicht interessiert so ein Fadenkreuz auch andere? Und Du hast ja so viele Schätze auf Deiner Platte.

[schauan]

Hallöchen,

hier wäre mal ein Kreuz Ist allerdings noch unkommentiert und der zweite .Top-Aufruf bei der Positionierung ist mein Wackelrund, weil ich noch nicht herausgefunden habe, warum beim Wechsel aus Spalte A irgendwo in Zeile 1 der linke Arm bei einmaligem .Top falsch positioniert wird Top wird zwar mit 0 übergeben und kommt auch in der Function an, aber das Shape übernimmt das nicht

Ansonsten kann in diesem Stand erst mal nicht mit der Maus in die gleiche Zeile oder Spalte geklickt bzw. gewechselt werden. Bei Bedarf entweder erst mal wo anders hin und dann zurück oder mit den Cursortasten wechseln.

Ein Vorteil dieser Variante ist, dass man sich keine Gedanken machen muss, ob bei farblicher Markierung von Spalten und Zeilen und anschließender Rücknahme eventuelle manuelle Einfärbungen verloren gehen.

[Klaus-Dieter]

Hallo,

damit lässt sich ein einfaches Fadenkreuz erzeugen:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells.Interior.Color = xlNone
   Columns(Target.Column).Interior.Color = 14281213
   Rows(Target.Row).Interior.Color = 14281213
End Sub

[RPP63]

Moin!
Eine Sammlung mit vier verschiedenen Varianten:

  Fadenkreuz_erweitert.xlsm (Größe: 25,87 KB / Downloads: 8)

Gruß Ralf