Das Archiv des Excel-Forums

Zellen vergleichen

Bild

Betrifft: Zellen vergleichen
von: Engin

Geschrieben am: 12.06.2008 10:56:09

Hallo zusammen,
wie kann ich per Makro ermöglichen, dass in ein Punktdiagramm das aus Zellen Werte besteht, so machen kann, wenn von Zelle A2 bis A10 Werte sind die größer als Null sind dann die entsprechende Punkte im Diagramm andere Farbe darstellt.?
Danke

Bild

Betrifft: AW: Zellen vergleichen
von: Uwe (:o)
Geschrieben am: 12.06.2008 11:02:27
Hi,
schau mal ob Dir das hilft:
http://beverly.excelhost.de/dateien/diagramme/diagramm_einfaerben_datenpunkte_liniendiagramm.zip
Gruß
Uwe
(:o)

Bild

Betrifft: AW: Zellen vergleichen
von: Engin

Geschrieben am: 12.06.2008 12:28:50
Hi Uwe ,
ja super, aber ein kleinischkeit noch , es funktioniert nicht wenn ich mehrere Werte gleichzeitig ändere.
Was muss ich im Code ändern?
Danke

Bild

Betrifft: AW: Kann jemand helfen?
von: Uwe (:o)
Geschrieben am: 12.06.2008 12:32:43
Hi,
ich kann da leider nicht weiterhelfen, weil ich von hier Karins *.zip nicht öffnen kann.
Bestimmt hilft Dir aber ein Anderer hier im Forum ("Daumen drück").
Gruß
Uwe
(:o)

Bild

Betrifft: AW: Kann jemand helfen?
von: Engin

Geschrieben am: 12.06.2008 21:39:32
Hi Uwe,
Ich brauch deine Hilfe, undzwar den Code den du mir geschickt hast , was muss ich dort ändern damit der Code auch für Werte die in Spalten (B1:B10) stehen funktioniert.
Danke im Voraus

Bild

Betrifft: AW: Zellen vergleichen
von: Beverly
Geschrieben am: 12.06.2008 14:46:00
Hi,
auf das konkrete Beispiel von meiner HP zugeschnitten:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim chDiagramm As Chart             ' Variable für das Diagramm als Objekt
Dim raZelle As Range
'   wenn Änderung nicht im definierten Bereich
If Intersect(Target, Range("B9:O9")) Is Nothing Then Exit Sub
'   Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'   Diagramm1 der Variablen zuweisen
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
If Target.Count > 1 Then
For Each raZelle In Selection
With .SeriesCollection(1).Points(raZelle.Column - 1)
If raZelle = 1 Or raZelle = 2 Then
'                       Hintergrundfarbe des Datenpunktes
.MarkerBackgroundColorIndex = 4
'                       Vordergrundfarbe des Datenpunktes
.MarkerForegroundColorIndex = 4
ElseIf raZelle = 3 Or raZelle = 4 Then
.MarkerBackgroundColorIndex = 6
.MarkerForegroundColorIndex = 6
Else
If raZelle <> "" Then
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
End If
End If
End With
Next raZelle
Else
'           Datenpunktposition innerhalb der Reihe wird aus der Spalte - 1 ermittelt
With .SeriesCollection(1).Points(Target.Column - 1)
If Target = 1 Or Target = 2 Then
'                   Hintergrundfarbe des Datenpunktes
.MarkerBackgroundColorIndex = 4
'                   Vordergrundfarbe des Datenpunktes
.MarkerForegroundColorIndex = 4
ElseIf Target = 3 Or Target = 4 Then
.MarkerBackgroundColorIndex = 6
.MarkerForegroundColorIndex = 6
Else
If Target <> "" Then
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
End If
End If
End With
End If
End With
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub





Bild

Betrifft: AW: Zellen vergleichen
von: Engin

Geschrieben am: 12.06.2008 18:39:44
Hi,
Danke es funktioniert, aber wie kann ich die Farben ändern.
Wenn ich den Index verändere , ändert sich aber nichts.
MarkerBackgroundColorIndex = 4
Vordergrundfarbe des Datenpunktes
.MarkerForegroundColorIndex = 4
Was muss ich an den Code verändern, wenn ich alles in Spalten(Werte in Spalte B2:B11) machen will.
Brauch deine Hilfe .

Bild

Betrifft: AW: Zellen vergleichen
von: Engin
Geschrieben am: 12.06.2008 19:09:26
Hi,
Sorry mit den Farben ist jetzt klar.
Was muss ich an den Code verändern, wenn ich alles in Spalten(Werte in Spalte B2:B11) machen will .

Bild

Betrifft: AW: Zellen vergleichen
von: Beverly

Geschrieben am: 12.06.2008 19:45:42
Hi,
wie wäre es, wenn du deine Arbeitsmappe mal hochlädst? Ich hatte ja geschrieben, dass der Code genau an das Beispiel von meiner HP angepasst ist.



Bild

Betrifft: AW: Zellen vergleichen
von: Engin
Geschrieben am: 12.06.2008 20:32:59
Hi,
Aber ich will doch nur wissen , wie ist der Code ist, wenn die Werte in einer Spalte(B1:B10) sind.
Weil der Code funktioniert nur wenn die Werte in einer Zeile sind.
Nicht Sauer sein ich bin noch ein Anfänger.
Danke

Bild

Betrifft: AW: Zellen vergleichen
von: Beverly

Geschrieben am: 13.06.2008 06:47:24
Hi,
weshalb sollte man eine Arbeitsmappe hochladen, wenn ein Helfer darum bittet?
1. Ein Code ist in den meisten Fällen ganz konkret auf spezielle Bedingungen in der Arbeitsmappe angepasst und lässt sich nicht "einfach so mal nebenbei" auf andere Bedingungen umschreiben. Wenn man einen Code postet, möchte man ihn schon unter möglichst originalen Bedingungen testen.
2. Du hast bereits Zeit in die Erstellung deiner Arbeitsmappe investiert, weshalb sollte sie also noch einmal erstellt werden indem sie nachgebaut wird? Außerdem ist ein Nachbau einer Arbeitsmappe nicht identisch mit dem Original, es kann also sein, dass nicht alle Bedingungen berücksichtigt werden können und der Code deshalb in deinem Original dann nicht funktioniert. Du schreibst, dass du kaum VBA-Kenntnisse hast, deshalb ist dies umso wichtiger.
Hier der Code, ungetestet:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim chDiagramm As Chart             ' Variable für das Diagramm als Objekt
Dim raZelle As Range
'   wenn Änderung nicht im definierten Bereich
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
'   Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'   Diagramm1 der Variablen zuweisen
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
If Target.Count > 1 Then
For Each raZelle In Selection
With .SeriesCollection(1).Points(raZelle.Row)
If raZelle = 1 Or raZelle = 2 Then
'                       Hintergrundfarbe des Datenpunktes
.MarkerBackgroundColorIndex = 4
'                       Vordergrundfarbe des Datenpunktes
.MarkerForegroundColorIndex = 4
ElseIf raZelle = 3 Or raZelle = 4 Then
.MarkerBackgroundColorIndex = 6
.MarkerForegroundColorIndex = 6
Else
If raZelle <> "" Then
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
End If
End If
End With
Next raZelle
Else
'           Datenpunktposition innerhalb der Reihe wird aus der Zeile ermittelt
With .SeriesCollection(1).Points(Target.Row)
If Target = 1 Or Target = 2 Then
'                   Hintergrundfarbe des Datenpunktes
.MarkerBackgroundColorIndex = 4
'                   Vordergrundfarbe des Datenpunktes
.MarkerForegroundColorIndex = 4
ElseIf Target = 3 Or Target = 4 Then
.MarkerBackgroundColorIndex = 6
.MarkerForegroundColorIndex = 6
Else
If Target <> "" Then
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
End If
End If
End With
End If
End With
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub





Bild

Betrifft: AW: Zellen vergleichen
von: Engin
Geschrieben am: 13.06.2008 08:13:14
Hi,
Sorry, daskonnte ich nicht machen, da die Daten ein Betriebsgeheimnis sind und ich die nicht veröffenlichen kann.
Es hat ja auch alles funktioniert , das ich es in Spalten haben wollte .
Danke Trotzdem

Bild

Betrifft: AW: Zellen vergleichen
von: Engin

Geschrieben am: 13.06.2008 08:29:13
Hi nochmal,
es funktioniert leider nicht ,ich schicke dir am besten eine vereinfachte darstellung.
https://www.herber.de/bbs/user/53032.xls
Bis gleich

Bild

Betrifft: AW: Zellen vergleichen
von: Beverly
Geschrieben am: 13.06.2008 08:46:05
Hi,
Ändere diese beiden Zeilen


With .SeriesCollection(1).Points(raZelle.Row - 7)


und


With .SeriesCollection(1).Points(Target.Row - 7)





Bild

Betrifft: AW: Zellen vergleichen
von: Engin

Geschrieben am: 13.06.2008 13:07:54
Hi,
Ja, super hat funktioniert.
Vielen Dank nochmal.
Bis bald

Bild

Betrifft: AW: Zellen vergleichen
von: Engin
Geschrieben am: 16.06.2008 08:57:19
Hi ich bin es wieder,
ich brauch unbedingt deine Hilfe.
Es geht um das letzte mal noch, es klappt alles, wie kann ich mit einer anderen Rehen Vergleichen und nicht mit ein Wert?
https://www.herber.de/bbs/user/53121.xls
Hilfe!

 Bild

Excel-Beispiele zum Thema "Zellen vergleichen"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Tabellen vergleichen download Spalten A und B vergleichen und Doppel in C listen download
Werte vergleichen download Bereiche auf Übereinstimmung vergleichen download
Daten in jeweils einer Spalte zweier Tabellen vergleichen download Werte vergleichen und Ergebnis in Tabelle eintragen download
Tabellen vergleichen und Zeilen ersetzen download Tabellen vergleichen und bei Nichtübereinstimmung markieren download
Textdateien vergleichen und Unterschiede dokumentieren download Spalte A mit B vergleichen und Doppel in C eintragen download
Telefonnumern mit Liste vergleichen und durch Namen ersetzen download Werte vergleichen und übertragen download
Teilstrings vergleichen und markieren download Textmuster vergleichen download