Office: Mehrere Fragen zu Makros

Hallo,

bin recht neu in VBA und habe einige Dinge, die ich mithilfe von google nicht finden konnte.

1. Wie kann ich beim Prozeduraufruf eine Range an die Prozedur übergeben, die dann damit arbeiten soll?

2. Wie sollte eine Schleife aussehen, die zB von A6 bis D6 jede Zelle mit etwas vergleicht? (A6 und D6 sollte variabel sein, bzw wie in Punkt 1 angesprochen mit dem Aufruf übergeben werden)

Ich hoffe ihr könnt mir helfen.
Vielen Dank im Voraus

 

Versuch mal in der Richtung:

Code:

Private Sub Durchsuche_Bereich(Bereich As Range)

    Dim Zelle As Range

    For Each Zelle In Bereich

        If Zelle.Value > 0 Then
            Zelle.Interior.Color = RGB(224, 255, 224)
          Else
            If Zelle.Value < 0 Then
                Zelle.Interior.Color = RGB(255, 224, 224)
              Else
                Zelle.Interior.Color = RGB(224, 224, 255)
            End If
        End If

    Next

End Sub

Private Sub B_Durchsuche_Bereich_Click()

    Durchsuche_Bereich (ActiveSheet.Range("b3:f12"))

End Sub

Gruß, Michael