[Excel]Kommentare - Abfrage möglich?

masterlooter · 13.04.2005

Hallo,

man kann in Excel auf Datei-Eigenschaften gehen, und dort dann die Dokuments-eigenschaften halt umstellen. Dort kann man auch einen Kommentar einfügen.

Gibt es irgendeine Möglichkeit, diese Kommentare zu filtern/abzufragen? Wir haben jetzt nämlich einen Ordner eingerichtet, indem rund 1000 Excel-Dateien drin liegen. Jetzt möchte ich beispielsweise alle 1000 Excel-Dateien nach dem Suchbegriff Projekt Schulung 2005 durchsuchen, und zwar im Kommentar des Dokuments.

Ich hoffe ihr versteht mein Anliegen.

Wäre dankbar für eine Antwort.

Matjes · 13.04.2005

für die aktuelle Arbeitsmappe per Makro so:

Code:

Sub AktArbeitsmappe_EigenschaftKommentarAuslesen()
  Dim wb As Workbook, s_tmp As String
  
  Set wb = ActiveWorkbook
  
  If EigenschaftKommentarAuslesenUndStringSuchen( _
      wb, Projekt Schulung 2005) Then
    MsgBox ('Projekt Schulung 2005' im Kommentar enthalten.)
  Else
    MsgBox ('Projekt Schulung 2005' nicht im Kommentar enthalten.)
  End If
  
 Set wb = Nothing
End Sub
Function EigenschaftKommentarAuslesenUndStringSuchen( _
          wb As Workbook, s_Such As String) As Boolean
 ->liefer True wenn Suchbegriff im EigenschaftsKommentar
  Dim s_tmp As String
  
  s_tmp = wb.BuiltinDocumentProperties(Comments).Value
  If 0 &lt; InStr(1, s_tmp, s_Such) Then
    EigenschaftKommentarAuslesenUndStringSuchen = True
  Else
    EigenschaftKommentarAuslesenUndStringSuchen = False
  End If
End Function

Das müßte man so über alle Arbeitsmappen erweitern:
- Arbeitsmappen öffnen
- der Kommentar abgefragt wird,
- das Abfrage-Ergebnis irgendwo speichern
- Arbeitsmappe schliessen

Gruß Matjes

[Excel]Kommentare - Abfrage möglich?

masterlooter

Matjes

[Excel]Kommentare - Abfrage möglich?

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums