Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Füllfarbe ändern VBA
zurück: Automatische Datenübernahme aus Vorblatt weiter: Workbook open Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast-Röbi
Gast


Verfasst am:
26. Sep 2010, 16:18
Rufname:

Füllfarbe ändern VBA - Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Grüezi

Ich habe per zufall folgendes Makro gefunden.

Code:
Private Sub Worksheet_Calculate()
 Dim sh As Shape
  For Each sh In Shapes
    If InStr(1, sh.Name, "Linie", vbTextCompare) Then '"Linie" Name Anpassen *******
     sh.Line.ForeColor.RGB = IIf(Range("A1") = 1, vbRed, vbBlack)
     Exit For
    End If
  Next
End Sub


meine Frage dazu kann ich auch die Füllfarbe UND ein Luchten erscheinen lassen?

Das leuchten soll wie das im Excel 2010 aussehen.

Gruss Röbi
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 16:51
Rufname: Phelan


AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Das würd mich auch interessieren. Cool

Und wie wird das Leuchten ein- und ausgeschaltet?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
26. Sep 2010, 17:19
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

das geht doch nur bei einem Kreis oder bei anderen Formen
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 18:25
Rufname: Phelan

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

In 2007 geht das auch bei Linien.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



Unbenannt.jpg
 Beschreibung:
 Dateigröße:  15.23 KB
 Angeschaut:  1210 mal

Unbenannt.jpg


Zero
Formeln, Diagramme und ein bisschen VBA


Verfasst am:
26. Sep 2010, 19:27
Rufname: Dennis
Wohnort: NDS


AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Hallo

Code:
Private Sub CommandButton1_Click()
Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 100)      ' bzw. AddLine

With shp
    .Fill.Visible = msoFalse
    .Line.ForeColor.RGB = RGB(0, 0, 0)
    .Glow.Color.RGB = RGB(255, 0, 0)
    .Glow.Color.TintAndShade = 0.1
    .Glow.Radius = 10
End With

End Sub

_________________
Gruß zero
Gast



Verfasst am:
26. Sep 2010, 19:53
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Danke

wie kann ich es auf folgendes makro anwenden?

Code:
Private Sub Worksheet_Calculate()
 Dim sh As Shape
  For Each sh In Shapes
    If InStr(1, sh.Name, "Linie", vbTextCompare) Then '"Linie" Name Anpassen *******
     sh.Fill.Color.RGB = IIf(Range("A1") = 1, vbRed, vbBlack)
     Exit For
    End If
  Next
End Sub




Gruss Emmenrich
Zero
Formeln, Diagramme und ein bisschen VBA


Verfasst am:
26. Sep 2010, 20:29
Rufname: Dennis
Wohnort: NDS

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Hallo

Code:
Private Sub worksheet_change(ByVal target As Range)
Dim sh As Shape

If target.Address(0, 0) <> "A1" Then Exit Sub

For Each sh In Shapes
    If InStr(1, sh.Name, "Rechteck") Then
        If target.Value = 1 Then
            sh.Glow.Color.RGB = RGB(255, 0, 0)
            sh.Glow.Color.TintAndShade = 0.1
            sh.Glow.Radius = 10
        Else
            sh.Glow.Radius = 0
        End If
    End If
Next

End Sub

_________________
Gruß zero
Gast



Verfasst am:
26. Sep 2010, 21:30
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Es funktioniert aber nicht wenn in der Zelle A1 eine Formel ist.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2010, 21:33
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Doch, funktioniert auch.
man darf allerdings nicht prüfen, ob A1 bestandteil von Target ist (also die veränderte Zelle), sonden man muss diejenigen Zellen prüfen, auf die sich die Formel in A1 bezieht.

Gruß, Daniel
Gast



Verfasst am:
26. Sep 2010, 21:57
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Dies würde wie aussehen.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2010, 22:01
Rufname:

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

In etwa so:

If Intersect(Target, Range("...hier alle Zellen auflisten, die das Ergebnis der Formel in A1 beeinflussen und nicht selber Formel sind...")) is Nothing then Exit sub

Gruß, Daniel
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 22:05
Rufname: Phelan

AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

Nimm doch gleich das Calculate-Ereignis:

Code:
Private Sub Worksheet_Calculate()
For Each sh In Shapes
    If InStr(1, sh.Name, "Rechteck") Then
        If Range("A1").Value = 1 Then
            sh.Glow.Color.RGB = RGB(255, 0, 0)
            sh.Glow.Color.TintAndShade = 0.1
            sh.Glow.Radius = 10
        Else
            sh.Glow.Radius = 0
        End If
    End If
Next
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
26. Sep 2010, 22:11
Rufname:


AW: Füllfarbe ändern VBA - AW: Füllfarbe ändern VBA

Nach oben
       Version: Office 2007

super besten dank!!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Für Anfänger: Zellen-Farbe per Checkbox ändern.. 17 Tetrikus 6601 21. Dez 2007, 01:18
Hübi Für Anfänger: Zellen-Farbe per Checkbox ändern..
Keine neuen Beiträge Excel Formeln: Summenprodukt ändern in absoluten Bezug 2 Gast 810 15. Nov 2007, 14:20
Gast Summenprodukt ändern in absoluten Bezug
Keine neuen Beiträge Excel Formeln: Datumsformat ändern aus Textfeld 3 Eaw12 806 13. Nov 2007, 07:22
Thomas Ramel Datumsformat ändern aus Textfeld
Keine neuen Beiträge Excel Formeln: Auf knopf druck daten für diagramm ändern 1 CarlosP 1135 01. Nov 2007, 23:20
fridgenep Auf knopf druck daten für diagramm ändern
Keine neuen Beiträge Excel Formeln: Alle Werte in Einer Spalte auf eine Schlag ändern? 1 syncmaster950p 1047 04. Sep 2007, 10:21
< Peter > Alle Werte in Einer Spalte auf eine Schlag ändern?
Keine neuen Beiträge Excel Formeln: excel füllfarbe selbst bestimmen 1 cristi1012 9604 02. Aug 2007, 07:07
Gast excel füllfarbe selbst bestimmen
Keine neuen Beiträge Excel Formeln: Wenn Füllfarbe rot, grün oder blau dann versch. Funktion 5 Gast 4270 19. Jan 2007, 02:27
TOBI151169 Wenn Füllfarbe rot, grün oder blau dann versch. Funktion
Keine neuen Beiträge Excel Formeln: Formatierung ändern bei ID wechsel 8 FireSnake 1427 15. Jan 2007, 17:52
Gast Formatierung ändern bei ID wechsel
Keine neuen Beiträge Excel Formeln: Farbe ändern wenn FALSCH 2 CHFlanker 1645 09. Jan 2007, 00:00
Gast Farbe ändern wenn FALSCH
Keine neuen Beiträge Excel Formeln: Zeilenfarbe mit wenn-Abfrage ändern 2 Alex_F 6776 05. März 2006, 15:59
Alex_F Zeilenfarbe mit wenn-Abfrage ändern
Keine neuen Beiträge Excel Formeln: Textformat in Zahlenformat ändern 22 Libero 4503 24. Jan 2006, 17:48
ae Textformat in Zahlenformat ändern
Keine neuen Beiträge Excel Formeln: Hintergrundfarbe ändern wenn Werte aus 2 Bereichen gleich 2 Mario H 7300 04. Jan 2006, 15:13
Mario H Hintergrundfarbe ändern wenn Werte aus 2 Bereichen gleich
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps