Office: MsgBox bei Eingabe in bestimmter Zelle mit Bedingung

manega · 11. Januar 2017

Hallo Profis,

ich benötige einen Code der mir eine MsgBox öffnet, wenn in bestimmten Zellen bereits ein Wert vorhanden ist und dann in einer anderen Zelle ein Wert eingegeben wird.
Das heißt konkret:
Wenn in einer der Zellen B28:B32 und B38:B42 eine Zahl steht und dann in Zelle C5 eine Zahl eingetragen wird, soll sich eine MsgBox öffnen.
Das sollte auch geschehen, wenn erst in C5 eine Zahl steht und dann in eine der anderen Zellen etwas eingegeben wird.
Normalerweise sind die Zellen leer und es werden nur positive Zahlen eingegeben.

Ich denke für euch ist das kein großes Problem, ich habe damit schon Stunden zugebracht und es trotzdem nicht hinbekommen!

Gruß
manega

:)

aloys78 · 12. Januar 2017

Hallo manega,

meinst Du das so ?
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count > 1 Then Exit Sub
Set rng = Range("B28:B32", "B38:B42")
If Intersect(Target, Union(rng, Range("C5"))) Is Nothing Then Exit Sub

Select Case Target.Address(0, 0)
Case Is = "C5"
If Target "" And IsNumeric(Target) Then
If WorksheetFunction.Count(rng) > 0 Then
MsgBox "Bereich enthält Zahlen", vbInformation
End If
End If

Case Else
If Target "" And IsNumeric(Target) Then
If Range("C5") "" And IsNumeric(Range("C5")) Then
MsgBox "Zelle C5 enthält Zahl", vbInformation
End If
End If
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

manega · 12. Januar 2017

Hallo Aloys,

genau so!
Funktioniert super, vielen Dank!

Gruß
manega

Office: MsgBox bei Eingabe in bestimmter Zelle mit Bedingung

MsgBox bei Eingabe in bestimmter Zelle mit Bedingung

MsgBox bei Eingabe in bestimmter Zelle mit Bedingung

MsgBox bei Eingabe in bestimmter Zelle mit Bedingung - Similar Threads - MsgBox Eingabe bestimmter

MsgBox mit Berechnung und Eintrag in Tabelle

VBA: Mit MsgBox bestimmte Inhalte von Zeile leeren

VBA-Code Arbeitsblatt wechseln

MsgBox bei zwei Werten

MsgBox in Excel anzeigen lassen per Word VBA

MsgBox Ja / Nein > Nein als Standard

MsgBox wenn in Zeitintervall kein "x"