EXCEL Makroprogrammierung

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

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

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

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

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