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

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