Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bedingte F VBA
zurück: Zelleneinträge beim kopieren ersetzen weiter: Start von Makro Spaltenabfrage Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
25. Sep 2010, 09:19
Rufname:

Bedingte F VBA - Bedingte F VBA

Nach oben
       Version: Office 2007

Hallo Zusammen

Ich möchte eine Linie die ich über Einfügen --> Illustration --> Formen erzeuge
mit einer Bedingten Formatierung so steuern, dass die Linie wenn in der Zelle "A1" eine "1" steht, dass die linie automatisch die Farbe rot an nimmt.

Ich hoffe ihr da draussen könnt mir Helfen.

Gruss
Gast
Axel Richter
Gast


Verfasst am:
25. Sep 2010, 12:01
Rufname:


AW: Bedingte F VBA - AW: Bedingte F VBA

Nach oben
       Version: Office 2007

Hallo,

für Formen gibt es keine bedingte Formatierung.

Was man machen kann ist, alle Änderungen im Tabellenblatt überwachen und wenn diese in Zelle A1 stattfinden, dann die shapes umfärben, die einer bestimmten Bedingung entsprechen. Im Folgenden mache ich das mit allen shapes, die im Namen den Text "FarbeA1" haben.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target = Range("A1") And Target.Value = 1 Then
  For Each Shape In Shapes
   With Shape
    If InStr(1, .Name, "FarbeA1", vbTextCompare) <> 0 Then
     .Line.ForeColor.RGB = RGB(255, 0, 0)
    End If
   End With
  Next
 ElseIf Target = Range("A1") And Target.Value <> 1 Then
  For Each Shape In Shapes
   With Shape
    If InStr(1, .Name, "FarbeA1", vbTextCompare) <> 0 Then
     .Line.ForeColor.RGB = RGB(0, 0, 0)
    End If
   End With
  Next
 End If
End Sub


Der Code muss im VBAProject unter Microsoft Excel Objekte in der Tabelle eingefügt werden, die entsprechend überwacht werden soll.

Die zu formatierende Form muss irgendwo im Namen "FarbeA1" stehen haben.

viele Grüße

Axel
Axel Richter
Gast


Verfasst am:
25. Sep 2010, 12:33
Rufname:

AW: Bedingte F VBA - AW: Bedingte F VBA

Nach oben
       Version: Office 2007

Hallo,

Korrektur:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = Range("A1").Address And Range("A1").Value = 1 Then
  For Each Shape In Shapes
   With Shape
    If InStr(1, .Name, "FarbeA1", vbTextCompare) <> 0 Then
     .Line.ForeColor.RGB = RGB(255, 0, 0)
    End If
   End With
  Next
 ElseIf Target.Address = Range("A1").Address And Range("A1").Value <> 1 Then
  For Each Shape In Shapes
   With Shape
    If InStr(1, .Name, "FarbeA1", vbTextCompare) <> 0 Then
     .Line.ForeColor.RGB = RGB(0, 0, 0)
    End If
   End With
  Next
 End If
End Sub


viele Grüße

Axel
Phelan XLPH
Fortgeschritten


Verfasst am:
25. Sep 2010, 13:22
Rufname: Phelan

AW: Bedingte F VBA - AW: Bedingte F VBA

Nach oben
       Version: Office 2007

Hallo,

oder so:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim sh As Shape
 Static col As Long
 If Target.Address(0, 0) = "A1" Then
  For Each sh In Shapes
    If InStr(1, sh.Name, "Linie", vbTextCompare) Then '"Linie" Name Anpassen *******
     If Target = 1 Then
        col = sh.Line.ForeColor.RGB
        sh.Line.ForeColor.RGB = vbRed
     Else
        sh.Line.ForeColor.RGB = col
     End If
     Exit For
    End If
  Next
 End If
End Sub


falls Formel:
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

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



Verfasst am:
25. Sep 2010, 15:06
Rufname:

AW: Bedingte F VBA - AW: Bedingte F VBA

Nach oben
       Version: Office 2007

Danke für die Hilfe gebt dies auch mit 2 Linien?
Gast



Verfasst am:
25. Sep 2010, 16:41
Rufname:


AW: Bedingte F VBA - AW: Bedingte F VBA

Nach oben
       Version: Office 2007

hallo

Das Problem mit den ZWEI Linien hat sich in der Zwischenzeit gelöst, nun meine

Ein weiteres Problem:

Ich habe in der Zelle F6 eine Formel welche entweder eine "1" oder eine "0" heraus gibt. wie kann ich dies steuern, dass das Makro auch in der Zelle F6 funktioniert.

Code:
If Target.Address(0, 0) = "F6" Then
  For Each sh In Shapes
    If InStr(1, sh.Name, "Linie4", vbTextCompare) Then
     If Target = 1 Then
        col = sh.Line.ForeColor.RGB
        sh.Line.ForeColor.RGB = vbRed
     Else
        sh.Line.ForeColor.RGB = col
     End If
     Exit For
    End If
  Next
 End If


Gruss Gast
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: Bedingte Formatierung 6 Linda G. 584 08. Dez 2006, 16:21
Klaus-Dieter Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung und Makros 2 Markus_S. 717 01. Dez 2006, 13:16
MArkus_S Bedingte Formatierung und Makros
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung und Formeln 6 Alimaniac 707 12. Sep 2006, 16:13
Alimaniac Bedingte Formatierung und Formeln
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung nicht drucken? (oder Makro?) 1 Gast 1223 23. Aug 2006, 13:46
Cabation Bedingte Formatierung nicht drucken? (oder Makro?)
Keine neuen Beiträge Excel Formeln: Formel für bedingte Formatierung 4 bobreto 791 19. Jul 2006, 16:15
bobreto Formel für bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung mit Arbeitstage 7 point2 1541 25. Mai 2006, 21:17
point2 Bedingte Formatierung mit Arbeitstage
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 5 Test007 740 15. Mai 2006, 08:24
< Peter > Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 8 Snewi 1128 09. Mai 2006, 21:13
Bonny Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: bedingte Formatierung im nachbar Feld verändern 6 sisqonrw 1462 15. Apr 2006, 19:53
sisqonrw bedingte Formatierung im nachbar Feld verändern
Keine neuen Beiträge Excel Formeln: bedingte Formatierung mit Checkbox 5 Gast 2361 08. März 2006, 17:37
Zimbomann bedingte Formatierung mit Checkbox
Keine neuen Beiträge Excel Formeln: MAX-Formel (bedingte Formatierung) 6 Tanja1980 5651 14. Jan 2006, 16:50
ae MAX-Formel (bedingte Formatierung)
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung (Sonntage) 7 Gast 1138 08. Dez 2005, 15:07
fridgenep Bedingte Formatierung (Sonntage)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum