Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1948to1952
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
Inhaltsverzeichnis

Datenüberprüfung

Datenüberprüfung
26.10.2023 14:19:49
Kay
Liebe Excel-Enthusiasten,

ich stehe gerade ganz gewaltig auf dem Schlauch.

Ich habe folgende Anforderung an meine Tabelle:

In Zelle B13 wird eine Schulnote zwischen 1 und 5 zur Bewertung eines Dienstleisters eingeben.
Wenn dieser Wert in B13 >=3 ist, dann soll in der Zelle F13 eine Begründung eingetragen werden.
Wenn B13 also größer als 3 ist, darf die Zelle F13 nicht leer bleiben, sondern muss mit einem Kommentar gefüllt werden.
Mein erster Impuls ist es das mittels benutzerdefinierter Datenüberprüfung und einer Fehlermeldung abzubilden.
Es gelingt mir aber nicht meine Webrecherche war nicht zielführend - daher wäre ich für jeden Tipp dankbar.

Viele Grüße

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: standardmäß. allein mit Datenüberprüf. nicht möglich ...
26.10.2023 14:28:23
neopa C
Hallo Kay,

... weil in einer anderen Zelle entsprechend reagiert werden soll. Eine Möglichkeit wäre aber neben einer VBA-Lösung eine einfache bedingte Formatierung der Zelle F13, wenn in B13 ein Wert >2 eingetragen wird. Die Zellfärbung durch die bedingte Färbung macht visuell auf die Erfordernis eines Kommentars aufmerksam.

Gruß Werner
.. , - ...
AW: Datenüberprüfung
27.10.2023 10:09:52
Pierre
Hallo Kay,

hier mal ein Beispiel für VBA, ist zwar nicht ganz ausgereift, aber vielleicht ist es ja trotzdem schon nervig genug, sodass die Kollegen einen Kommentar hinterlassen ;-)

Private Sub Worksheet_Change(ByVal Target As Range)


Dim e As Range

For Each e In Sheets("Tabelle1").Range("B1:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
If e.Value > "3" Then
With e.Offset(0, 4)
If .Value = "" Then
On Error Resume Next
Application.EnableEvents = False
.Select
MsgBox "Bitte in Spalte F Kommentar eingeben!"
Application.EnableEvents = True
On Error GoTo 0
End If
End With
End If
Next e

End Sub


Wenn in Spalte B eine 3 oder höher eingetragen wurde, springt der Cursor in Spalte F und ein Hinweis erscheint. Solange die zugehörige Zelle in Spalte F leer ist, springt der Cursor immer wieder da hin.
Zusätzliches einfärben könnte man dann über bedingte Formatierung machen.

Gruß Pierre
Anzeige
AW: standardmäß. allein mit Datenüberprüf. nicht möglich ...
26.10.2023 14:30:15
Alwin Weisangler
Hallo,
eine weiter Möglichkeit in D13:
=WENN(UND(B13>=3;F13="");"F13 muss einen Kommentar enthalten";"")


Gruß Uwe
AW: ja, aber so nur unter der Voraussetzung ...
26.10.2023 14:33:58
neopa C
Hallo Uwe,

... das nach Eintrag in B13 da keine Änderung mehr vorgenommen wird/werden kann.

Gruß Werner
.. , - ...
AW: ja, aber so nur unter der Voraussetzung ...
26.10.2023 16:03:39
Alwin Weisangler
Hallo Werner,

der TO möchte einen Hinweistext, dass ab Zensur 3 abwärts Zelle F13 nicht leer sein darf. So habe ich das geschriebene verstanden.

Gruß Uwe
AW: ja, aber so nur unter der Voraussetzung ...
26.10.2023 16:18:20
Kay
Moin Uwe,

Ziel ist es, dass ab Note 3 eine Kommentar verpflichtend abzugeben ist.
Die Regel ist im Idealfall derart restriktiv, dass der Anwender die Datei nicht verlassen kann, bevor er den Kommentar verfasst hat (wie gesagt Idealfall).
Ich google mir aber schon das Makro zusammen - dann sollte das als Lösung funktionieren.

Danke für euren Input!
Anzeige
AW: das geht so auch nur mit VBA owT
26.10.2023 16:26:01
neopa C
Gruß Werner
.. , - ...

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige