Spaltenbreite in Notiz ausgeben
30.06.2020 16:51:13
olga
wie kann ich die Spaltenbreite als Notiz ausgeben?
Immer wenn sich nach columns.Autofit die Spaltenbreite ändert, sollen diese in die Notiz eingelesen werden.
Sub NotizSpaltenbreite()
Dim i As Long
With Sheets("Start")
For i = 1 To 20
.Cells(1, i).ClearComments
.Cells(1, i).AddComment Text:=.Cells(1, i).ColumnWidth
Next
End With
End Sub
Danke!
Gruß
Olga