Kommentare aulesen in Tabelle

Sub KommentareDokumentieren() Dim Kom As Comment Dim i As Integer On Error Resume Next i = 1 For Each Kom In Tabelle1.Comments ' Split(ZellenText, Chr(10), 3) i = i + 1 Tabelle2.Cells(i, 3) = Right(Kom.Text, 26) Tabelle2.Cells(i, 2) = Split(Kom.Text, " ", 3) Tabelle2.Cells(i, 1) = Kom.Parent.Address Next Columns("A:C").AutoFit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1") Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle2") Dim Co As Comment Dim arrLines Dim Name As String, Datum As String, Zeit As String, Wert As String Dim i As Long For Each Co In WsQ.Comments With Co arrLines = Split(.Text, Chr(10)) For i = LBound(arrLines) To UBound(arrLines) If Not arrLines(i) = "" Then Name = Mid(arrLines(i), 1, InStr(1, arrLines(i), ".") - 3) Datum = Mid(arrLines(i), InStr(1, arrLines(i), ".") - 2, 10) Zeit = Mid(arrLines(i), InStrRev(arrLines(i), "/") + 1, 8) Wert = Right(arrLines(i), Len(arrLines(i)) _ - InStrRev(arrLines(i), " ")) With WsZ .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Name .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Datum .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Zeit .Cells(.Rows.Count, 4).End(xlUp).Offset(1, 0).Value = Wert End With End If Next i End With Erase arrLines Next Co End Sub

Luc,
...aber ebenso bekannt ist, dass es nicht immer leicht ist, gewünschte Lösungen aus dem Archiv auszuheben. Da würd's dann natürlich helfen, wenn Dein fix-fertiger-Link früher kommt, als 2 Stunden nach einem Beitrag, der eine neuerliche Lösungsvariante vorstellt - ein richtiges Win-Win-Win-Szenario wäre das dann; aber selbst so gibt's schlimmstenfalls eine weitere Lösung im Archiv - so what?
Ich bin ja grds. auch ein Fan von Archiven, habe aber mittlerweile auch festgestellt, dass a) es eben für viele (eher punktuelle, weniger versierte) FragestellerInnen oft mühsamer ist, auf Herber-Archiv-Pirsch zu gehen, als einfach drauf zu hoffen, dass einem der vielen versierten Helfer hier doch gerade langweilig ist und er/sie dann in wenigen Minuten einen (mehr oder weniger) trivialen Code runterschreibt und b) ich noch dazu die Vermutung habe, dass sich etliche HelferInnen hier (wie in ähnlichen Foren generell), und ich beziehe das durchaus auch auf mich, nicht primär mit der Intention tummeln, ein möglichst umfassendes Archiv zu füllen, sondern sich selbst mit der Beantwortung von Fragen die Zeit zu vertreiben und/oder eigenes Wissen aufzupolieren, erhalten etc. Zudem bezweifle ich, dass es die berufliche Excel-Praxis eines/einer jeden erfordert, stets auf komplexe Universallösungen zu setzen - sometimes you just need to get sh*t done, oder?
Wie auch immer... nachdem Du ja jetzt noch Deinen Link untergebracht hast, kann sich Andi ja dann entscheiden, welche Richtung er einschlägt.
My two cents!
Schönen Abend
Michael

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread