Ich habe folgenden Code für die zwingende Eingabe in eine Zelle verwendet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Vor-Nachkalkulation").Select
If Range("L1") = "" Then
MsgBox "ACHTUNG! Zuerst den Rabatt eingeben!!!", , "Klaus"
Range("l1").Select
End If
End Sub
Nun ist es aber noch möglich, dass der Anwender einfach ein anderes Arbeitsblatt auswählt und dardurch keine Eingabe erzwungen wird. Wie kann ich erreichen, dass beim öffnen der Mappe die Eingabe in die Zelle "L1" erzwungen wird und der User kein anderes Blatt auswählen kann, bis in "L1" ein Wert steht?
Ich hoffe, es ist einigermassen verständlich. Vielen Dank im vorraus
Gruss Klaus