Office Forum www.Office-Loesung.de Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <- Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login

Zellen einfärben nach Berechnung

Office Forum -> Excel Forum -> Excel VBA (Makros)
zurück: "Laufzeitfehler '9' - Index außerhalb des gültigen Bere weiter: Datum letzte Änderung manipulieren			Unbeantwortete Beiträge anzeigen
	Status: Offen		Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor	Nachricht
Gast Verfasst am: 20. Nov 2009, 11:24 Rufname:	- 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, 12:17 Rufname: Klaus Wohnort: Coesfeld	- 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, 13:09 Rufname:	- 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, 13:26 Rufname: Klaus Wohnort: Coesfeld	- 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, 14:50 Rufname:	- 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, 14:56 Rufname: Klaus Wohnort: Coesfeld	- 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, 15:25 Rufname:	- 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, 15:37 Rufname: Klaus Wohnort: Coesfeld	- 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, 15:46 Rufname:	- 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, 18:32 Rufname:	- 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:  8 mal
Der_Worti Excel & VBA ganz ordentlich Verfasst am: 21. Nov 2009, 18:21 Rufname: Klaus Wohnort: Coesfeld	- 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, 19:38 Rufname:	- 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:  6 mal
Gast Verfasst am: 25. Nov 2009, 07:25 Rufname:	- 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? Viele Grüße BamBam89

Nach oben

Alle Zeiten sind GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1 Gehe zu: Forum auswählen Office Forum Allgemein----------------Office Forum BekanntmachungenFragen & Anregungen zum Office ForumOffice Dienstleistungen && Schulungen || Jobs ~~ SoftwareOffice 2007 ForumOffice 2010 ForumAnwendungsübergreifende FragenForum für OpenOffice und Staroffice  Word Forum----------------Word Tipps & TricksWord FormateWord GestaltungselementeWord SerienbriefeWord VBA Programmierung (Makros)Word Hilfe Excel Forum----------------Excel Tipps & TricksExcel FormateExcel FormelnExcel AuswertungenExcel VBA (Makros)Excel Hilfe Powerpoint Forum----------------PowerPoint Tipps & TricksPowerpoint PräsentationenPowerPoint VBA (Makros) Outlook Forum----------------Outlook Tipps & TricksOutlook MailOutlook KontakteOutlook KalenderOutlook HilfeOutlook VBA und FormulareOutlook Express Access Forum----------------Access Tipps & TricksAccess Tabellen & AbfragenAccess FormulareAccess BerichteAccess Programmierung / VBAAccess Hilfe MS Access und Datenbank-Server----------------Microsoft Access und MS SQL ServerMicrosoft Access und MySQLMicrosoft Access und andere Datenbank-Server Office Software----------------MS Project ForumPublisher ForumMS MapPoint ForumMS Visio ForumMS OneNote ForumMS InfoPath ForumMS Groove ForumMS SharePoint Services Forum HTML Editor Forum----------------Frontpage ForumMS Expression Web ForumMacromedia Dreamweaver ForumHTML Editoren ForumHTML & CSS ForumPHP & JavaScript Forum Computer Forum----------------SicherheitHardware & Betriebssystem ForumWindows Vista & Windows 7 ForumSoftware Forum (Sonstige Software) Workshops----------------WorkshopsWorkshop: RegressionsanalyseWorkshop: Webdesign für EinsteigerWorkshop: Excel Projekte Banken Forum----------------WISO Mein Geld ForumStarmoney ForumGirokonto & Tagesgeld ForumOnline Broker ForumBanking Software Chillout Forum----------------Office Treffen RegionalFußball ForumSmalltalkSchach ForumForum-Spiele

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
	Excel Hilfe: Comboboxen, Zellen von bis Tabellenübergreifend rechnen	3	Lorenz Casper	110	31. Aug 2009, 11:06 Karl123
	Excel Formeln: Benötige Hilfe bzgl. "Kontostand"-Berechnung	3	Edge540	103	14. Jul 2009, 17:56 < Peter >
	Excel Formeln: verketten von unterschiedlich vielen zellen	12	dorewa	2551	02. Jul 2009, 09:25 Matthias W.
	Excel VBA (Makros): Zelle mit best Inhalt einfärben - warum klappt es nicht?	8	Bockwurst	205	29. Mai 2009, 13:30 EtoPHG
	Excel Formeln: Berechnung "Wochen bis Lager leer"!	8	JL	412	01. Apr 2009, 19:32 Dannchen
	Excel VBA (Makros): leere Zellen in Spalte C finden und Zeile in andere Tabelle	4	heko11	104	19. März 2009, 08:19 Elvis_the_King
	Excel VBA (Makros): Bestimmte Zellen kopieren und 2+x Zeilen tiefer einfügen	6	Alex MB	1014	05. Sep 2008, 15:30 Alex MB
	Excel VBA (Makros): Wenn bestimmte Zellen leer, Meldung vor dem Drucken anzeigen	4	dadii	1022	10. Jul 2008, 15:34 dadii
	Excel Hilfe: Zellen in Abhängigkeit anderer Zellen kopieren	2	PC-kätzchen	815	20. Mai 2008, 09:15 urs
	Excel Formeln: Summe von Zellen in deren Zeile ein bestimmtes Wort auftauch	2	Pedrakan	309	02. Apr 2008, 08:36 Pedrakan
	Excel VBA (Makros): Zellen in einem Excelfile überwachen	1	Maxcoke	208	12. März 2008, 12:30 meinTipp
	Excel Formeln: inhalt nicht gesperrter zellen markieren + löschen	10	jelllo	1935	28. Sep 2007, 23:17 Thomas Ramel

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