msgbox bei freier Zelle

Forumthread: msgbox bei freier Zelle
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: msgbox bei freier Zelle

29.01.2004 12:18:54

Matzutat

Wie kann ich erreichen, dass bei einem eintrag in einer zelle geprüft wird, ob die zelle darüber frei ist, dies in einer meldung angezeigt wird und der eintrag nicht übernommen wird?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: msgbox bei freier Zelle

29.01.2004 12:29:39

Josef Ehrensberger
AW: msgbox bei freier Zelle

29.01.2004 12:43:48

Matzutat
Danke für die Rückmeldung! o.T.

29.01.2004 12:45:12

Josef Ehrensberger

AW: msgbox bei freier Zelle

29.01.2004 12:29:39

Josef Ehrensberger

Hallo ?
Schreib in das Modul der Tabelle diesen Code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5:D20]) Is Nothing Then Exit Sub
'Bereich in welchem geprüft wird - anpassen
If Target.Count = 1 Then
Application.EnableEvents = False
With Target
If .Offset(-1, 0) = "" Then
MsgBox "Zelle oberhalb ist leer!"
.Value = ""
.Offset(-1, 0).Select
End If
End With
End If
Application.EnableEvents = True
End Sub