Kommentare auslesen und speichern
14.11.2021 13:27:41
Die
eine Ergänzung zu einem gut laufenden Makro. Mit euer Hilfe habe ich ein Makro erstellt, das sämtliche Kommentare in einem Sheet ausliest, in ein anderes Sheet schreibt und speichert. Das Makro steht unten. Läuft superschnell und sicher.
Folgendes Problem (beispielhaft): die Zeile 11, die auch korrekt in die Spalte A geschrieben wird, gehört je nach Sortierung der Frau Müller oder dem Herrn Maier oder jemand ganz anderem. Es müste noch ein eindeutiges Merkmal dazu, der Name, die Kundennummer o.ä. Ich habe versucht, in die dritte Spalte mit " varCom(i, 3) = rngC.cells" zu experimentieren, aber damit bekam ich nur den Inhalt der Zelle mit dem Kommentar hin. Das ist auch schon mal gut, hilft aber für mein Problem nicht weiter.
Wie könnte ich in die Auswertung immer den Inhalt der durchsuchten Zeile und der Spalte [n] hinbekommen?
Danke und herzliche Grüße
Die Johanna
Sub Kommentare()
Dim i As Long, n As Long
Dim rngC As Range
Dim varCom As Variant
Dim dname As String
Dim dateiname As String
Dim aktpfad As String
Dim pfad As String
n = Sheets("TN-Dat").Comments.Count
i = 1
ReDim varCom(1 To n, 1 To 2)
For Each rngC In
Sheets("TN-Dat").Range("GS11:AGQ500").SpecialCells(xlCellTypeComments)
varCom(i, 1) = rngC.Address(0, 0)
varCom(i, 2) = rngC.Comment.Text
i = i + 1
Next
Worksheets("K").Visible = True
With Sheets("K")
.Range("A2:B12000").ClearContents
.Range("A2").Resize(n, 2) = varCom
End With
dateiname = "Kommentare_"
dname = Format(Date, "YYYY_MM_DD")
aktpfad = ThisWorkbook.Path
pfad = aktpfad & "\Archiv\Kommentare\"
Worksheets("K").Copy
ActiveWorkbook.SaveAs pfad & dateiname & dname
ActiveWorkbook.Close
Worksheets("K").Visible = False
End Sub