Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1608to1612
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

Kommentare aus Zelleninhalt generieren

Kommentare aus Zelleninhalt generieren
24.02.2018 13:38:30
Leon
Hallo zusammen,
ich möchte die Zelleninhalte aus Sheet1 als Kommentare der Zellen in Sheet2 anheften.
Hier ein Beispiel wie es aussehen sollte, nur nicht die Kommentare in Sheet1 sondern Sheet2.
Userbild
Wichtig dabei muss sein, dass bei Zellen ohne Inhalt kein Kommentar erstellt wird und an dieser Stelle eine Lücke in der Kommentarabfolge entsteht.
Meinen Code in VBA:

Sub kommentare()
Dim cmt As Comment
Dim zelle As Range
Dim zaehler As Integer
zaehler = 1
On Error Resume Next
For Each zelle In Sheets("Tabelle1").Range("A1:A40")
If zelle.Value  "" Then
Set cmt = zelle(zaehler, 2).AddComment
cmt.Text Text:=zelle.Value
End If
zaehler = zaehler + 0.25
Next zelle
End Sub

Vielen Dank schonmal im Voraus!
Gruß Leon

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare aus Zelleninhalt generieren
24.02.2018 14:32:08
fcs
Hallo Leon,
so sollte es funktionieren, den Nmen des Bltte sin dem die Kommentre eingefügt werden sollen musst du ggf. npssen.
Sub kommentare()
Dim cmt As Comment
Dim zelle As Range
Dim wks2 As Worksheet
Set wks2 = ActiveWorkbook.Worksheets("Tabelle2")
On Error Resume Next
For Each zelle In Sheets("Tabelle1").Range("A1:A40")
If zelle.Value  "" Then
Set cmt = wks2.Cells(zelle.Row, 2).AddComment
cmt.Text Text:=zelle.Value
End If
Next zelle
End Sub

Gruß
Franz
AW: Kommentare aus Zelleninhalt generieren
24.02.2018 15:41:15
Leon
Es funktioniert. Vielen Dank, Franz.
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige