Kommentare -> Daniel
15.07.2019 05:42:20
Anna
ich war jetzt fast zwei Wochen im Urlaub Daniel hat mir diesen Code erstellt,
damit Kommentare ausgelesen werden. Funktioniert super.
Kann man die Kommentare in das TB Auswertung bringen, das Spalte D immer der Benutzer steht, der den Kommentar geschrieben hat ( Kommentar steht immer bei uns z.b. Sepp: ........)
und das dann in der Spalte E der Kommentar in einer Langen Zeile steht ohne Zeilenbruch.
Momentan ändert er sie Zeilenhöhe. Somit macht das alles unübersichtlich bei 210 Kommentare.
Sub Kommentare()
Dim Kommentar As Comment
Dim ws As Worksheet
Dim freieZ As Long
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", " _
_
Oktober", "November", "Dezember"
For Each Kommentar In ws.Comments
With Sheets("Auswertung")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(freieZ, 1) = ws.Cells(Kommentar.Parent.Row, 1)
.Cells(freieZ, 2) = Format(ws.Cells(5, Kommentar.Parent.Column), "DD.MM.YYYY")
.Cells(freieZ, 3) = Kommentar.Parent.Value
.Cells(freieZ, 4) = Kommentar.Text
End With
Next Kommentar
Case Else
'nix
End Select
Next ws
End Sub