Cellen vergelijken in VBA

[PeterJanssen1948]

Ik ben een beginner in vba en ik zit met het volgende probleempje:

Ik heb een formule gemaakt, en die werkt, maar het resultaat zou ik graag mooier, dus in een msgbox, in vba zien.

Dit zijn de werkende formules:

=ALS(K24-AK24=2;"FOUT! INVOEREN SPELER 2!";"")
=ALS(AK24-K24=1;"FOUT! INVOEREN SPELER 1!";"")

Bij voorbaat dank voor de moeite!

Peter

 

[edmoor]

Het kan waarschijnlijk netter en beter maar met de gegeven informatie kan je dit gebruiken:

If Range("K24").Value - Range("AK24").Value = 2 Then
    MsgBox "INVOEREN SPELER 2!", vbCritical, "FOUT"
End If

If Range("AK24").Value - Range("K24").Value = 1 Then
    MsgBox "INVOEREN SPELER 1!", vbCritical, "FOUT"
End If

Tip:
Gebruik in een bericht niet alleen maar hoofdletters en ook geen uitroeptekens.
Dat komt nogal schreeuwerig over.

 

[PeterJanssen1948]

Hoe laat ik die sub automatisch openen?

Ik ben bezig, voor mezelf een scorelijst voor biljarten te maken, tot zover is alles gelukt in excel formules, de stand, het gemiddelde enz. maar nu wil ik wat verder in VBA, automatisch opslaan met gebruik van meerdere cellen enz. enz. De foutmelding moet automatisch verschijnen als er bijv. 2x bij dezelfde persoon ingevuld wordt.

 

[edmoor]

Dan kan je die code bijvoorbeeld als functie in een module zetten:

Function Speler() As String
    If Range("K24").Value - Range("AK24").Value = 2 Then
        MsgBox "INVOEREN SPELER 2!", vbCritical, "FOUT"
    End If
    
    If Range("AK24").Value - Range("K24").Value = 1 Then
        MsgBox "INVOEREN SPELER 1!", vbCritical, "FOUT"
    End If
    Speler = ""
End Function

Dus in een willekeurige cel in dat werkblad:
=Speler()