Makro verbessern
Sascha
Bei dem Makro unten habt ihr mir schon mal geholfen es fügt aus einer TXT Datei daten in Excel ein.
Das einfügen Funktioniert auch Super nur dann kommt immer eine MessageBox
ABBRUCH
Bitte Daten eingeben !
Kann man das ändern das die Meldung nur kommt wenn ein fehler entsteht oder ganz rausnehmen.
Danke schon mal und Grüsse
Sascha
Option Explicit
Sub import202TXTauto()
Dim strFile As String
Dim lngRow As Long
On Error GoTo ErrExit
strFile = Sheets("Berechnungsgrundlagen").Range("E11")
If strFile = CStr(False) Then GoTo ErrExit
With Application
.EnableEvents = False
.DisplayAlerts = False
End With
With Sheets("Import 202")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
With .QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=.Cells(lngRow, 1))
.Name = Left(strFile, Len(strFile) - 3)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 9, 1, 9, 1, 9, 1, 9, 1, 9, 5, 9)
.TextFileFixedColumnWidths = Array(3, 9, 4, 4, 4, 9, 6, 1, 6, 38, 8)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
.Columns("A:E").AutoFit
End With
ErrExit:
With Err
If .Number 0 Then MsgBox "Fehler " & .Number & vbLf & vbLf & _
.Description & vbLf & vbLf & "In Prozedur (import202TXTauto) in Modul", _
vbExclamation, "Fehler in Modul / import202TXTauto"
End With
With Application
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub