Als Makro korrekt als Private Sub falsch?
07.02.2019 18:58:53
David
ich habe folgendes Makro:
Sub ResetCommets2()
Dim ct As Integer, ht As Integer
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
ct = cmt.Shape.TextFrame.Characters.Count
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 5
cmt.Shape.Width = 100
If ct = 30 And ct Woran kann es liegen?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim ct As Integer, ht As Integer
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
ct = cmt.Shape.TextFrame.Characters.Count
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 5
cmt.Shape.Width = 100
If ct = 30 And ct Vielen Dank schonmal.
LG David
Anzeige