Hallo guten morgen,
ich für per Makro kommentare in zellen ein.
ich möchte das es mir immer nur 10 zeilen in den Kommentar einfügt und dann wieder die älteste Zeile löscht ud durch eine neue ersetzt.
Aber ich weiß nicht wie ich es auslesen kann wie viele zeilen mein Kommentar aktuell hat.
Würde mich sehr über Hilfe freuen.
Vielen dank
Hier ist mein Code mit dem ich die Kommentare einfüge.
Vielen dank an alle !!!
If was = "" Then
Alt_Kommentar = ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text
Neu_Kommentar = Alt_Kommentar & Chr(10) & "Eintrag gelöscht von " & Environ("Username") & " am " & Date & " " & Time
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text Text:=Neu_Kommentar
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Shape.TextFrame.AutoSize = True
Else
Alt_Kommentar = ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text
Neu_Kommentar = Alt_Kommentar & Chr(10) & "Eintrag angelegt von " & Environ("Username") & " am " & Date & " " & Time
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text Text:=Neu_Kommentar
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Shape.TextFrame.AutoSize = True
End If