Messagebox met celaanduiding

[conceal]

Hallo,

Om m'n macro wat gebruikersvriendelijkheid mee te geven ben ik een beetje aan het testen hoe meldingen werken. Ik zou graag een messagebox willen die aangeeft als de input niet voldoet aan de vereiste. In deze messagebox zou ik dan graag de cel zien waar die fout ingevuld is. Dus zoiets als "De inputtabel is niet juist. De inhoud van de cellen mogen alleen 1, 2 of 3 zijn. Verander R3." De code die ik nu heb is:

Sub msgknop()
Dim rijen As Single
Dim kolommen As Single

rijen = Sheets("Sheet2").Cells(1, 1).End(xlDown).Row
kolommen = Sheets("Sheet2").Cells(1, 1).End(xlToRight).Column


For i = 1 To rijen
    For j = 1 To kolommen
        If Sheets("Sheet2").Cells(i, j) <> 1 Then
           If Sheets("Sheet2").Cells(i, j) <> 2 Then
                If Sheets("Sheet2").Cells(i, j) <> 3 Then
                    MsgBox ("De inputtabel is niet juist. De inhoud van de cellen mogen alleen 1, 2 of 3 zijn." + Cells(i, j))
                    Exit Sub
                End If
            End If
        End If
    Next j
Next i

End Sub

Deze code werkt echter niet. Weet iemand misschien hoe ik de celaanduiding in de tekst verwerkt krijg? Alvast bedankt!

Maikel

 

[conceal]

Sorry... ik was te snel met vragen... heb het antwoord al:

MsgBox ("De inputtabel is niet juist. De inhoud van de cellen mogen alleen 1, 2 of 3 zijn. Wijzig (onder andere) de volgende cel: " & Cells(i, j).Address)