Hallo Holger,
ich war mal in der Zwischenzeit tätig. Ich verwende jetzt eine ListBox. Zunächst filtere ich per RegulärExpressions aus einer von Quicken erzeugten Datei die vorhandenen Suchbegriffe in einer Datei "Kategorien.txt". Jetzt rufe ich die Suchfunktion Sub UserForm_Initialize() auf. Der zeit mache ich das noch von Hand.
In der UserForm_Initialize wird Datei "Kategorien.txt" in ein Sheet "Kategorien" eingelesen, ausschnittsweise:
Blattname = "Kategorien"
If Blatt_Vorhanden(Blattname) = False Then
Sheets.Add
With ActiveSheet
.Name = Blattname
End With
Datei_importieren ' Lesen Suchgegriffe in Sheet "Kategorien"
FormKategorie ' Formatiere das Sheet, Standard, Links (Einzug), optimale Spaltenbreite
Else
Sheets(Blattname).Select
End If
x = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
ListBox1.RowSource = "A1:A" & x
End Sub
Damit konnte ich das Problem vollständig lösen. Diese Lösung ist zwar vollständig von der zunächst Angedachten verschieden. Und sie gefällt mir besser.
Danke für Deinen Hinweis.
Gruß
Manni
|