Dieser Beitrag ist ein Teil der VBA Grundlagen Serie. Große Excel Tabellen können schnell unübersichtlich werden. In diesem Beitrag zeige ich Ihnen wie Sie mit VBA jede zweite Zeile formatieren können. 111 VBA Makros die Ihr Leben leichter machen. Egal ob Sie Einsteiger oder fortgeschrittener Anwender sind – in diesem Buch finden Sie Lösungen für Ihre alltäglichen Aufgaben. VBA-Eigenschaften: Farben einsetzen – clevercalcul. Keine Vorkenntnisse notwendig. In unserer Tabelle wollen wir jede zweite Zeile blau einfärben. Dies lösen wir mit einer Schleife. Wir legen eine Variable für die Zeile an und bestimmen mit welcher Tabelle wir arbeiten wollen. Unsere Schleife fängt mit der zweiten Zeile an und hört mit der letzten Zeile auf. Die Anzahl der verwendeten Zahlen bekommen wir aus der Eigenschaft UsedRange von der wir die Zeilen Rows zählen Count. Sub ZeilenFormatieren() Dim Zeile As Long With Tabelle1 For Zeile = 2 To Next Zeile End With End Sub Innerhalb der Schleife prüfen wir ob es sich um eine gerade oder ungerade Zeile handelt. If Zeile Mod 2 = 0 Then End If 111 VBA Makros die Ihr Leben leichter machen Wollen Sie Ihre langweiligen Routineaufgaben loswerden?
© R. Gino Santa Maria - Adobe Stock So passen Sie Zellen ganz nach Ihren Wünschen an Farbe aller Zellen der aktiven Tabelle per Makro verändern Sie möchten die Farbe von Zellen in einer Excel-Tabelle ganz nach Ihren Wünschen verändern? Das können Sie erledigen, indem Sie das Dialogfenster "Zellen formatieren" aufrufen und passende Zellmuster hinterlegen. Wenn Sie die Farbe aller Zellen der aktiven Tabelle per Makro verändern möchten, setzen Sie das folgende Programm ein: Sub AlleZellenFormatieren() = 1 End Sub Das Makro setzt die Hintergrundfarbe aller Zellen der aktiven Tabelle auf die Farbe, die als zweite Farbe in der aktuellen Farbpalette hinterlegt ist. Das ist normalerweise die Farbe schwarz, wenn Sie die Palette nicht verändert haben. Mit der Ziffer 1 wird die zweite Farbe angesprochen, weil die Zählung der Palettenfarben bei 0 beginnt. Hervorheben der aktiven Zelle, Zeile oder Spalte | Microsoft Docs. Dort ist normalerweise die Farbe weiß hinterlegt. Um die Hintergrundfarbe aller Zellen der Tabelle auf diese Farbe einzustellen, ersetzen Sie das Kommando aus dem Makro durch: = 0 Sie können die gewünschte Farbe auch direkt definieren, ohne den Umweg über die Farbpalette zu gehen.
Ich hätte das Vorhandensein der Formatierung in die Anfrage schreiben sollen. Ich werden dann wohl in der Zeile 26 die formatierte Bedingung löschen und dort meine Fehlerabfrage einbauen. Trotzdem nochmal vielen Dank für die kompetente und schnelle Hilfe. Ich werde mir Dein Makro auf jeden Fall noch genau ansehen wie Du das Problem gelöst hast. Alles Gute wünscht Dir Bastian Geschrieben am: 18. 2006 12:08:26 das Makro läuft, egal ob da bedingt formatiert ist oder nicht. Aktive Zelle mit Farbe hinterlegen - Excel-Inside Solutions. Aber wenn E26 gemäß Makro rot werden soll aber gleichzeitig laut bedingter Formtierung grau sein soll muss sich ja Excel für eins von beiden entscheiden, genauer gesagt es färbt die Zelle blitzschnell nacheinander erst rot, dann grau (oder umgekehrt). Abhilfe wäre, per Makro E27 mitzuüberwachen und dann die Farbe für E26 per Makro festlegen. Oder dass das Makro die Farbe von E26 festlegt und die bed. Formatierung das Muster von E26.
= vbRed Else Cells(26, ). = xlNone Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht.. Geschrieben am: 18. 2006 10:58:02 Hallo Reinhard, vielen Dank für den Code. Sieht eleganter aus als bei mir, kann ich nur von lernen. Irgend etwas geht aber noch nicht. Die Zellen werden nicht eingefärbt. Vba excel zelle fadben.asso. Ich habe Dir mal meine Datei hochgeladen. Kannst Du Dir die bitte mal ansehen? Ich kann den Fehler nicht entdecken. Gruß, Bastian Geschrieben am: 18. 2006 11:20:27 Hi Bastian, ich hätte nicht von dir abschreiben sollen:-) Option Explicit Cells(26, )lorIndex = 3 Cells(26, )lorIndex = xlNone Das funktioniert mit gelöschter bedingter Formatierung. Allerdings, wenn du da noch 3 bedingte Formatierungen für E26 hast, entscheidet excel ob es E26 gemäß Makro Rot färbt oder ob es E26 gemäß der bedingten Formatierung grau färbt. Geschrieben am: 18. 2006 11:59:41 Lieber Reinhard, vielen Dank nochmals für die Hilfe. Schade, dass das Makro nicht bei Zellen mit der formatierten Bedingung läuft.
045 mal abgerufen. War dieser Artikel hilfreich?
Sprühe einige Wassertropfen auf deine Arbeitsplatte. Diese sollten Wasserperlen auf der Oberfläche bilden. Lasse das Wasser zehn bis fünfzehn Minuten einwirken. Wenn sich das Wasser ausgebreitet oder einen dunklen Fleck auf der Arbeitsplatte hinterlassen hat, ist es an der Zeit, deinen Granit neu zu versiegeln. [6] 4 Versiegle deine Granitarbeitsplatte, falls erforderlich. [7] Dein örtlicher Baumarkt sollte ein für deinen Granit geeignetes Versiegelungsmittel für Arbeitsplatten haben. Du solltest immer die Anweisungen befolgen, die deinem Versiegelungsmittel beiliegen, aber in den meisten Fällen solltest du deine Arbeitsplatte neu versiegeln: Putze den Bereich erneut mit milder Seife und Wasser. Wie kann ich Kratzer auf einer Arbeitsplatte entfernen?. Möglicherweise haben deine Hände Schmutz, Öl oder Dreck auf die Arbeitsplatte übertragen. Eine erneute Reinigung verhindert, dass sich dieser Schmutz unter der Dichtung festsetzt. Lasse die Arbeitsplatte vor dem Versiegeln vollständig trocknen. Trage die Versiegelung auf. In den meisten Fällen wird die Versiegelung mit einem Pinsel aufgetragen, vielleicht empfiehlt dein Versiegeler aber auch die Verwendung eines Tuchs.
Wegen dem Kratzer da gibt es genug möglichkeiten schau mal auf die seite von der Firma König Startseite | Heinrich König & Co. KG. #6 Eine Retuschierung ist sicher möglich, jedoch wird eine Lackierung mit Reparaturlacken auf Arbeitsplatten eher von 12 bis Mittag halten. Ist die Platte denn wirklich beschädigt? Wenn sie dies mit einem Pizzaschneider bei Erstkontakt ist, dann taugt das Material nicht für diesen Zweck, sondern sieht wahrscheinlich nur für eine begrenzte Dauer gut aus. Kratzer auf Arbeitsplatte- was hilft? (Küche, Kratzer entfernen). Dann kauf dir schonmal einen Beutel Retuschierstifte, es bleibt nicht bei diesem Schaden. #7 vielen Dank für die umfangreichen Rückmeldungen. Ich hoffe, dass ich alle offenen Punkte in einem Post erledigt bekomme: 1) Möbelstifte o. ä. werde ich mir ansehen 2) Material: Spannplatte mit irgendeinem erhabenen Decor 3) Ursprung der Platte: Gekauft in einem Küchenmöbelhaus (samt Küche), sollte aus dem Programm von Nobilia stammen (? ; zumindest die Schränke) 4) Zur Eignung der Platte: Verkauft wurde sie mir als kratzunempfindlich (hinsichtlich Verschieben eines Topfes) - das trifft bedingt zu.
Getrockneter Holzspachtel lässt sich anschließend farblich verändern. So gibt es z. B. so etwas wie Möbelstifte, um Beschädigungen in Holzfarbe auszubessern. Ich habe mir da mal vor einiger Zeit verschiedene Farben bei einem Discounter gekauft. #3 Woraus besteht die Platte? Auf jeden Fall aus ungeeignetem Material.. Grüße Uli #4 Hallo ich würde den strich mit einem Bleistift einfärben und mit dem Finger unter Druck verreiben, so daß auf der unbeschädigten Fläche keine Bleistiftspuren zu erkennen sind. Danach mit einem geeigneten mattem oder stumpf mattem Klarlack die Beschädigung versiegeln. Ich würde König ansatzlos plus in stumpmatt bevorzugen. Kratzer auf der arbeitsplatte 80 cm tief. In sehr dünnen Aufträgen 3-4 Durchgänge. Problem den gibt es nicht gerade an jeder Ecke geschweige denn im Baumarkt. Vielleicht gibt es ja einen Schreiner in deiner Nähe der dir ne Dose verkauft. Retouchierstifte wären auch noch ne mgl aber da fehlt mir ein wenig der Oberflächenschutz. #5 mein vorschreiber hat es ja schon sehr direckt ausgedrückt, aber meineserachtens ist die Platte nicht für diesen Einsatzzweg geeignet.