Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
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

Kommentar per VBA

Kommentar per VBA
23.09.2008 10:27:38
Thorsten
Hallo,
ich suche eine Möglichkeit per VBA einen Kommentar einzufügen. Ich kriege das bisher mit folgendem Code hin:

Sub Kommentar
Dim Com as Comment
Set Com = ActiveCell.AddComment
With Com
.Visible = False
.Text Text:="Text"
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
End Sub


Nun ist es so, dass ich mit einem vorherigen Code mehrere Zellen markieren lasse und den Kommentar bei allen markierten Zellen einfügen möchte. Ist das möglich?
Gruß Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Kommentar per VBA
23.09.2008 10:47:00
Beverly
Hi Thorsten,

Sub Kommentar()
Dim Com As Comment
Dim raZelle As Range
For Each raZelle In Selection
Set Com = raZelle.AddComment
With Com
.Visible = False
.Text Text:="Text"
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
Next raZelle
End Sub




AW: Kommentar per VBA
23.09.2008 10:47:16
Tino
Hallo,
so müsste es gehen.
Option Explicit

Sub Kommentar()
Dim Zelle As Range
Application.ScreenUpdating = False
 For Each Zelle In Selection
    With Zelle.AddComment
        .Visible = False
        .Text Text:="Text"
        .Shape.LockAspectRatio = msoFalse
        .Shape.TextFrame.AutoSize = True
    End With
 Next Zelle
Application.ScreenUpdating = True
End Sub


Gruß Tino

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige