Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klick auf farbiges Sechseck ud Farbe in Zelle

Klick auf farbiges Sechseck ud Farbe in Zelle
29.03.2016 16:29:32
Dieter(Drummer)
Guten Tag VBA Spezialisten.
In aktiven Tabellenblatt sind insgesamt 127 Sechsecke mit 127 verschiedenen Farben!
Alle Sechsecke sind durch numeriert (1 - 127).
In der Musterdatei (anbei) z.B. das Sechseck Nr. 60 und Nr. 30.
https://www.herber.de/bbs/user/104653.xlsm
Mit Klick auf irgendeine der 127 Secksecke soll die NUR die Farbe
des geklickten Secksecks in die aktive Zelle eingefügt werden.
In Recherchen konnte ich nicht fündig werden. Wäre schön wenn es realisierbar wäre.
Mit Gruß, Dieter(Drummer)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klick auf farbiges Sechseck ud Farbe in Zelle
29.03.2016 16:41:19
Daniel
nuja, eigentlich sollte dich deine Recherchen zu diesem Themal zum Application.Caller geführt haben, sowas wird hier ja nicht zum ersten mal gefragt.
gehe so vor:
1. folgendes Makro in ein allgemeines Modul (Modul1): 
Sub ZelleFärben()
ActiveCell.Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB
End Sub
2. alle Rechtecke markieren und über das Kontextmenü - Makro zuweisen das unter 1. erstellte Makro zuweisen.
Das kannst du für alle Makros gleichzeitig machen, da du für alle Shapes das gleiche Makro verwenden kannst.
Gruß Daniel

Anzeige
AW: Danke Daniel, funktioniert perfekt. owT.
29.03.2016 17:09:07
Dieter(Drummer)

AW: Klick auf farbiges Sechseck ud Farbe in Zelle
29.03.2016 16:44:39
Helmut
Hallo,
wozu soll das gut sein?
Du hast doch meine Datei, warum "zerlegst" Du die Sechsecke?
Wozu das gut sein soll....
Gruß Helmut

AW: Danke für Rückmeldung ...
29.03.2016 17:12:02
Dieter(Drummer)
... Helmut. Ich habe einfach "gebastelt" und will es probieren.
Die VBAs von Daniel und Rudi funktionieren prima.
Danke dir trotzdem für dein bisherige Hilfe. Da hast du mir schon sehr geholfen.
Gruß, Dieter(Drummer)

AW: Klick auf farbiges Sechseck ud Farbe in Zelle
29.03.2016 16:53:42
Rudi
Hallo,
1.
In DieseArbeitsmappe: 
Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To 127
Sheets(1).Shapes("Sechseck " & i).OnAction = "faerben"
Next i
End Sub

2.
In ein Modul: 
Sub faerben()
ActiveCell.Interior.Color = ActiveSheet.Shapes(Application.Caller).DrawingObject.Interior. _
Color
End Sub
Gruß
Rudi

Anzeige
AW: Danke Rudi, deine Lösung ist prima ...
29.03.2016 17:13:33
Dieter(Drummer)
... beide Lösungen, deine und dei von Daniel funktionieren prima.
Herzlichen Dank und Gruß, Dieter(Drummer)

304 Forumthreads zu ähnlichen Themen

Klick auf Zelle
Manu

Hallo
ich möchte eine Excelliste entwerfen, die jedoch nur über ein Formular gefüllt werden kann. Um das editieren eines Eintrags zu vereinfachen, soll der Nutzer einfach nur auf eine Zelle klicken. Das Blatt ansich ist gesperrt, es können nur Zellen ausgewählt werden, jedoch nicht bearbei...
12.12.2008 23:44:40
Thread-ID: 1032548
3 Beiträge
Anzeige
Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
Event bei Klick auf Zelle
MBorn

Hallo,
weiß jemand, ob es eine Möglichkeit gibt ein Event bei Klick auf Zelle auszulösen.
(Also, nicht auf Button, sondern Zelle. )
Etwa so: Bei Klick auf Zelle A3 trage Zahl 3 in Zelle B3 ein.
(Insgesamt brauche ich das für 10 unterschiedliche Zellen)
Danke,
Born
20.07.2009 17:50:32
Thread-ID: 1090046
5 Beiträge
Anzeige
Doppelklick auf zelle mit eigenem Namen
chris

Hallo VBA Experten,
habe hier eina kurze frage.
Würde mich wie immer über Hilfe freuen.
Ich habe eine Zelle Z.b L8
diese zelle hat den Namen "testzelle_8"
Ist es jetzt möglich irgendwie an diesen Namen zu kommen.
Also wenn ich die zelle Doppelklicke das dann der Name aus...
09.03.2010 15:42:23
Thread-ID: 1144625
11 Beiträge
Doppelklick auf gesperrte Zelle - Adresse ausgeben
chris

Hallo und guten morgen zusammen,
könnt ihr mir helfen ?
ich habe ein Sheet in dem ich einen Doppelklick abfangen will.
In diesem Sheet sind mehere zellen gesperrt so das ich sie auch nicht mit der Maus selektieren kann.
Andere zellen sind nicht gesperrt wenn ein Schutz auf dem...
10.03.2010 08:43:06
Thread-ID: 1144729
28 Beiträge
Message bei Klick auf bestimmte Zellen
bastula

Liebe Excel-Experten,
ich möchte einen bestimmten Range eines Sheets zur Berarbeitung sperren, in dem restlichen Bereich soll in dem Moment, wo man auf eine Zelles dieses Bereiches klickt, eine MessageBox mit einer Warnung kommen.
Ich habs mit: Private Sub Worksheet_SelectionChange(ByVa...
28.04.2010 17:43:13
Thread-ID: 1154356
9 Beiträge
Bei Klick auf Zelle Macro ausführen
Benedikt

Guten Abend zusammen
Nachfolgender Code funktioniert einwandfrei, aber ist in jeder Zelle des Arbeitsblatt aktiv: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Call Macro 1 End Sub
Wie kann ich Ihn auf die Zellen B24 bis B50 beschränken?
Vielen D...
01.05.2010 17:06:32
Thread-ID: 1154879
5 Beiträge
KLICK auf Zelle - User-Form Show
Edwin

Wie kann ich durch einen Klick auf eine Zelle erreichen, daß eine User-Form geöffnet wird.
01.05.2002 21:24:48
Thread-ID: 117688
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
4
19
10
27
8
4
4
1
6
2
3
8
7
2
3
11
5
2
6
1
6
1