Kommentare auslesen / zählen

Tom · 2005-06-20T08:52:58+00:00

Hallo, ich möchte gerne Kommentare auslesen bzw gleiche Kommentare zählen lassen. Siehe Bsp-Mappe https://www.herber.de/bbs/user/24011.xls Vielleicht hat jemand ne Lösung. Gruß und danke vorab Tom

@ Rolf: ich hab ihm wieder zu einfach gemacht, nicht wahr? ;o)
@ Tom: Danke für die Rückmeldung!
Gruss- Micha
PS: Tom noch was Wichtiges:
Rolfs Variante funzt nur in Verbindung mit meinem Code, wenn Deine Tabelle wirklich 1:1 so aufgebaut ist wie die Beispieltabelle! Bsp:Die unterschiedlichen Kommentarte müssen in der Reihenfolge Schule- Arbeiten- Fahrgelegenheit zum ersten mal auftauchen. Wenn Du z.B. in C1 "keine Fahrgelegenheit{Enter}" eintipplest, dann stimmt hinten die Zuordung nicht mehr. Außerdem gibts Probleme, wenn man sich bei einem Kommentar mal vertippelt hat ("keine Fahrgelegenheit" ohne Enter am Ende reicht schon)
Mein längerer Code verhindert das, indem er einfach jeden gefundenen Kommentar in die obere Spalte reinschreibt, ggf werden dann noch einige Spalten angefügt und die Reihenfolge geändert.
Kann aber wie gesagt sein, daß die "kurze" Variante da völlig ausreicht, weil Du z.B. die Kommentare per Makro reingeschrieben hast (vertippeln unmöglich) und in Zeile 2 die Kommentare in der Reihenfolge stehen bleiben.
PPS: ahso, Ausgabe = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(AusgabeBereich))
kannst Du löschen, war noch vom 1. Versuch. Sieht aber toll aus, was?

Hi Tom,
den Rest solltest Du angepasst kriegen.

Private Sub KommentareZählen()
Dim Kommentar As Comment   'Kommentar
Dim Kommentare() As String 'Feld, das alle bisher gefundenen Kommentare enthält
Dim Namen()                'Namen(1,1)=Name1
                           'Namen(2,1)=Name2
                           'Namen(1,2)=Anzahl der gefundenen 1. Kommentare von Name1
                           'Namen(1,3)=Anzahl der gefundenen 2. Kommentare von Name1
Dim Zeile As Long          'Index des Namens
Dim KommText As String     'Text des Kommentars
Dim i As Integer           'Zählvariabele
Dim k As Integer           'Zählvariabele
Dim Bereich As Range       'Bereich, in dem die Namen stehen

Set Bereich = Range("A2:A7") 'kriegts Du angepasst
Namen = Bereich
ReDim Kommentare(1)
For Each Kommentar In ActiveSheet.Comments
  Zeile = Kommentar.Parent.Row - Bereich.Row + 1 'Index ermitteln
  KommText = Kommentar.Text
  For i = 1 To UBound(Namen, 2) 'Prüfen, ob Kommentar schon vorhanden?
    If Kommentare(i) = KommText Then Exit For
  Next i
  If i > UBound(Namen, 2) Then 'wenn Kommentar nicht gefunden
    ReDim Preserve Kommentare(UBound(Kommentare) + 1) 'Felder erweitern
    ReDim Preserve Namen(1 To UBound(Namen, 1), 1 To UBound(Kommentare))
    Kommentare(UBound(Kommentare)) = KommText 'neuen Kommentar merken
  End If
  Namen(Zeile, i) = Namen(Zeile, i) + 1 'Anzahl Kommentar dieses Namens um 1 erhöhen
Next Kommentar
'Ausagbe
For i = 1 To UBound(Kommentare) - 1
  For k = 1 To UBound(Namen)
    MsgBox Namen(k, 1) & " hat " & Kommentare(i + 1) & ": " & Namen(k, i + 1)
Next k, i
Set Bereich = Nothing
End Sub

Gruss- Micha
PS: Rückmeldung wäre nett.

Forumthread: Kommentare auslesen / zählen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Kommentare auslesen und zählen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)