alphabetische Sortierung ausschalten mit vba :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2000] alphabetische Sortierung ausschalten mit vba

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 23.02.2008, 16:22

Hallo Forum

Ich möchte in einem Makro die Dateien eines Odners in einer Userform in einem Listenfeld anzeigen.
Das klappt soweit auch. Ich möchte jedoch den User wählen lassen zwischen alpabetischer Sortierung der Dateien und einer Sortierung nach dem Datum der Datei.
Laut offiziellen Hinweisen von Microsoft [url]http://msdn2.microsoft.com/en-us/library/aa142035(office.10).aspx[/url] funktioniert das mit der .execute Anweisung.

Code:

.Execute(SortBy:=msoSortByLastModified, _
SortOrder:=msoSortOrderDescending)

Leider wird die Sortierung nach Datum ignoriert. Woran das liegt, weiss ich auch nicht.
Hier mein Skript:
frmÄD.lstStellungnahmen ist die Liste
optaplhabet der optionsbutton, der wenn er aktiviert ist, für eine alphabetische Sortierung sorgen soll, wenn nicht für Sortierung nach Datum

Code:

frmÄD.lstStellungnahmen.Clear
With Application.FileSearch
.NewSearch
.LookIn = ordner$

If optalphabet.Value = True Then
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
frmÄD.lstStellungnahmen.AddItem Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len(ordner$))
Next i
Else
End If
Else

If .Execute(SortBy:=msoSortByLastModified, _
SortOrder:=msoSortOrderDescending) > 0 Then

For i = 1 To .FoundFiles.Count
frmÄD.lstStellungnahmen.AddItem Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len(ordner$))
Next i
Else
MsgBox "Es sind keine Dateien vorhanden."
End If
End If
End With

Das Komische ist, dass es zwischendurch funktioniert hat, nach einem Neustart von Word aber auf einmal wieder nicht (ich hatte alles gespeichert). Ich bin ziemlich sicher,d dass der Code richtig ist. Weiß jemand, woran es liegen kann ?

PS: Gibt es eine Möglichkeit, die Liste mit Icons anzuzeigen, also bei *.doc Dateien das dazgehörige Word. Icon ?

Evil or Very Mad

_________________
Chakko

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Auto Sortierung	Busta	Microsoft Excel Hilfe	0	19.11.2008, 14:55
	pivottabelle sortierung	jean.tigano	Microsoft Excel Hilfe	3	31.10.2008, 15:41
	HILFE Komplexe Tabelle mit Abfrage So...	adamsfamilie	Microsoft Excel Hilfe	2	28.10.2008, 16:07
	Sortierung mehrerer Spalten / Zeilen	DarkMo	Microsoft Excel Hilfe	4	10.09.2008, 12:59
	Sortierung von Nicht-zusammenhängende...	Gomorra	Microsoft Excel Hilfe	2	04.09.2008, 15:08

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de