Registriert seit: 06.07.2021
Version(en): Office365
Hallo liebe Gemeinschaft,
ich bin leider mittlerweile so eingerostet, dass ich alleine zu keinem Ergebnis komme.
![Blush Blush](https://www.clever-excel-forum.de/images/smilies/blush.gif)
Es wäre super, wenn mir da jemand aus der Patsche helfen könnte.
Ich suche einen Code, um die aktiv markierte Zelle gelb einfärben zu können.
Ich Danke vielmals schon vorab.
Registriert seit: 11.04.2014
Version(en): Office 365
05.06.2024, 09:07
(Dieser Beitrag wurde zuletzt bearbeitet: 05.06.2024, 09:08 von Klaus-Dieter.)
Hallo,
so würde das gehen:
Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
Target.Interior.Color = 65535
End Sub
Das Makro kommt in das Modul vom Tabellenblatt.
Allerdings werden dann alle Hintergrundfarben gelöscht.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 06.07.2021
Version(en): Office365
Hallo Klaus-Dieter und vielen Dank für deine Antwort.
Das ist leider nicht das, was ich mir vorstelle.
Ich hätte es gern als separates Modul, damit ich dem Makro eine Tastenkombi zuweisen kann.
Andere Formatierungen sollten auch erhalten bleiben.
Bei Makroausführung soll nur die gerade markierte Zelle gelb gefärbt werden.
Sorry, wenn ich das etwas unklar beschrieben hatte.
Registriert seit: 12.08.2019
Version(en): Office 365
Hallo,
ist eigentlich einfach
Sub EINMAKRONAME()
ActiveCell.Interior.Color = vbYellow
End Sub
Gruß Sigi
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
Zitat:Das ist leider nicht das, was ich mir vorstelle.
jede Antwort kann nur so gut wie die Frage sein. Der Weg, den du dir da vorstellst, scheint mir ein wenig Praxisfremd zu sein. Erst Zelle anklicken, dann Makro starten, wie soll das gehen? Sobald du woanders hinblickst, ist die Zelle nicht mehr aktiv.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 06.07.2021
Version(en): Office365
05.06.2024, 11:03
(Dieser Beitrag wurde zuletzt bearbeitet: 05.06.2024, 11:04 von pillamann0815.)
Warum sollte das praxisfremd sein.
In meinem Anwendungsfall muss ich ständig in irgendwelchen Listen Zellen gelb marikiert.
Und so lege ich mir das Makro auf STRG+Q und spare mir das nervige manuelle umfärben per Mausklick.
(05.06.2024, 09:39)Sigi.21 schrieb: Hallo,
ist eigentlich einfach
Sub EINMAKRONAME()
ActiveCell.Interior.Color = vbYellow
End Sub
Gruß Sigi
Vielen Dank.
Genau das habe ich gesucht.
Registriert seit: 26.09.2022
Version(en): 2019
Moin,
dein letzter Post wäre übrigens ein hervorragender erster Post gewesen, weil er ziemlich genau deinen Bedarf beschreibt :)
Viele Grüße
derHöpp
Registriert seit: 06.07.2021
Version(en): Office365
(05.06.2024, 18:02)derHoepp schrieb: Moin,
dein letzter Post wäre übrigens ein hervorragender erster Post gewesen, weil er ziemlich genau deinen Bedarf beschreibt :)
Viele Grüße
derHöpp
Da hast du Recht.
Beim nächsten mal gelobe ich Besserung.
Registriert seit: 29.09.2015
Version(en): 2030,5
06.06.2024, 08:11
(Dieser Beitrag wurde zuletzt bearbeitet: 06.06.2024, 08:12 von snb.)
Einfacher als eine Tastenkombi ist ein Doppelclick.
Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:1 Nutzer sagt Danke an snb für diesen Beitrag 28
• pillamann0815