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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

	A	B	C	D	E	F
1	1	2	3	4	5	2
2
3	1	2	3	4	5	3
4	1	2	3	4	5	5
5
6	1	2	3	4	5	1
7	1	2	3	4	5	2
8	1	2	3	4	5	3
9
10	1	2	3	4	5	4
11
12	1	2	3	4	5	5

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

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

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)

	A	B	C	D	E	F
1	1	2	3	4	5	2
2
3	1	2	3	4	5	3
4	1	2	3	4	5	5
5
6	1	2	3	4	5	1
7	1	2	3	4	5	2
8	1	2	3	4	5	3
9
10	1	2	3	4	5	4
11
12	1	2	3	4	5	5

	A	B	C	D	E	F
1	1	2	3	4	5	2
2
3	1	2	3	4	5	3
4	1	2	3	4	5	5
5
6	1	2	3	4	5	1
7	1	2	3	4	5	2
8	1	2	3	4	5	3
9
10	1	2	3	4	5	4
11
12	1	2	3	4	5	5

Forumthread: macro

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

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C	D	E	F
1	1	2	3	4	5	2
2
3	1	2	3	4	5	3
4	1	2	3	4	5	5
5
6	1	2	3	4	5	1
7	1	2	3	4	5	2
8	1	2	3	4	5	3
9
10	1	2	3	4	5	4
11
12	1	2	3	4	5	5