Hallo zusammen
Ich habe ein Makro, das Daten aus einem Textfile ausliest.
Soweit funktioniert das eigentlich ganz gut, zumindest mit den ersten Testdaten.
Nun kann es sein, dass die einzufügenden Daten mal mehr, mal weniger Zeilen lang sind.
Also möchte ich vor dem Einfügen den gesamten Inhalt des Blattes löschen, was ja auch kein Problem ist.
Sobald ich aber den Inhalt lösche und danach die Daten einfügen möchte, erhalte ich die Fehlermeldung: Run-time error 1004, PasteSpecial method of Range class failed.
Die Zeilen, mit welchen ich den Inhalt lösche sind wie folgt:
Cells.Select
Selection.Clear
Danach möchte ich mit folgendem Code die Daten einfügen:
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Bei diesem Einfügen kommt dann die erwähnte Fehlermeldung.
Wenn ich den folgenden Code aber ohne die beiden Zeilen zum Löschen des Blattinhaltes laufen lasse, funktioniert's.
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("VDF_Mutations_Statistik_Basis.xlsx").Activate
Sheets("VDF_Temp20").Select
Cells.Select
Selection.Clear
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("VDF_Temp20").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add Key:=Range( _
"X1:X349"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("VDF_Temp20").Sort
.SetRange Range("T1:AE349")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Kann mir jemand sagen, was da falsch ist?
Bin euch für eure Hilfe sehr dankbar!
Gruss Rolf