online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon antiher000 vom 12.07.2019, 17:55 Options

exel: aktive zelle auf A3, Spalte A und Zeile 3 sollen...

...hervorgehoben werden.

Also die Zelle A3 ist aktiv, also nur markiert...jetzt sollen die oberste Zelle in Spalte A und die "linkeste" in Zeile 3 hervorgehoben werden...

das soll der Orientierung dienen...

Geht das ohne VBA??

Grüße


Antwort schreiben

Antwort 1 von rainberg vom 12.07.2019, 18:14 Options

Hallo,

wenn Zeilen- und Spaltenköpfe eingeblendet sind, funktioniert doch die gewünschte Markierung schon ohne weiteres Zutun Deinerseits.

Falls Du bei ausgeblendeten Köpfen jeweils die erste Zeilen- und Spaltenzelle markieren willst, dann geht das nicht ohne VBA.

Probier mal das:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Cells(1, Target.Column).Interior.ColorIndex = 3
Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub


Die Markierungsfarbe (hier 3), kannst Du anpassen.

Gruß
Rainer

Antwort 2 von antiher000 vom 12.07.2019, 21:50 Options

Ja darum gehts: die zeiel und spalten knöpfe sind war markiert, es sollten aber die Zeilen- und Spalten sein :)

Danke für den Code, ich test mal :)

Ok...also folgendes ist passiert:

sämtlichen farblichen markierungen sind verschwunden, aber immerhin wird an der zeile jetzt da markiet wo die aktive zelle ist

also - zeilenmarkierung geht :)

Grüße

btw: wie kann man denn die zeilen und spaltenknöpfe ausblenden?

grüße

Antwort 3 von antiher000 vom 12.07.2019, 21:51 Options

spalten markierung geht auch....

Antwort 4 von rainberg vom 12.07.2019, 22:15 Options

Hallo,

wenn Du folgenden Code verwendest, werden nur die Farbmarkierungen in Spalte A und Zeile 1 gelöscht.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows("1:1").Interior.ColorIndex = xlNone
    Columns("A:A").Interior.ColorIndex = xlNone
    Cells(1, Target.Column).Interior.ColorIndex = 3
    Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub


Gruß
Rainer

Antwort 5 von antiher000 vom 13.07.2019, 09:17 Options

Wenn möglich sollten keine Markierungen gelöscht werrden :)

Grüße

Antwort 6 von rainberg vom 13.07.2019, 09:28 Options

Hallo,

da kann ich Dir leider nicht helfen.

Gruß
Rainer

Antwort 7 von antiher000 vom 13.07.2019, 12:53 Options

Trotzdem Danke :)

Ich werds mal probieren ob ichs so hinkrieg...

Grüße

Ähnliche Themen

Excel-Dateien verbinden
manolli  12.03.2007 - 310 Hits - 1 Antwort

Zeichen in Zellen zählen und ggf. Zellen löschen
Toni165  28.03.2007 - 106 Hits - 2 Antworten

Aufaddieren von Zahlen in einer Zelle
snoelg  03.04.2007 - 55 Hits - 4 Antworten

Eintrag in Tabelle abhängig von Bedingung suchen
OliverNEU  10.06.2007 - 92 Hits - 9 Antworten

Pausenergebniss
Lassytter  21.12.2007 - 130 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026