beim verändern einer nicht leeren Zelle warnen

23/01/2009 - 16:36 von Daniel Lutz | Report spam
Hallo NG

wenn der User den Inhalt einer nicht leeren Zelle veràndern möchte, soll er
zuvor informiert werden, dass die Zelle nicht leer ist, und die Möglichkeit
bekommen, den Vorgang abzubrechen.
Könnte mir jemand dafür einen Code nennen?
Meine Kenntnisse reichen leider nicht aus.

Vielen Dank: Daniel
 

Lesen sie die antworten

#1 Wolfgang Habernoll
23/01/2009 - 17:06 | Warnen spam
Hallo

"Daniel Lutz" schrieb im Newsbeitrag
news:glco6v$svq$
Hallo NG

wenn der User den Inhalt einer nicht leeren Zelle veràndern möchte, soll er
zuvor informiert werden, dass die Zelle nicht leer ist, und die Möglichkeit
bekommen, den Vorgang abzubrechen.
Könnte mir jemand dafür einen Code nennen?
Meine Kenntnisse reichen leider nicht aus.



versuche mal ob es das ist. Kopiere den Code im VBE in das entsprechende
Tabellenblatt

Public blLeer As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngJN As Long
If blLeer Then Exit Sub
On Error GoTo EventERR
lngJN = MsgBox("Wollen sie die Änderungen übernehmen? ", vbYesNo)
Application.EnableEvents = False
If lngJN = 7 Then Application.Undo
EventERR:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "" Then
blLeer = True
Else
blLeer = False
End If
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen