Makro funktioniert auf Excel 2010 nicht mehr
Benni
seit dem Wechsel von Excel 2000 auf 2010 funktioniert mein Makro nicht mehr. Mit diesem Makro werden alle txt-Dateien in Excel importiert. Beim debuggen wird die letzte Zeile markiert:
ActiveWorkbook.Worksheets(1).Move Before:=wbkZiel.Worksheets(1)
Kann mir jemand von Euch helfen?
Hier noch das ganze Makro:
Sub DateiMehrfachAuswahl()
Dim vntPathAndFileNames As Variant
Dim lngI As Long
Dim wbkZiel As Workbook
Set wbkZiel = ActiveWorkbook
'Importfunktion
vntPathAndFileNames = Application.GetOpenFilename( _
fileFilter:="Text Files (*.txt), *.txt", _
Title:="Bitte wählen Sie die zu ladende Datei/en aus!", _
MultiSelect:=True)
If VarType(vntPathAndFileNames) = vbBoolean Then
MsgBox "Sie haben abgebrochen."
Else
For lngI = 1 To UBound(vntPathAndFileNames)
Workbooks.OpenText Filename:=vntPathAndFileNames(lngI), _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
DecimalSeparator:=".", _
ThousandsSeparator:="," 'Dezimaltrennzeichen von Punkt in Komma geändert
ActiveWorkbook.Worksheets(1).Move Before:=wbkZiel.Worksheets(1)
Next
End If
End Sub