kann man die Fehlermeldung einer Gült-Prüfg mit einem Bezug zu einer Zelle füttern, in der der eigentl Text der Meldung steht?
Grüße - Jörg
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").AddressLocal = ActiveCell.AddressLocal Then
MyGueltk
End If
End Sub
'Modul
Sub MyGueltk()
With Selection.Validation
.ErrorMessage = Tabelle1.Range("B1").Value
End With
End Sub
Function ConServe(Optional Bezug)
Static VorBez
If Not IsMissing(Bezug) Then VorBez = Bezug
ConServe = VorBez
End Function
Viel Spaß beim Ausprobieren!