Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kommentar abhängig von Wert anhängen

Kommentar abhängig von Wert anhängen
30.12.2014 23:06:52
Wert
Hallo VBA Experten,
meine Voraussetzungen: Excel "geht so", VBA "erste Gehversuche"
Ich arbeite gerne mit Kommentaren. Jetzt suche ich nach einer Lösung dafür, wie man Kommentare abhängig vom Wert in der betreffenden Zelle "auftauchen".
Zur Veranschaulichung ein Beispiel: In den Zellen A1 bis A5 werden Obstsorten eingegeben. Wenn die Begriffe "Banane" oder "Orange" eingegeben werden, soll die betroffene Zelle mit dem Kommentar "muss geschält werden" versehen werden. Nach Entfernung der Banane oder Orange soll auch der Kommentar wieder verschwinden.
Wie kann man so was machen ?
Wünsche einen guten rutsch ins neue Jahr.
Gruss Bernhard

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar abhängig von Wert anhängen
31.12.2014 09:08:43
Wert
Hallo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing And Target.Count = 1 Then
If Target.Value = "Banane" Or Target.Value = "Orange" Then
With Target
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:="muss geschält werden"
End With
Else
Target.ClearComments
End If
End If
End Sub
Gruß Matthias

Anzeige
With-Konstrukt leicht geändert
31.12.2014 09:41:19
Matthias
Hallo
oder etwas gekürzt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing And Target.Count = 1 Then
With Target
If .Value = "Banane" Or .Value = "Orange" Then
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:="muss geschält werden"
Else
.ClearComments
End If
End With
End If
End Sub
Gruß Matthias

Anzeige
AW: With-Konstrukt leicht geändert
31.12.2014 12:25:10
bernhardtautz
Das ist genau das, was ich suche. Vielen Dank Matthias !
Wünsche einen guten Rutsch und alles Gute für das neue Jahr
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige