VBA Meldung - Ungültige Feldeingabe!

[teq]

Verstehe das nicht so ganz habe einen Monatskalender gebastelt in dem auch Feiertage angezeigt werden mittels  "=ZÄHLENWENN(Feiertage;G$4)=1" was auch wunderbar funktioniert. jetzt würde ich aber am liebsten noch eine Meldung basteln wenn man versucht dort was einzutragen sprich es anklickt mit dem Cursor. 


habe es über VBA versucht jedoch wird dabei jedes Feld angesprochen. stehe da momentan total auf dem schlauch :(

For Each rng In Sheets("Feiertage").Range("A3:A13")
        Text1 = "Hinweis: Feiertag"
        Text2 = "Ungültige Feldeingabe!"
        MsgBox Text1 & vbLf & Text2, , "Warnung"
    Exit For
    Next rng
End Sub

[BoskoBiati]

Hi,

warum machst Du das nicht über Datengültigkeit?

[teq]

Das wäre sicherlich auch eine Lösung, ich würde jedoch gerne wissen woran es liegt das es nicht richtig funktioniert? Es irritiert mich halt das alle Felder angesprochen werden

[BoskoBiati]

Hi,
Bei each rng ist das doch logisch.

[teq]

boahr.... bitte nimmt mir jemand dieses blöde Brett vor dem Kopf weg. ich schnall es einfach nicht

[BoskoBiati]

Hi,

mit "each rng" wird bei jeder Zelle In A3:A13 die Meldung angezeigt. Es fehlt dazu ja auch noch der Rest des Codes!

[schauan]

Hallo teq,

Wenn Du das entsprechende Ereignismakro für das Click-Ereignis nimmst, dann gibt es dort bei den Parametern den Target. Das ist die angeklickte Zelle und somit brauchst Du nur zu prüfen, ob Target in Deinem Range liegt.

Im Prinzip so

Code:

If not intersect( Target, Range("A3:A13")) is nothing then
With Target
        Text1 = "Hinweis: Feiertag"
        Text2 = "Ungültige Feldeingabe!"
        MsgBox Text1 & vbLf & Text2, , "Warnung"
End With
End Sub

[M.Wichmann]

Hallo,

ich möchte diese Thema mal für mich aufgreifen.

Ich habe das jetzt so auch bei mir eingefügt um Eingaben in Formelbereichen zu unterdrücken.
Aber ich möchte jetzt gerne noch zb eine Checkbox einbauen, die es mir erlaubt doch Änderungen vorzunehmen ohne das Ständig die MSG aufgeht.

Aber ich bin mir nicht sicher, wie ich das richtig kombiniere.

[schauan]

Hallöchen,

Du hattest doch in den vielen Diskussionen hier bestimmt schon Codes mit mehr als einer Bedingung ?
Prüfe einfach vor Ausgabe der MsgBox den Status der Checkbox.