Sub makro()
Dim fn
Dim arbeitsmappe As String
Dim datei As String
fn = Application.GetOpenFilename(FileFilter:="Textdateien,*.txt", Title:="Bitte Datei auswählen")
Application.ScreenUpdating = False
arbeitsmappe = ActiveWorkbook.Name
If fn = False Then
MsgBox "Benutzerabbruch"
Exit Sub
Else
Workbooks.Open fn
Workbooks.OpenText Filename:= _
fn _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
, DecimalSeparator:=".", ThousandsSeparator:=" "
Range("A:A").Copy Workbooks(arbeitsmappe).ActiveSheet.Range("iv1").End(xlToLeft).Offset(0, 0)
ActiveWorkbook.Close False
End If
Application.ScreenUpdating = True
End Sub
das makro funktioniert eigentlich, aber ich bekomme immer eine fehlermeldung, wenn ich excel neu starte und anschließend das makro zum ersten mal aufrufe. beim zweiten aufruf klappt dann alles wieder.
(fehlermeldung: index außerhalb des gültigen bereichs)
folgender befehl wird dann gekennzeichnet:
Range("A:A").Copy Workbooks(arbeitsmappe).ActiveSheet.Range("iv1").End(xlToLeft).Offset(0, 0)
kann mir jemand weiterhelfen?