Pop Up Fenster einblenden lassen
11.12.2003 11:12:04
Fred
ich habe mal folgendes Problem:
Ich habe eine Tabelle aufgebaut, bei der Excel prüfen soll ob durch einen User in eine Zelle das Merkmal "R" eingetragen wurde. Wenn dem so ist, dann soll ein Fenster eingeblendet werden, dass dem User ermöglichen soll eine ergänzende Info zu schreiben, die später als Kommentar zur Zelle gespeichert wird.
Solange der User den Eintrag manuell vornimmt funktioniert es auch. Ich habe für die Tabelle jedoch die Funktion der Daten-Gültigkeitskriterien eingerichtet, so dass der User alternativ auch aus einer Liste die Eintragungsmöglichkeiten für die Zelle auswählen kann. Nutzt der User diesen Weg - was eigentlich Standard sein soll -, dann wird das von mir programmierte Fenster zur ergänzenden Info nicht hochgeblendet.
Kann mir da jemand weiterhelfen?
Hier meine VBA Routine:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Cells(7, 6), Cells(372, 25))) Is Nothing Then
If Target.Count = 1 Then
If Target = "R" Then
Zelle = Target.Address
UserForm1.Show
Else
ActiveSheet.Unprotect
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$FD$67:$FD$72"
.InputTitle = ""
.InputMessage = ""
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Else
MsgBox "Mehrfachauswahl nicht gestattet. Bitte nur 1 Eintrag zurzeit löschen", 48, "Hinweis"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub
Vielen Dank im Voraus
Fred