Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

msgbox bei freier Zelle

Forumthread: msgbox bei freier Zelle

msgbox bei freier Zelle
29.01.2004 11: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?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: msgbox bei freier Zelle
29.01.2004 11: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

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: msgbox bei freier Zelle
29.01.2004 11:43:48
Matzutat
Vielen Dank Sepp
klappt prima!!!
Danke für die Rückmeldung! o.T.
29.01.2004 11:45:12
Josef Ehrensberger
/
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige