kommentar einfüben

Forumthread: kommentar einfüben
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: kommentar einfüben

kommentar einfüben

12.08.2020 15:53:40

Christian

Halli Hallo!
Ich möchte bitte gerne wissen ob es möglich ist einen Kommentar automatisch in eine Zelle einzufügen wenn:
in Zelle A1 die Ziffer 11 steht, dann Kommentar "bla bla bla" wenn die Ziffer 12 steht, dann "anderes Bla anderes Bla bla bla"
Für Lösung
ein hezrliches Danke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Doppelt: Siehe oben

12.08.2020 17:10:25

UweD
AW: kommentar einfüben

12.08.2020 17:20:36

fcs

Doppelt: Siehe oben

12.08.2020 17:10:25

UweD

AW: kommentar einfüben

12.08.2020 17:20:36

fcs

Hallo Christian,
das kann man mit einem Ereignis-Makro - hier Eingabe Zellwert - zum Beispiel wie folgt lösen.
LG
Franz

'Ereignis-Makro unter dem Tabellenblatt-Modul in dem der Kommentar in einer Zelle ergänzt  _
werden soll.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count = 1 Then
Select Case .Row
Case 1 'Zeile 1
Select Case .Column
Case 1 'Spalte A
If .Comment Is Nothing Then
.AddComment "Test"
End If
Select Case .Value
Case 11
.Comment.Text "Bla Bla Bla"
Case 12
.Comment.Text "Anderes Bla Bla Bla"
Case Else
.Comment.Delete
End Select
Case Else
'do nothing
End Select
Case Else
'do nothing
End Select
End If
End With
End Sub