Kleines Makro

Question

Guten Tag

Könnte mir jemand bitte ein kleines Makro für Excel schreiben.

Sollte so aussehen:
Durchsuche Spalte für Spalte wenn in Zeile 5000 die Zahl 100
und in Zeile 5001 die Zahl 110 steht dann erste Zeile von der Spalte
farbig Markieren.
Aber nur wenn diese 2 Werte erfüllt werden
Jemand sagte mir das kann man mit if Case machen ich habe
aber leider keine Ahnung von diesen Dingen.


Das wars schon wäre echt nett

Lg
Beier

Answer 1

Hallo Beier1 ^^

Wie gewünscht!

Gruss Nighty

Sub DeinMakro()
Dim Suche As Range
Set Suche = Range(Cells(5000, 1), Cells(5000, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column)).Find(100)
If Not Suche Is Nothing Then
If Cells(5001, Suche.Column) = 110 Then
Cells(1, Suche.Column).Interior.ColorIndex = 3
End If
End If
End Sub

Answer 2

Hi Nighty

Läuft 1A .

Bedanke mich recht Herzllich

Lg
Beier

Answer 3

Hi Nighty

Ich melde mich nochmal dein Makto läuft zwar aber jetzt habe ich gesehen das er mir nur
die erste Spalte einfärbt er soll aber alle Spalten durchgehen und diese falls die Zahlen zutreffen
die 1.Zeile einfärben in der jeweilen Spalte

Kann du bitte nochmals drüberschauen

Answer 4

Hallo Beier1 ^^

Eine andere Variant!

Gruss Nighty

Sub DeinMakro()
Dim SpIndex As Long
Dim Daten As Variant
Daten = Range(Cells(5000, 1), Cells(5001, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column))
For SpIndex = LBound(Daten, 2) To UBound(Daten, 2)
If Daten(1, SpIndex) = 100 And Daten(2, SpIndex) = 110 Then Cells(1, SpIndex).Interior.ColorIndex = 3
Next SpIndex
End Sub

Answer 5

hi all ^^

Alternative wäre auch Findnext gewesen oder Dynamische Bereichsvariablen!

Gruss Nighty

Answer 6

Hi Nighty

Ja Super jetzt passt es .
Vielen Dank

Lg
Beier