Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kommentar einfüben

kommentar einfüben
12.08.2020 13: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
Anzeige
Doppelt: Siehe oben
12.08.2020 15:10:25
UweD
AW: kommentar einfüben
12.08.2020 15: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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige