Fehler im
02.01.2004 11:49:59
Thomas M
Frohes neues Jahr erstmal ;)
Das Problem welches ich hab ist folgendes:
Immer wenn ich den Quellcode ausführen will (per button in tabelle1)
kommt eine Fehlermeldung 400. Er öfnet mir die Hilfe, aber dort steht nix.
Der Feher muss irgendwo in der Zeile Selection.Sort liegen,
denn markiert wird der Bereich.
Gruß,
Thomas
Option Explicit
Sub DateienAuflisten()
Dim wksErgebnis As Worksheet
Dim wksMeldung As Worksheet
Dim strArray(1 To 500) As String
Dim strVerzeichnis As String
Set wksErgebnis = ThisWorkbook.Sheets(1)
strVerzeichnis = Worksheets("Tabelle1").Range("A6").Value
Workbooks.Open strVerzeichnis
Set wksMeldung = ActiveWorkbook.Sheets(1)
wksMeldung.Range("A2:H481").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Workbooks("testdatei.xls").Close SaveChanges:=False
End Sub