Habe folgende Frage: Möchte eine If Funktion wo der Wert (Zahl) zweier Zellen verglichen wird.
Zelle Q7 und R7. Wenn in beiden Zellen der Wert ident ist dann möchte ich ein Makro ausführen.
Wie schreibe ich das? Bitte um Eure Hilfe.
Gruß
Gerhard F.
Private Sub vergleich()
If Tabelle1.Range("Q7") = Tabelle1.Range("R7") Then
Call DeinMakro
Else
MsgBox "Werte stimmen nicht überein"
End If
End Sub
Tabellen- und Makroname müssen noch angepasst werden.
Gruß
Henning
Private Sub vergleich(strBlattname As String)
With Sheets(strBlattname)
If .Range("Q7") = .Range("R7") Then
Call DeinMakro
Else
MsgBox "Werte stimmen nicht überein"
End If
End With
End Sub
Gruß
Uwe
(:o)