AW: Problem: Kommentar bei Autofilter
13.02.2010 15:42:11
fcs
Hallo Stefan,
ich habe alle Zellen in Spalte D mit Kommentaren hinterlegt.
Warum? Wenn die Information so relevant sind, dass sie ständig angezeigt werden sollen, dann macht es mehr Sinn eine zusätzliche Spalte mit den Daten zu füllen und diese Spalte bei Bedarf ein-/auszublenden.
Der Kommentar dieser Zellen verschiebt sich jedoch nicht mit der dazugehörigen Zeile mit, sondern
bleibt mit einem langen Pfeil an der vermutlich ursprünglichen Stelle stehen.
Kennt Ihr das Problem bzw. eine Lösung hiefür ?
Problem bekannt? Ja
Lösung?
A: vor dem Filtern alle Kommentare auszublenden.
B: Kommentare anders formatieren. Standadmäßig sind Kommentare als unabhängig von Zellposition und -größe formatiert. Diese Einstellung müsstest du für die Kommentare ändern. Das ist manuell naürlich sehr mühselig. Deshalb hier auch noch ein Makro zum Umformatieren der Kommentare.
Bild aus Excel 2007.
Gruß
Franz
Sub KommentarUmformatieren()
Dim Zelle As Range, oComment As Comment, wks As Worksheet, oFilter As Filter
Set wks = ActiveSheet
wks.Rows.Hidden = False
'auf aktiven Autofilter checken und ggf. alle Daten einblenden
If wks.AutoFilterMode = True Then
For Each oFilter In wks.AutoFilter.Filters
If oFilter.On = True Then wks.ShowAllData: Exit For
Next
End If
'Kommentare in Spalte D (4) umformatieren
For Each Zelle In Range(Cells(1, 4), Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 4))
Set oComment = Zelle.Comment
If Not oComment Is Nothing Then
oComment.Shape.Placement = xlMove 'Position nur abhängig von Zellposition
End If
Next
End Sub