Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

macro

Forumthread: macro

macro
23.12.2013 19:21:04
willi
Hallo Leute,
ich bitte um Hilfe.
In einer Tabelle von A1 bis E1 sind fortlaufend die Zahlen 1 bis 5 eingetragen.
Nun möchte ich, wenn man D4 mit der Hintergrundfarbe gelb markiert, dass die 4 in die Zelle F4 in fett und mit roter Schriftfarbe eingertagen wird.
Danke im voraus für Eure Hilfe.
Gruß Willi
https://www.herber.de/bbs/user/88621.xlsx

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nein, "so" geht das nicht ...
23.12.2013 20:04:34
Matthias
Hallo
Ich beziehe mich mal genau auf Deine Frage
Nun möchte ich, wenn man D4 mit der Hintergrundfarbe gelb markiert,
dass die 4 in die Zelle F4 in fett und mit roter Schriftfarbe eingertagen wird.

Das Setzen einer Hintergrundfarbe löst kein Ereignis aus.
Somit kann man das auch auf diesem Wege nicht lösen.
Man könnte aber z.B per Doppelklick die Zelle gelb färben.
Dann hätte man auch ein verwertbares Ereignis (den Doppelklick)
wobei dann auch die Zelle in Spalte(F) Rot und Fett formatiert werden kann.
Gruß Matthias

Anzeige
Jein, Matti, das normale Formatieren ...
23.12.2013 21:11:22
Luc:-?
…(hier mit einer Hintergrundfarbe) löst tatsächlich kein Ereignis aus, aber der Übertrag eines Formats mit dem Pinsel schon. Willi müsste seine Nutzer nur entsprd instru- resp disziplinieren… ;->
Gruß + FroWeihn, Luc :-?

da ziehe ich pers. den Doppelklick vor ;-)
23.12.2013 21:40:23
Matthias
Hallo Luc
Habe dem benutzen Range einen Namen verpasst:=Bereich
=Tabelle1!$A$1:$E$1;Tabelle1!$A$3:$E$4;Tabelle1!$A$6:$E$8;Tabelle1!$A$10:$E$10;Tabelle1!$A$12:$E$12
Tabelle1

 ABCDEF
1123452
2      
3123453
4123455
5      
6123451
7123452
8123453
9      
10123454
11      
12123455


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4


Code in Tabelle1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("Bereich")) Is Nothing Then Cancel = True Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = -4142 Target.Interior.Color = vbYellow With Cells(Target.Row, 6) .Value = Target.Value .Font.Bold = True .Font.Color = vbRed End With End If End Sub


Zurücksetzen dann mit diesem Code (Modul) per Klick auf ein Button
Sub Zuruecksetzen()
Tabelle1.Range("Bereich").Interior.ColorIndex = -4142
With Tabelle1.Range(Cells(1, 6), Cells(12, 6))
.ClearContents
.Font.Bold = False
.Font.ColorIndex = xlAutomatic
End With
End Sub
ok, das Zurücksetzen ist nicht ganz sauber. Da hätte ich Zeilen dazwischen rausnehmen müssen.
Hab ich mir aber hier geschenkt.
frohes Fest :o)
Gruß Matthias

Anzeige
Gerne; war ja auch nicht so ernst gemeint! ;-)
23.12.2013 23:43:19
Luc:-?
Luc :-?

Das weiß ich doch Luc ... :-) owT
23.12.2013 23:55:17
Matthias

AW: da ziehe ich pers. den Doppelklick vor ;-)
24.12.2013 10:15:06
willi
Hallo Matthias,
vielen Dank für deine schnelle hilfe.
Wo muss ich denn den "Bereich" eintragen?
Damit auf den Eintrag
(=Tabelle1!$A$1:$E$1;Tabelle1!$A$3:$E$4;Tabelle1!$A$6:$E$8;Tabelle1!$A$10:$E$10;Tabelle1!$A$12:$E$12)
zugegriffen werden kann?
Hoffentlich habe ich dann keine Fragen mehr.
Nochmals vielen dank und frohe Weihnachten
Willi

Anzeige
AW: da ziehe ich pers. den Doppelklick vor ;-)
24.12.2013 10:21:54
Matthias
Hallo
Im NamensManager steht der Name und sein Zellbezug.
https://www.herber.de/bbs/user/88626.xls
Frohes Fest
Gruß Matthias
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige