Fragebogen mit Excel: Eingabe in Zellen erzwingen?
25.01.2004 15:02:50
Markus
gibt es als Formel- oder VBA-Lösung die Möglichkeit, bei der Eingabe eines bestimmten Wertes (bei mir ist es der Buchstabe "X") in einer Zelle (bei mir ist es A6) den Benutzer der Tabelle zu zwingen, auch einen Eintrag in die Zelle D6 zu machen?
Also, ich möchte meine Zelle A6 quasi als "Auswahlzelle oder Indikatorzelle" haben, die anzeigt, dass die Zeile 6 benutzt wird und daher auch die Zelle D6 ausgefüllt werden muss. Wenn kein "X" in der Zelle A6 benutzt wird, darf auch D6 nicht ausgefüllt werden. Die Zellen A6 und D6 habe ich mit einer Liste durch eine Gültigkeitsprüfung formatiert, so dass man nur bestimmte Werte auswählen kann und diese Formatierung soll auch beibehalten werden.
Es ist also eine klassische Problemstellung für einen Fragebogen: Erst wählt man die Zeile aus und ist dann gezwungen, die anderen Zellen in der Zeile auch wirklich auszufüllen.
Bisher habe ich es versucht nur mit folgeder VBA Lösung zu erreichen, die mir lediglich eine Meldung ausgibt, dass man auch die andere Zelle ausfüllen muss. Dies reicht mir nicht, weil ich eine wirkliche "Garantie" zum Ausfüllen und Nicht-Ausfüllen brauche! Vielleicht kann man meine Lösung aufbohren?:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A6:A34")) Is Nothing Then
MsgBox "Bitte vergessen Sie nicht, bei der Auswahl der Bewertungszeile eine Bewertung des Items abzugeben"
End If
End Sub
Vielen Dank für Eure Hilfe,
Markus