Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 4. September: Office-Treffen Rhein-Ruhr <-
Zellen einfärben nach Berechnung
zurück: "Laufzeitfehler '9' - Index außerhalb des gültigen Bere weiter: Datum letzte Änderung manipulieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
20. Nov 2009, 12:24
Rufname:

Zellen einfärben nach Berechnung - Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo alle miteinander,

ich habe eine kleine Frage was für euch sicherlich kein Problam dar stellt.

Ich möchte ein (ich denke für euch) kleines Makro schreiben, welches folgende Aktion ausführt:

Ich habe in einer Spalte Zahlen stehen, A1 (1) A2 (3) A3 (4) A4 (2)...
(Im moment sind es nur Zahlen welche von 1 bis 4 gehen.)

Das Makro soll nun Spalte A1 + A2 rechnen
Wenn das Ergbnis nun 3 ist, soll Zelle A2 Grün werden
Wenn das Ergbnis nun 4 ist, soll Zelle A2 Rot werden
Wenn das Ergbnis nun 7 ist, soll Zelle A2 Gelb werden.

Danach wenn diese Zelle Farbig ist kommt die nächste Berechnung A2 + A3
Wenn das Ergbnis nun 3 ist, soll Zelle A3 Grün werden

und so weiter. Ich hoffe ihr könnt mir helfen! Würdet mir eine Menge arbeit ersparen.

Viele Grüße Anna
Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
20. Nov 2009, 13:17
Rufname: Klaus
Wohnort: Coesfeld


AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo Anna,
mit dem folgenden Code sollte es gehen:
Code:

Sub Faerben_Nach_Ergebnis()

    Dim intFarbe As Integer
    Dim lngZeile As Long, lngErgebnis As Long
   
    For lngZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
        intFarbe = 0
        lngErgebnis = Range("A" & lngZeile) + Range("A" & lngZeile).Offset(-1, 0)
        Select Case lngErgebnis
           Case 3
                intFarbe = 4
           Case 4
                intFarbe = 3
           Case 7
                intFarbe = 6
         End Select
         
         If intFarbe <> 0 Then
            Range("A" & lngZeile).Interior.ColorIndex = intFarbe
         End If
         
    Next lngZeile

End Sub

_________________
Gruß Worti
Gast



Verfasst am:
20. Nov 2009, 14:09
Rufname:

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo Worti,

vielen Dank für deine schnell Antwort!!!
Was müsste ich an dem Code denn ändern, wenn ich jetzt die Daten nicht in Spalte A sondern in Spalte B hätte?

z.B. von B3 bis B17 und B20 bis B30. Die Zeilen dazwischen sind leer.

Gruß Anna
Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
20. Nov 2009, 14:26
Rufname: Klaus
Wohnort: Coesfeld

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo Anna,
im folgenden Code kannst du die gewünschte Spalte und die gewünschte Startzeile vorgeben:
Code:

Option Explicit

Sub Faerben()

    Const strSpalte = "B"
    Const lngStartzeile = 3
   
   
    Dim intFarbe As Integer
    Dim lngZeile As Long, lngErgebnis As Long
    Dim lngDatenspalte As Long
   
    For lngZeile = lngStartzeile To Cells(Rows.Count, strSpalte).End(xlUp).Row
   
        intFarbe = 0
        If Range(strSpalte & lngZeile).Value <> "" And _
           IsNumeric(Range(strSpalte & lngZeile)) Then
           lngErgebnis = Range(strSpalte & lngZeile) + Range(strSpalte & lngZeile).Offset(-1, 0)
           Select Case lngErgebnis
              Case 3
                   intFarbe = 4
              Case 4
                   intFarbe = 3
              Case 7
                   intFarbe = 6
            End Select
         
            If intFarbe <> 0 Then
               Range(strSpalte & lngZeile).Interior.ColorIndex = intFarbe
            End If
         End If
         
    Next lngZeile

End Sub

_________________
Gruß Worti
Gast



Verfasst am:
20. Nov 2009, 15:50
Rufname:


AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo zusammen,

ich habe ein ähnliches Problem.

Ich habe eine Tabelle mit drei Spalten

Spalte A Laufenden Nummer von 1 bis 30 wird stätig erweitert
Spalte B eine Nummer xx.xxxx.xxxx.xx
Spalte C eine Beschreibung

Ich habe eine Matrix in welcher steht wenn ich die Maschine von Nummer 1 auf nummer 2 Umrichte, Dann Zelle A1 = grün.
Wenn ich die Maschine von Nummer 2 auf Nummer 3 Umrichte, Dann Zelle A1 = grün.
Wenn ich die Maschine von Nummer 1 auf nummer 3 Umrichte, Dann Zelle A1 = rot.

Und so weiter! ist so etwas überhaupt möglich? Wenn ja könnt ihr mir behilflich sein?

Vielen Dank euch und ein schönes Wochenende.

Gruß Thomas
Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
20. Nov 2009, 15:56
Rufname: Klaus
Wohnort: Coesfeld

Nachfrage - Nachfrage

Nach oben
       Version: Office 2003

Hallo Thomas,
wo kommt die Information, dass eine Maschine von Typ x nach Typ y umgerichtet wird, denn her?
Sprich: wie bekommt Excel mit, dass
1. umgerichtet wird
2. den alten Typ
3. den neuen Typ?

_________________
Gruß Worti
Gast



Verfasst am:
20. Nov 2009, 16:25
Rufname:

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo,

Es gibt einen Plan in Excel in welchem eingetragen wird was die nächsten Tage gefahren wird.

Das heißt das steht dann eben in L3 die Laufende Nummer (1 - 30 von dem anderen Plan in welchem alle Artikel aufgelistst sind)

In A3 die Nummer xx.xxxx.xxxx.xx
In B3 die Beschreibung

In A4 steht dann eben die Nummer xx.xxxx.xxxx.xx, welche als nächstes dran ist. L4 die Laufende Nummer (1 - 30 von dem anderen Plan in welchem alle Artikel aufgelistst sind)

Ich hoffe das war einigermaßen Verständlich. Wenn du mehr informationen benötigst, frag einfach! Bin froh, das du dich mir annimmst!

Gruß
Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
20. Nov 2009, 16:37
Rufname: Klaus
Wohnort: Coesfeld

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo noch mal,
bin noch nicht ganz schlau aus deinen Ausführungen geworden. Vielleicht lädst du mal deine Tabelle mit ein paar Kommentaren hoch.

_________________
Gruß Worti
Gast



Verfasst am:
20. Nov 2009, 16:46
Rufname:

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Im Moment bin ich noch auf der Arbeit, werde wenn ich nachher zuhause bin, mich mal anmelden und etwas hochladen!

Vielen Dank und bis nachher!

Gruß
BamBam89
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Nov 2009, 19:32
Rufname:

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo zusammen, wie besprochen hier nun die Excel Tabelle
Hoffe ihr könnt mir helfen!



Forum.xls
 Beschreibung:

Download
 Dateiname:  Forum.xls
 Dateigröße:  21 KB
 Heruntergeladen:  10 mal

Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
21. Nov 2009, 19:21
Rufname: Klaus
Wohnort: Coesfeld

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo,
vielleicht hab ich mein Hirn ja im Büro gelassen, aber ich versteh immer noch nicht, was du willst.
Ich hätte gern ein einfaches Beispiel wie.
In B2 ist Modul 1, in B3 ist Modul 4 und in B4 ist Modul 2 ausgewählt.
Dann soll A3 Grün gefärbt werden (denn umrichtzeit von M1 --> M4 ist in der Matrix grün) und A4 orange (denn umrichtzeit von M4 --> M2 ist in der Matrix orange)
Ist das in etwa das, was du möchtest?

Was passiert, wenn ich in B2 was neues auswähle, sollen die Färbung sich anpassen?

_________________
Gruß Worti
BamBam89
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Nov 2009, 20:38
Rufname:

AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Hallo Worti,

ok ich geb zu, ist vielleicht nicht gut erklärt gewesen. So wie du es aber beschrieben hast, ist es genau richtig. So stell ich mir das vor.

Wenn ich dann eben B3 in Modul 3 ändere(Beispiel 1 in Tabelle), muss sich auch die Farbe in A4 ändern ( Orange) da wir eben dann eine Umrichtzeit nach Matrix von 20 Minuten hätten.


Ich hab noch einmal die Tabelle mit drei Beispielen angehängt. Ich hoffe jetzt ist es klarer.
Schönen Gruß und noch einen schönen Sontag abend



Forum.xls
 Beschreibung:

Download
 Dateiname:  Forum.xls
 Dateigröße:  27 KB
 Heruntergeladen:  7 mal

Gast



Verfasst am:
25. Nov 2009, 08:25
Rufname:


AW: Zellen einfärben nach Berechnung - AW: Zellen einfärben nach Berechnung

Nach oben
       Version: Office 2003

Guten Morgen zusammen,

kann mir denn keinier helfen? Oder ist das Thema einfach zu komplex? Question

Viele Grüße

BamBam89
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 Hilfe: *T*Zellen anhand von einem Zellenhalt formatieren 7 mamelmuck 100 10. Mai 2010, 21:44
silex1 *T*Zellen anhand von einem Zellenhalt formatieren
Keine neuen Beiträge Excel VBA (Makros): Zellen ab einen bestimmten Datum sperren 0 PsHome 201 07. Dez 2009, 20:45
PsHome Zellen ab einen bestimmten Datum sperren
Keine neuen Beiträge Excel VBA (Makros): Excel(VBA) Zellen Sperren+Zellenüberprüfung 0 Kikolool 706 23. Sep 2009, 10:45
Kikolool Excel(VBA) Zellen Sperren+Zellenüberprüfung
Keine neuen Beiträge Excel Hilfe: Zellen sperren: auswählen aber nicht bearbeiten 5 FreitagUmZwei 302 18. Sep 2009, 14:25
FreitagUmZwei Zellen sperren: auswählen aber nicht bearbeiten
Keine neuen Beiträge Excel VBA (Makros): Nach Änderungen bestimmte Zellen farbig markieren 3 Giucy 1514 17. Aug 2009, 10:50
Bunny3782 Nach Änderungen bestimmte Zellen farbig markieren
Keine neuen Beiträge Excel Formate: Zuordnung verbundene Zellen auf einzelne Zellen 1 huns 504 10. Jun 2009, 21:54
< Peter > Zuordnung verbundene Zellen auf einzelne Zellen
Keine neuen Beiträge Excel Formeln: Spalte aus anderem Blatt kumulieren ohne Zellen=0 7 OC 302 17. Feb 2009, 18:12
OC Spalte aus anderem Blatt kumulieren ohne Zellen=0
Keine neuen Beiträge Excel Formeln: Formeln in Textform zur Berechnung in anderer Zelle benutzen 5 sponge1281 807 04. Feb 2009, 18:41
RippleN Formeln in Textform zur Berechnung in anderer Zelle benutzen
Keine neuen Beiträge Excel VBA (Makros): Text aus Zellen auslesen, kopieren und einfügen 4 gueni_sm 1615 21. Dez 2008, 23:43
Berit1818 Text aus Zellen auslesen, kopieren und einfügen
Keine neuen Beiträge Excel VBA (Makros): VBA Macro erstellen zum Suchen und Kopieren von Zellen 2 Scale 302 26. Okt 2008, 16:47
Scale VBA Macro erstellen zum Suchen und Kopieren von Zellen
Keine neuen Beiträge Excel Hilfe: Zellen einfügen mit Fehlermeldung (nicht möglich) 2 clowni 1413 11. Jul 2008, 08:30
clowni Zellen einfügen mit Fehlermeldung (nicht möglich)
Keine neuen Beiträge Excel Formeln: Index verweis in leere Zellen #NV anzeige verhindern 2 techniker007 1211 11. Apr 2008, 07:56
techniker007 Index verweis in leere Zellen #NV anzeige verhindern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA