Kommentare mit Name auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Servus,
Ich weiss, ich bin laestig, leider hilft mir das auch nicht so viel weiter.
Der Hintergrund im Detail ist, dass ich ca. 40 Kommentar initial über VBA generiere.
Jedes mal, wenn dann eine Schleife/Funktion ein bestimmtes Ergebnis errechnet hat, dann soll in dem entsprechenden Kommentar ein Counter hochgesetzt werden (bzw. eine Zusatzinfo dazugeschrieben werden):
Z.B.:
for i=1 to 100 do
if Auto(i)="rot" then comment("rot").text = comment("rot").text & char(10) & "rot auch gefunden in A1"
if Auto(i)="grün" then comment("grün").text = comment("rot").text & char(10) & "grün gefunden in B2"
next i
Dies soll alles vollautomatisch nach Initialen Eingabe über Userform passieren (also hilft F5 und markieren da nicht viel).
Mir wuerde es schon reichen, den Befehl zu wissen, wie ich ein Kommentar mit Name ansprechen (e.g. worksheets("x").comments("xy"). Das geht nur leider nicht so wie bei normalen Shapes...
Gruesse,
Michael

Sub ttt() Dim c As Range, rc As Range On Error Resume Next Set rc = Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If Not rc Is Nothing Then For Each c In Cells.SpecialCells(xlCellTypeComments) 'mach was Next End If End Sub

Sub Komm() Dim c As Range, rc As Range On Error Resume Next Set rc = Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 For Each c In Cells.SpecialCells(xlCellTypeComments) If c.Comment.Text = "Kommentar neu" Then c.Comment.Text Text:="Kommentar brr" End If Next End Sub

Hallo Michael,
Du musst nicht alle Zellen "abklappern", sondern es genügt entweder ein gezielter Zugriff auf das Kommentarfeld einer bekannten Zelle (die Zelle ist quasi der von Dir gesuchte Index, da ein Kommentar immer einer Zelle zugeordnet ist !) :

VBA-Code:

Sub KommentarInkrementieren()

    With Range("H7").Comment

        .Text Text:=Str(Val(.Text) + 1)

    End With

End Sub

Oder Du kannst auch eine Schleife direkt über Alle Kommentarfelder des aktuellen Tabellenblattes erstellen :

VBA-Code:

Sub SchleifeUeberAlleKommentare()
Dim comm As Comment
For Each comm In ActiveSheet.Comments

        MsgBox comm.Text
Next
End Sub

Gruß, NoNet

					 PS: Ich schenke meinem Beitragstitel ein "m" _oT
				
					NoNet
				
_oT = "ohne Text"

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread