Sprungmarke im Fehlerfall...
01.06.2004 09:22:50
Torstenb
Da in sich in dieser Datei aber nicht die wichtigsten Informationen befinden kann ich notfalls im oben genannten Fall drauf verzichten. Hauptsache das Makro läuft dann trotzdem weiter.
In einem der beiden Fehlerfälle soll einfach an eine andere Stelle dahinter gesprungen werden.
Hier die entsprechende Stelle aus dem Makro:
'*******************************************************************'
' Importvorgang:
'*******************************************************************'
Application.DisplayAlerts = False
ChDir "X:\"
Workbooks.OpenText Filename:="X:\Täglich.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1))
'******************************************************************'
' Letzten 96 Zeilen markieren
'******************************************************************'
Sheets("Täglich").Activate
Range("A65536").End(xlUp).Select
Range(Selection, _
ActiveCell.Offset(-95, 0)).EntireRow.Select
Selection.Copy
Sheets.Add
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "letzter Tag"
Selection.Insert Shift:=xlDown
Range("A1").Select
'******************************************************************'
' Ab hier werden dann nur die benötigten Werte rauskopiert
'******************************************************************'
Danke schon mal im voraus!!!