Vorneweg, ich habe Basiskenntnisse in Excel, arbeite teilweise aber auch mit ein bisschen VBA, da aber eher so Crashkurs mässig. Ich komme von der Industrieprogrammierung und kann deshalb einigermassen verstehen was bei VBA abgeht, seid aber bitte etwas nachsichtig, wenn da "dumme" Fragen kommen.
Ich arbeite gerade daran, ein Excel zu erstellen um alte Produkte zu finden.
Idee ist, sobald ein Produkt auf der Liste für abgekündete Produkte (Blatt 3) auftaucht, dass auf der Produktliste (Blatt 2) eine 1 in der Spalte abgekündet erscheint.
Habe ich soweit auch hingekriegt mit einfachem Excel Befehl.
=ZÄHLENWENN('Abgekündete Produkte'!B:B;' BT Projekte ganz'!H22)
Soweit funktioniert das auch. nun möchte ich aber, dass wenn da eine 1 generiert wird, es mir die ganze Zeile einfärbt.
Soweit klappt das auch mit der VBA Programmierung wie folgt:
Sub MarkierenAbgekündigtProdukte()
If O20 = 1 Then
Range("A20:P20").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Funktioniert super, jedoch weiss ich nicht, wie ich das jetzt erweitern kann, dass es das über einen Bereich (Z.B A1:A20;P1:P20) von mehreren Zeilen macht. Das muss doch irgendwie gehen, ohne das immer wieder einzutippen.
Kann ich da mit Bereichen arbeiten oder schmeiss ich das dann durcheinander?
Weiter wurde ich darauf hingewiesen, dass man das Problem besser durch die Bedingte Formatierung mit folgender Formel lösen könne:
=ZÄHLENWENN('Abgekündete Produkte'!$B:$B;' BT Projekte ganz'!$H$22)
Leider funzt das bei mir irgendwie nicht so recht. Wenn ich den Bereich A20:P20 anwähle und die Regel einfüge passiert nichts.
Wenn ich das ganze Blatt auswähle wird alles rot...
Kann mir jemand erklären was ich da falsch mache?
Und kann ich die Bedingte Formatierung anschliessend ausweiten für weiter IF THEN Funktionen?
Lade gleich noch Bilder hoch, damit ihr euch das vorstellen könnt..
Besten Dank für eure Hilfe