AW: geht sowas nicht ?
05.07.2019 10:43:42
Daniel
Geht offensichtlich nicht über Nacht ;-)
Hier mein VBA Ansatz:
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
Der Ansatz vom anderen Daniel ist eleganter, aber als VBA Neuling ist dieser vielleicht etwas leichter zu verstehen? Ihr wollt ja bestimmt auch nachvollziehen können, was da passiert. Ansonsten einfach ignorieren.
Kleiner Unterschied - ich lösche nicht vorher alle alten Daten ab. Müsst ihr wissen, ob ihr das wollt oder nicht. Macht aber sicherlich Sinn.
Grüße
Daniel