Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Freiform mit klick umfärben und symbol oder weitere Freiform

Forumthread: Freiform mit klick umfärben und symbol oder weitere Freiform

Freiform mit klick umfärben und symbol oder weitere Freiform
04.10.2023 18:51:46
Benzer77
Guten Tag.
Ich habe ein Tb mit 100 Freiform(Ff) Ellipsen in schwarz.
Ich möchte gern das beim anklicken jeder einzelnen Ff sich die Färbe in rot ändert.
Bei einem weiteren klick soll es wieder schwarz werden. Mit einem Makro recording funktioniert es leider nicht. Da kann ich nur einmal die Farbe ändern.
Kann man auch eine weitere Ff in die bestehende einfügen lassen?
Also bei Ellipse schwarz ein - und bei rot ein +?
Bin für tipps und erklärung dankbar.
Mfg Benzer
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
05.10.2023 03:56:54
Oberschlumpf
Hi,

schreib dieses Makro in ein allgemeines Modul... 


Sub sbBlackRed()



    With ActiveSheet.Shapes.Range(Array(Application.Caller)).Fill

        .Visible = msoTrue

            If .ForeColor.RGB = RGB(0, 0, 0) Then

                    .ForeColor.RGB = RGB(255, 0, 0)

                Else

                    .ForeColor.RGB = RGB(0, 0, 0)

            End If

        .Transparency = 0

        .Solid

    End With



End Sub

...nun weise dieses Makro erst mal - zum Ausprobieren :-) - 2 oder 3 Formen zu, und guck, was beim Anklicken dieser Formen passiert.
Da sich nun für die Formen, denen du das Makro zugewiesen hast, wie gewünscht, die Hintergrundfarbe zwischen schwarz + rot abwechselt, weise nun das Makro auch allen anderen Formen zu.

Ja, ich weiß, mein Code "löst" nur 1 deiner 2 Fragen.
Aber es gibt ja auch noch andere Antworter ;-)

Konnte ich denn helfen?

Ciao
Thorsten
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
05.10.2023 20:35:55
Benzer
Lieber Thorsten,
danke für deinen Code, er funktioniert. Das mit + & - ist nicht so wichtig, lege eine Legende an.
Besteht die Möglichkeit deinen Code um eine weitere Farbe zu erweitern? Würde gerne noch weiß (255, 255, 255) mit drin haben. Doch dann meckert er das "End If" fehlt wenn ich das mit einfüge.
Gruß Benzer
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
05.10.2023 21:04:05
daniel
Hi
du möchtest, dass bei Klick mehrere Farben durchrolliert werden und nicht nur zwei getauscht werden?
dann mit Select Case so anstelle des IFs. 

Select Case .ForeColor.RGB

    Case Farbe1: .ForeColor.RGB = Farbe2

    Case Farbe2: .ForeColor.RGB = Farbe3

    Case Else: .ForeColor.RGB = Farbe1

End Select


Für Farbe1, 2, 3 bitte die entsprechenden RGB-Werte einsetzen.

Gruß Daniel
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
05.10.2023 22:05:19
Benzer
Danke Daniel für die schnelle Antwort.

jedoch wenn ich es einsetze bekomme ich den Fehler
" Laufzeitfehler 1004"
"Der Index in der angegebenen Sammlung ist außerhalb des zulässigen Bereiches." 

Sub wsbBlackRed()



    With ActiveSheet.Shapes.Range(Array(Application.Caller)).Fill

        .Visible = msoTrue

        Select Case .ForeColor.RGB

            Case Farbe1: .ForeColor.RGB = RGB(0, 0, 0)

            Case Farbe2: .ForeColor.RGB = RGB(255, 0, 0)

            Case Else: .ForeColor.RGB = RGB(255, 255, 255)

        End Select

    End With

End Sub


Was hab ich falsch gemacht?
Gruß Benzer
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
06.10.2023 11:07:03
daniel
Hi

der erste Fehler ist ein VBA-Bug, weil Microsoft gelegentlich seiner eigenen Weiterentwicklung hinterher hinkt:
Application.Caller hat nur 30 Zeichen und schneidet längere Namen ab.
Die Namen der Buttons, die du verwendest, sind aber länger und werden daher abgeschnitten. Damit verwendest du einen falschen Namen als Index.
Du kannst also entweder andere Grafikelemente mit kürzerem automatischen Namen verwenden, oder du benennst deine Elemente auf einen kürzeren Namen um.

der zweite Fehler ist, dass du nicht alle meine "FarbeX" durch den Wert ersetzt hast, sondern nur 3 von 5 (auch die bei Case)
also auch hier die Werte eintragen oder entsprechende Variablen anlegen.
Gruß Daniel
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
06.10.2023 16:56:30
Benzer77
Sorry Daniel,
Evtl. Hab ich mich überschätzt mit Basic Wissen in VBA.
Ich habe leider nicht verstanden was ich wo ändern oder anpassen muss.
Gruß Benzer
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
07.10.2023 22:55:44
Benzer
Moin,
Hab es jetzt so geändert. 
Sub wsbBlackRed()

    

        With ActiveSheet.Shapes.Range(Array(Application.Caller)).Fill

        .Visible = msoTrue

        

        Select Case .ForeColor.RGB

            Case vbWhite: .ForeColor.RGB = vbBlack

            Case vbBlack: .ForeColor.RGB = vbRed

            Case Else: .ForeColor.RGB = vbWhite

        End Select

    End With

End Sub

jedoch funktioniert es nicht, da ich die Farbcodes mit Variablen(?) verknüpfen muss...?
Kann mir jemand sagen wie ich das machen muss?
Gruß Benzer
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 07:56:10
Oberschlumpf
Hi,

dein Fehler:
- mit Select überprüfst du .ForeColor.RGB
- in Case erwartest du als Ergebnis deiner Überprüfung vbWhite oder vbBlack - DAS geht so nicht!!!
anstelle von vbWhite oder vbBlack MUSST du natürlich auch RGB(...) angeben!

ersetz in deinem Code also vbWhite durch RGB(255, 255, 255)
und anstelle von vbBlack schreib RGB(0, 0, 0)

Bei mir funktionierts so - bei dir auch?

Ciao
Thorsten
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 13:39:03
Benzer77
Moin, nein leider nicht, dann kommt ein Laufzeitfehler, weil die Zeile zu lang ist. Deshalb dachte ich ich machs mit dem vbFarbe. Jedoch ist mir klar, dass ich das definieren muss. Deshalb die Frage wie das geht.
Gruß Benzer
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 14:29:06
GerdL
Moin 

Sub Black_Red_White()



    With ActiveSheet.Shapes(Application.Caller).Fill

         Select Case .ForeColor.RGB

            Case RGB(0, 0, 0): .ForeColor.RGB = RGB(255, 0, 0)

            Case RGB(255, 0, 0): .ForeColor.RGB = RGB(255, 255, 255)

            Case Else: .ForeColor.RGB = RGB(0, 0, 0)

        End Select

    End With



End Sub


Gruß Gerd
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 16:47:09
Benzer77
Moin,
Ja genau Gerd, das hab ich so geschrieben.
Jedoch bekomme ich einen Laufzeitfehler.
(Ausserhalb des Index)
Daniel schrieb, das es ein MS-Bug sei.
Weil die Textzeile nach dem = Zeichen mehr als 30 Stellen hat und alles über 30 Zeichen abgeschnitten wird. Deshalb wollte ich die RGB (...) einkürzen und hab VbFarbe eingetragen. Das funktioniert ja nicht, nur dafür fehlen mir die Kenntnisse das im VBA umzusetzen. Deshalb die Frage, muss dafür das gesamte Skript anders aufgebaut werden oder kann man hier String, Arrays oder, oder, oder einsetzen.
Gruß Benzer
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 17:01:02
Oberschlumpf
und wieso änderst du nicht die zu langen Namen der Formen?
Das hatte dir daniel doch schon vorgeschlagen.

- mit 1 Klick 1 Form auswählen (das Makro, das zum Fehler führt vllt erst mal ausschalten)
- oben links steht der Name der Form (da, wo sonst die Zelle steht, die du ausgewählt hast)
- da rein klicken, viel kürzeren Namen eintragen, Enter drücken
- erst mal mit nur n paar weiteren Formen wiederholen
- nun wieder Makro einschalten
- mit den Formen ausprobieren, bei denen du den Namen gekürzt hast

wenns jetzt immer noch nich funktioniert, dann kann dir wohl nur noch wer helfen, der neben dir sitzt
Anzeige
AW: Freiform mit klick umfärben und symbol oder weitere Freiform
08.10.2023 17:17:43
GerdL
Da liegt offenbar ein Mißverständnis vor.

Ohne Garantie für garnix. 
Sub test()



   Dim Sh As Shape

   

   For Each Sh In ActiveSheet.Shapes

       Sh.OLEFormat.Object.Name = Left(Sh.OLEFormat.Object.Name, 30)

   Next

    

End Sub


Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Formelfrage: Zeilenumbruch und rote Farbe?
Jenick

Hallo zusammen,
ich habe folgende Formel:
=WENN(G74>0;"Kapazität i.O.";"Es fehlen " & RUNDEN(((-1)*G74/G71);0) & " Stück.") Dabei möchte ich gerne den Teil "Es fehlen XXX Stück" mit einem automatischen Zeilenumbruch versehen, sobald die Wörter für die Spaltenbreite nicht au...
26.04.2010 18:30:16
Thread-ID: 1153901
5 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
Formen und ihre Farben
Oliver

Hallo Community,
heute habe ich mal eine Frage:
In einem Excel-Sheet habe ich 4 Kreise. Die Füllfarben sind bei jedem einer Ampel entsprechend. Nun möchte ich folgendes:
Die 4. Ampel soll jeweils automatisch die Farbe der Ampel bekommen, die bei den anderen drei als "schlechteste" (...
23.11.2010 16:48:56
Thread-ID: 1188356
12 Beiträge
Anzeige
wordart textfarbe ändern, eigenschaften zuweisen
detlef

Hallo Profis;
mit dem untenstehenden Makro erstelle ich ein Wordarttext und passe den etwas an - funktioniert auch gut; jetzt mein Problem: wie kann ich die Textfarbe ändern (per vba) manuell funktionierts und wie kann ich noch Eigenschaften zuweisen. Ich möchte "Ansichtsverhältnis sperren"...
27.09.2012 21:12:17
Thread-ID: 1279793
9 Beiträge
Zellenverbinden und Zellenfarbe ändern
Christian

Hallo alle zusammen,
ich hänge euch eine Bsp.-Datei an, Von Zeile 3 an wurde eine weitere Tabelle eingefügt. Wie bekomme ich es hin, dass die Spaltenbezeichnungen der Zeile 6 entsprechen, also z.B. die jetzige Spalte 3 und Spalte 4 dieselbe Spaltenbezeichnung haben, sodass ich z.B. nach ein...
02.10.2012 11:52:51
Thread-ID: 1280215
5 Beiträge
Hintergrundfarbe in Tabellen und Userforms
Martin

Hallo,habe feststellen müssen, dass die angebotenen Hintergrundfarben, die man in Userforms verwenden kann, nicht unbedingt mit denen übereinstimmen, die für Tabellen verfügbar sind. Kann das sein, gibt es eine Trick, um mehr Farben zu bekommen?Gruss,
Martin
19.06.2002 14:35:05
Thread-ID: 129908
4 Beiträge
UserForm Hintergrundfarbe für mehrere Zellen
Krisenergy

Hallo zusammen
Ich kenne mich mit userforms nicht aus, ich habe folgendes Problem:
In einer Skillmatrix sollen die Fähigkeiten Ist und Soll eingetragen werden, gelb steht für Soll, grün steht für ist. Je 4 Zellen Ergeben das Fähigkeitsbild eines Mitarbeiters in der jeweiligen Kategorie....
21.02.2013 17:48:20
Thread-ID: 1300486
5 Beiträge
Anzeige
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
Anzeige
Kopieren ohne Tabellenfarbe zu ändern
Stefan

Hi, eine Frage: Kann ich per Ziehen Zelen auch Kopieren, ohne dass die Farbe der Zellen geändert wird, also nur die FOrmeln geändert werden?
Daaaanke
Stefan
22.11.2013 11:53:35
Thread-ID: 1339668
3 Beiträge
Zellhintergrund färben und bedingte Formatierung
ing.grohn

Hallo Forum,
in einer recht komplexen Tabelle möchte ich per VBA den Zellehintergrund rot färben: If UCase(Urlaub(K)) = "K" _ Or UCase(Urlaub(K)) = "U" _ Or UCase(Urlaub(K)) = "A" Then .Cells(I + N, Spalte).Value = Urlaub(K) .Cells(I + N + 1, Spalte).Value = Beginn(K) If UCase(Urlaub(K)) =...
09.04.2014 18:53:46
Thread-ID: 1356761
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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