Kommentare auslesen, aber GEFILTERT
22.08.2003 12:25:31
Hannes
Ich moechte Kommentare auslesen und daneben in eine Spalte eintragen.
das geht gut mit
Sub KommentareAusgeben()
Dim Bereich As Range
Dim notiz As Comment
'auslesen von Spalte I nach Spalte J
Set Bereich = Sheets("Sheet1").Range("I100:I146")
i = 100
For Each notiz In ActiveSheet.Comments
Sheets("Sheet1").Cells(i, 10).Value = notiz.Text i = i + 1
Next notiz
End Sub
ABER: Das Kommentar enthaelt durchwegs folgende Angaben
NAME
NCH 12345 (das sind immer verschiedenen Nummern)
23/04/98 (Datum)
Ich moechte jetzt nur das DATUM ausgelesen bekommen, ist das moeglich?
VIELEN DANK FUER EURE RATSCHLAEGE!!!
Hannes