Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1964to1968
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

wenn in zwei Zellen werte stehen dann Hinweis

wenn in zwei Zellen werte stehen dann Hinweis
01.03.2024 09:10:39
JuergenD
Guten Morgen Zusammen,

ich habe folgendes Problem - wenn in Zelle B6 etwas eingetragen wird soll automatisch die Zelle D6 rot werden und ein Hinweis erscheinen das hier ein Wert eingetragen werden muss. Wird in der Zelle D6 nunmehr eine Eingabe gemacht soll der Hinweis verschwinden und die Hintergrundfarbe wieder weiß sein.

Danke für eure Hilfe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn in zwei Zellen werte stehen dann Hinweis
01.03.2024 09:14:30
SF
Hola,
für die Farbe: bedingte Formatierung in D6
für den Hinweis: wenn Formel in D6
Gruß,
steve1da
AW: wenn in zwei Zellen werte stehen dann Hinweis
01.03.2024 09:29:27
UweD
Hallo

so?
Arbeitsblatt mit dem Namen 'Tabelle2'
ABCDE
     
 AA  Wert in D6 fehlt
     
ZelleFormel
E6=WENN(UND(B6>"";D6="");"Wert in D6 fehlt";"")
Zellebedingte Formatierung...Format
D61: (B6>"")*(D6="")abc


LG UweD
Anzeige
AW: wenn in zwei Zellen werte stehen dann Hinweis
01.03.2024 09:55:11
JuergenD
UweD

ja so hatte ich die Idee auch schon - ich wollte aber einen Hinweistext wie ein Kommentartext haben der als Fenster eingeblendet wird da ich in der Darstellung neben D6 kein Platz habe
AW: wenn in zwei Zellen werte stehen dann Hinweis
01.03.2024 11:34:15
UweD
Hallo

dann über VBA

- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Code rechts einfügen

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RNG, Rot As Boolean
Set RNG = Range("B6:D6")

If Not Intersect(Target, RNG) Is Nothing Then
With Range("D6")
If Range("B6") > "" Then
If .Value = "" Then
.AddComment ("Zelle D6 füllen")
.Comment.Visible = True
Rot = True
Else
Rot = False
End If
Else
Rot = False
End If

If Rot Then
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Else
.ClearComments
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End With
End If
End Sub

Bei Änderungen in B6 und D6 wird geprüft.

Das Färben habe ich auch mit eingebaut.



LG UweD
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige