Nur Kommentare einer bestimmten Zeile

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Kommentar_verstecken AusnahmeZeile:=7 End Sub Sub Kommentar_verstecken(AusnahmeZeile As Long) Dim R As Range Application.ScreenUpdating = False Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentar verbergen On Error Resume Next 'weil der Auswahl einer Zeile ohne Kommentar zu eine Fehler führt Worksheets("Tabelle1").Rows(AusnahmeZeile).SpecialCells(xlCellTypeComments).Cells.Comment.Visible = True Application.ScreenUpdating = True End Sub

Sub Kommentar_verstecken(AusnahmeZeile As Long) Dim Z As Range Application.ScreenUpdating = False Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentar verbergen On Error GoTo Finally 'weil der Auswahl einer Zeile ohne Kommentar zu eine Fehler führt For Each Z In Worksheets("Tabelle1").Rows(AusnahmeZeile).SpecialCells(xlCellTypeComments).Cells Z.Comment.Visible = True Next Finally: Application.ScreenUpdating = True End Sub

Sub Kommentar_verstecken() Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt z = ActiveCell.Row s = 19 'Spalte "S" ist die Spalte, ab der der folgende Code starten soll Do While s "" Then Cells(z, s).Comment.Visible = True End If s = s + 1 Loop End Sub

Hallo RoMo,
Super!
Mein Senf dazu:
_ wenn Du schon Anfang und Ende der Schleife kennst, kannst Du einen For verwenden. While ist gefährlich, weil der s = s + 1 nicht vergessen werden darf.
_ der Test Cells(z,s).Note "" liefert schon einen Boolean (True/False). Den kannst Du direkt Comment.Visible assignieren. Dann sparst Du einen If


Sub Kommentar_verstecken()
Dim s As Long
Dim z As Long
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen
On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
z = ActiveCell.Row
For s = 19 To 131 'von "S" bis "DZ"
Cells(z, s).Comment.Visible = (Cells(z, s).NoteText  "")
Next
End Sub

Und falls Du üben möchtest, Cell-Objekte zu verwenden anstatt Zeilen- und Spaltennummer


Sub Kommentar_verstecken()
Dim Z As Range
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen
On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
For Each Z In Intersect(ActiveCell.EntireRow, Range("S:DZ")).Cells
Z.Comment.Visible = (Z.NoteText  "")
Next
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

Nur Kommentare einer bestimmten Zeile

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur Kommentare einer bestimmten Zeile

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread