Möglich mit MS Excel?

[msycho]

Jo, jetzt passt das. Vielen Dank!

Du meintest noch ich solle den Werte bzw. die Werte aus Target und nicht wie bisher aus ActiveCell nehmen. Tausche ich es hier aus

If Target <> "" Then

kommt allerdings die Fehlermeldung "Typen unverträglich".

Wo ist mein Fehler, bitte?

EDIT: Der Fehler scheint hier zu entstehen wenn ich auf ein leeres Feld klicke:

If answer = vbYes Then

 

[Niederbobi]

Also das Target gibt die den Bereich für die Auswahl zurück - deswegen hier die Eigenschaft value abfragen!

Und der Fehler ensteht, da es keinen default-wert für answer gibt!

      If Target.Value <> "" Then
          answer = MsgBox(text, vbYesNoCancel, titel)
      Else
        answer = vbNo
      End If

sollte dann gehen - aber auch nur, wenn nicht mehr als eine Zelle ausgewählt wird.

Dirk