Office: (Office 365) Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Hallo zusammen,

ich habe mit etwas verheddert und hoffe auf Eure Hilfe.

Die Felder B111 und B112 sind zu Beginn LEER.

B111 bietet ein Dropdown-Menü an, welches im Falle der Auswahl "Angebot mit Preis" darauf verweisen soll in B112 eine Zahl einzugeben … andernfalls soll der Text "gemäß beiliegenden Stundensätzen" in B112 angezeigt werden.

Soweit so gut, jedoch möchte ich die Eingabe in B112 BEIM VERLASSEN der Zelle jedoch zur Sicherheit noch mal wie folgt prüfen lassen:

Wenn in B112 eine Zahl enthält und in B111 der Text steht "Angebot mit Stundensätzen", soll erscheinen: MsgBox "Bitte nur eine Zahl eingeben !", vbCritical
bzw.
Wenn in B112 eine Text enthält und in B111 der Text steht "Angebot mit Betrag", soll erscheinen: MsgBox "Bitte nur einen Text eingeben oder Art des Angebot-Preises ändern !", vbCritical

Darüber hinaus soll nochmals eine Aktion und Prüfung stattfinden, wenn zuvor alles korrekt gewählt und eingegeben wurde und man in B111 per Dropdown die jeweilige andere Option wählt, da dann der Eintrag in B112 ja falsch ist.


Danke für Eure Hilfe im Voraus.
Jens



Hier mal mein bisheriger Code:

Code:

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$B$111" And Sheets("Eingabe").Range("B112") <> "" Then
    ActiveSheet.Range("B112").FormulaLocal = "=WENN(B111="""";"""";WENN(B111=""Angebot mit Betrag"";""Bitte einen Betrag eingeben !"";""gemäß beiliegenden Stundensätzen""))"
    Range("B112").Select
    MsgBox "Bitte gib nach dieser Änderung ggf. erneut einen Preis für das Angebot ein !", , "Achtung, bitte Eingabe korrigieren !"
    
        If Not IsNumeric(Sheets("Eingabe").Range("B112")) And Sheets("Eingabe").Range("B111") = "Angebot mit Betrag" Then
        MsgBox "Bitte nur eine Zahl eingeben !", vbCritical
        Range("B112").Select
        Else
        End If
    Else
        If IsNumeric(Sheets("Eingabe").Range("B112")) And Sheets("Eingabe").Range("B111") = "Angebot mit Stundensätzen" Then
        'ActiveSheet.Range("B112").FormulaLocal = "=WENN(B111="""";"""";WENN(B111=""Angebot mit Betrag"";""Bitte einen Betrag eingeben !"";""gemäß beiliegenden Stundensätzen""))"
        MsgBox "Bitte nur einen Text eingeben oder Art des Angebot-Preises ändern !", vbCritical
        Range("B112").Select
        End If
End If

 

nur das umgesetzt was im Beitrag Stand

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$112" Then
        If IsNumeric(Target) And Target.Offset(-1, 0) = "Angebot mit Stundensätzen" Then
            MsgBox "Bitte nur eine Zahl eingeben !", vbCritical, "keine Zahl"
      ElseIf Not IsNumeric(Target) And Target.Offset(-1, 0) = "Angebot mit Betrag" Then
            MsgBox "Bitte nur einen Text eingeben oder Art des Angebot-Preises ändern !", vbCritical, "Bitte Text"
      End If
    End If
End Sub

 

Danke lieber Hajo,
ich habe Deine Codezeilen einarbeiten können.

Wie könnte mal den Code noch verfeinern, um nach Anzeige der MsgBox den User so lange "in der Zelle zu halten", bis er den richtigen Wert einträgt ?
Mir fiele da nur Application.SendKeys ("{F2}") ein.
Wobei mal dann zudem auch die ESC-Taste deaktivieren müsste.

 

soweit mir bekannt ist bei MsdNox leine Eingbe möglich. Das Musste man mit UserForm lösen, Shomodal ändern.

Gruß Hajo

 

Hallo zusammen, ich habe es nun wie folgt gelöst, um bei einem falschen Wert den Benutzer immer wieder in die fehlerhafte Zelle zurückzuholen.


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim cellValue As Variant
cellValue = Range("B112").Value

' Prüfen, ob der Wert in B112 keine Zahl ist und der Text in B111 "Angebot mit Betrag" ist
If Not IsNumeric(cellValue) And Sheets("Eingabe").Range("B111").Value = "Angebot mit Betrag" Then
MsgBox "Bitte um die korrekte Eingabe einer Zahl !"
Sheets("Eingabe").Range("B112").Select ' Zelle B112 wird ausgewählt, um Benutzerführung zu bieten

' Prüfen, ob der Wert in B112 eine Zahl ist und der Text in B111 "Angebot mit Stundensätzen" ist
ElseIf IsNumeric(cellValue) And Sheets("Eingabe").Range("B111").Value = "Angebot mit Stundensätzen" Then
MsgBox "Bitte um die korrekte Eingabe eines kurzen Textes !"
Sheets("Eingabe").Range("B112").Select ' Zelle B112 wird erneut ausgewählt

End If

 

Warum VBA?
Benutzerdefinierte Datengültigkeit kann das auch, sogar mit "MsgBox".

Gruß Ralf

 

VBA weil "B112", je nach Auswahl des Dropdowns in "B111" eine Zahl oder einen Text enthalten kann ... und beide Möglichkeiten wohl nicht per Datengültigkeit handelbar ist.