Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige