mir wurde auch schon super weitergeholfen. Nur leider passt es noch nicht ganz.
Nochmal mein Problem:
ich möchte einen Kommentar einfügen
das folgende Kriterien erfüllt
1.es sollte eine bestimmte Größe haben
2.als Überschrift statt meines Namens "Bemerkung" stehen
3. und am liebsten möchte ich einen Spaltenbereich markieren und dann
die Kommentare für alle markierten Zellen einfügen. Nicht alle einzeln...
.. denn ich muss ca. 1500 Kommentare einfügen.
Folgendes habe ich gestern schon rausgefunden. Aber wie gesagt.
Irgendwie funktioniert es nicht ganz.
Sub KommentarSchrift3()
Dim Cmt As Comment
ActiveCell.Select
Set Cmt = ActiveCell.AddComment
Cmt.Text "Sammel"
Cmt.Visible = True
With Cmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 14
End With
With Cmt.Shape
.Height = 50
.Width = 100
End With
End Sub
Oder vielleicht hat jemand eine andere Idee. Es müssen keine Kommentare sein. Ich habe in einer Spalte Firmennamen und möchte wenn ich mit der Maus auf einen drauf gehe oder anklicke, dann soll sich ein Fenster öffnen mit versch. Daten des Kunden. Bemerkungen, Kundennummer usw. Gehts vielleicht anders einfacher????
Besten Dank Sandra
:-)