über einen Öffnen Dialog lasse ich mir eine Textdatei in ein Excel Workbook umformatieren. Aus diesem Workbook möchte ich nun einige Daten kopieren und diese Workbook dann anhand eines Makros schliessen. Mein Problem ist nur, das mein Workbook abhängig vonm Dateiname unterschiedlich heisst. Wie kann ich im Makro später auf das geöffnete Workbook bezug nehmen. Habe schon mit Workbooks(Filename).Activate
oder Workbooks(Dateiname).Activate probiert,
hat aber nicht funktionier´t.
Hier mein Makro:
Sub Größenauswertung_öffnen()
'
On Error GoTo Errorhandler
Dateiname = Application.GetOpenFilename(filefilter:="Aus Files (*.aus), *.aus,Txt Files (*.txt), *.txt", Title:="Größenauswertung öffnen")
Workbooks.OpenText Filename:=Dateiname, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1)), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
Windows("Größenauswertung.xls").Activate
Range("B10:C5000").Select
Selection.ClearContents
Range("E18").Select
Windows(Dateiname).Activate
ActiveWindow.SmallScroll Down:=-66
Range("B2:B4992").Select
Selection.Copy
Windows("Größenauswertung.xls").Activate
Range("B10").Select
ActiveSheet.Paste
Range("C10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("C10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Windows(Dateiname).Activate
ActiveWindow.Close
Errorhandler:
End Sub
Wer kann mir helfen?
Danke
Timo