Datum auslesen, wenn Zelle Kommentar hat

Sub Kommentare_exportieren()

Dim wksZiel As Worksheet

Dim wksTab As Worksheet

Dim cmt As Comment

Dim lngZeile As Long



Set wksZiel = tbl_Kommentare



wksZiel.UsedRange.Clear



wksZiel.Range("A1:F1").Value = _

    Array("Tabelle", "Status", "Zelladresse", "Zellenwert", "Kommentar alt", "Kommentar neu")

wksZiel.Range("A1:F1").Font.Bold = True

wksZiel.Range("A1:F1").Interior.ColorIndex = 37

'wksZiel.Range("A1:F1").HorizontalAlignment = xlCenter



lngZeile = 2



For Each wksTab In ThisWorkbook.Worksheets



    Select Case wksTab.CodeName

    

        Case "tbl-Kommentare"

        Case "Tabelle13"

    

    Case Else

            For Each cmt In wksTab.Comments

            'tabellenname exportieren

            wksZiel.Range("A" & lngZeile).Value = wksTab.Name



                If wksTab.Visible = True Then

                wksZiel.Range("B" & lngZeile).Value = "eingeblendet"

            Else

                wksZiel.Range("B" & lngZeile).Value = "ausgeblendet"

            End If



             wksZiel.Range("C" & lngZeile).Value = cmt.Parent.Address

            

            wksZiel.Range("D" & lngZeile).Value = "'" & cmt.Parent.Value

            

            wksZiel.Range("E" & lngZeile).Value = cmt.Text

            wksZiel.Range("E" & lngZeile).WrapText = False



            lngZeile = lngZeile + 1



        Next cmt



    End Select



Next wksTab



wksZiel.Range("A:C").VerticalAlignment = xlTop



wksZiel.Columns("B:C").ColumnWidth = 12

wksZiel.Columns("E:F").ColumnWidth = 30

'wksZiel.Columns("B:C").AutoFit



wksZiel.Range("C:D").HorizontalAlignment = xlCenter

    

End Sub