EXCEL Makroprogrammierung

KlausKannemann · 1. April 2018

Moin Zusammen,

Ich möchte zwei Felder mir einander vergleichen und wenn sie gleich sind das erste Feld rot einfärben. Bis dahin kein Problem, aber die Felder ändern sich. Das heißt ich muss mit Variablen arbeiten.

Das erste Feld zu bestimmen ist kein Problem und das zweite Feld auch nicht, aber wie bekomme in das blau markierte Feld (siehe Screenshot) eine Variable?

Für Eure Hilfe recht herzlichen Dank.

KlausKannemann

Hi Claus, ich habe Deinen Marko ausprobiert und er klappt.

Ich muss morgen noch mal testen, ob es ab A7/B7 auch klappt.

Vergleichen wird immer A mit B .

Dir mal herzlichen Dank für Deine Geduld. Werde mich morgen noch einmal melden, ob es geklappt hat.

Tschüss

Klaus

Claus Busch

Hallo Klaus,

wo gibst du Zahlen ein? Wie soll vergleichen werden? Zeilenweise, also A12 mit B12, A13 mit B13 oder sollen alle Werte in A mit B12 verglichen werden?

Wenn du nicht aufmerksam bist, ist die Markierung schnell mal falsch gesetzt. Das kann nicht passieren, wenn man korrekt auf die Bereiche referenziert. Aber das Wichtigste ist, dass mit Selection und Select im Blatt herumgewandert wird, was die Makroausführung
verlangsamt und Bildschirmflackern hervorruft.

Claus

Claus Busch

Hallo Klaus,

welchen Bereich willst du einfärben?

Du musst die bedingte Formatierung auf den gesamten Bereich anwenden und darfst dazu die Nachbarzelle nicht absolut setzen. Dann geht das automatisch, da sich die Formel in der bedingten Formatierung immer auf die erste Zelle bezieht.

Ermittle also die letzte belegte Zeile und formatiere dann den kompletten Bereich:

Sub CF()

Dim LRow As Long

With Sheets("Tabelle1")

   LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

   With .Range("A12:A" & LRow)

      .FormatConditions.Add Type:=xlExpression, Formula1:="=A12 = B12"

      .FormatConditions(.FormatConditions.Count).SetFirstPriority

      With .FormatConditions(1).Interior

         .PatternColorIndex = xlAutomatic

         .Color = 13551315

         .TintAndShade = 0

      End With

   End With

End With

End Sub

Claus

KlausKannemann

Moin Claus,

nochmals recht herzlichen Dank für Deine kompetente Hilfe!!

Nun ist es allerdings so, dass eine zweite UV-Lampe dazu gekommen ist und ich ein zweites Sheet einrichten möchte und dann läuft der Makro so ja nicht mehr.

Wie kann ich diese Zeile variabel gestalten, damit ich vom Namen des Tabellenblattes unabhängig bin?

With Sheets("UV-Lampe 1")

Mit freundlichen Grüßen

Klaus

Claus Busch

Hallo Klaus,

es gibt zu viele Farbcodes und ich kenne keine Tabelle zum Auslesen.

Wenn du die Standardfarben benutzt, kannst du z.B. für rot "vbred" oder für blau "vbblue" usw. schreiben. Oder du kannst eine Zelle auswählen => Füllfarbe => weitere Farben => Benutzerdefiniert und dort
den RGB-Code für die gewünschte Farbe auslesen und die dann verwenden, indem du die Farbe angibst mit

Color=RGB(100,100,100) z.B.

Für die RGB-Farbcodes kannst du auch mal hier schauen:

http://www.farb-tabelle.de/de/farbtabelle.htm

Du kannst das Makro aus einem anderen Makro mit

CF oder Call CF aufrufen.

Claus

Hi,

willkommen im Windows Forum!

EXCEL Makroprogrammierung - Similar Threads - EXCEL Makroprogrammierung	Forum	Datum
Excel - die Zahl ausgeben, die am nächsten ist? Excel - die Zahl ausgeben, die am nächsten ist?: Hi,Ich habe zwei Werte Box Menge und Paletten Menge die mit einem 3.Wert Bedarf Menge verglichen werden soll und der Wert der am nächsten ist, soll ausgegeben werden.Ich habe es damit versucht,...	Microsoft Office	Heute um 15:03 Uhr
iPad Pro mit Magic Keyboard - Scrollen in Excel Online iPad Pro mit Magic Keyboard - Scrollen in Excel Online: Hallo. Ich nutze seit kurzem ein iPad Pro mit Magic Keyboard unter anderem mit Excel Online. Nun kann ich mit den Pfeiltasten plötzlich nicht mehr scrollen. Es geht jetzt immer das folgende...	Microsoft Office	Mittwoch um 21:33 Uhr
Frage zu einer Fehlermeldung in Excel Frage zu einer Fehlermeldung in Excel: Guten Tag liebes Forum, ich habe seit einigen Tagen ein Problem mit einer Fehlermeldung, sobald ich Excel öffne. Die Fehlermeldung ist auf dem Bildanhang dargestellt. Ich habe bereits einiges...	Microsoft Office	Mittwoch um 14:02 Uhr
Aus Excel Dokument senden - falscher Mailaccount Aus Excel Dokument senden - falscher Mailaccount: Moin.Ich kann aus Excel mit der Funktion "Senden" -> "Als PDF Anlage senden" ohne Probleme das Excel-Blatt versenden - allerdings wird es mit der @outlook.com Adresse gesendet. Ich habe aber auch...	Microsoft Office	Mittwoch um 12:13 Uhr
Excel Kontrollkästchen als Zellensteuerelement nicht verfügbar - Version 2402 Excel Kontrollkästchen als Zellensteuerelement nicht verfügbar - Version 2402: Hallo zusammen,für eine Checkliste würde ich gerne die Funktion des Zellensteuerelements "Kontrollkästchen" anwenden.keine Formular- oder ActiveX Checkbox SteuerelementeWoran kann es liegen, dass...	Microsoft Office	Mittwoch um 11:12 Uhr
Excel Verknüpfung findet keine ODS Dateien Excel Verknüpfung findet keine ODS Dateien: Ich habe eine ODS Excel Datei, die mit mehren anderen Dateien Verknüpft ist. Folgend sieht ihr meine Hauptdatei Bild1 und jede KW hat ihre eigene Datei die mit meiner Hauptdatei verknüpft ist. Die...	Microsoft Office	Dienstag um 13:52 Uhr
Excel-Tabelle Uhrzeiten aufrunden, aber nicht immer WENN... Excel-Tabelle Uhrzeiten aufrunden, aber nicht immer WENN...: Ich habe meine Zeiterfassung so eingerichtet, dass jeweils auf 15 Min. aufgerundet wird. Nun meine Frage: Kann ich das noch einschränken auf einen bestimmten Uhrzeitbereich? Ich würde gerne alles...	Microsoft Office	Montag um 19:13 Uhr

EXCEL Makroprogrammierung