Tabelle sortieren

Tabelle sortieren

Hi,

ich hoffe Ihr könnt mir helfen. Soll eine Excel Tabelle einlesen in SAP, dass mach ich auch, aber es soll auch gleichzeitig die Möglichkeit geben die Tabelle sortieren (selektieren) zu können. Praktisch gibt jemand ein, ich möchte nur die Zeilen sehen wo das bsw. Datum Fehlt oder ich möchte nur Daten vom 20.05.2006 bis 01.01.2007 sehen und dann wird das so sortiert gleich in einer Tabelle ausgegeben. Datum war nur ein Beispiel sollte auch mit Namen etc. gehen. Habe keine so rechte Ahnung wie ich das Anstellen soll, vielleicht kann mir da jemand einen Tipp geben. Programm sieht wie folgt aus:

*Data Declaration
*----------------
data: itab like alsmex_tabline occurs 0 with header line.
* Has the following format:
* Row number | Colum Number | Value
* ---------------------------------------
* i.e. 1 1 Name1
* 2 1 Joe

TYPES: Begin of t_record,
name1 like itab-value,
name2 like itab-value,
age like itab-value,
age2 like itab-value,
End of t_record.
DATA: it_record type standard table of t_record initial size 0,
wa_record type t_record.
DATA: gd_currentrow type i.

*Selection Screen Declaration
*----------------------------
SELECTION-SCREEN BEGIN OF BLOCK selektionsbild WITH FRAME TITLE text-100.
PARAMETER:
p_infile like rlgrap-filename.
SELECTION-SCREEN END OF BLOCK selektionsbild.

select-options: so_Datum for itab-value,
so_Name for itab-value.


************************************************************************
*START OF SELECTION
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
exporting
filename = p_infile
i_begin_col = '1'
i_begin_row = '2' "Do not require headings
i_end_col = '14'
i_end_row = '31'
tables
intern = itab
exceptions
inconsistent_parameters = 1
upload_ole = 2
others = 3.
if sy-subrc <> 0.
message e010(zz) with text-001. "Problem uploading Excel Spreadsheet
endif.

* Sort table by rows and colums
sort itab as text.

* Get first row retrieved
read table itab index 1.

* Set first row retrieved to current row
gd_currentrow = itab-row.

loop at itab.
* Reset values for next row
if itab-row ne gd_currentrow.
append wa_record to it_record.
clear wa_record.
gd_currentrow = itab-row.
endif.

case itab-col.
when '0001'. "First name
wa_record-name1 = itab-value.
when '0002'. "Surname
wa_record-name2 = itab-value.
when '0003'. "Age
wa_record-age = itab-value.
when '0004'. "Number
wa_record-age2 = itab-value.
endcase.
endloop.
append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD

* Display report data for illustration purposes
loop at it_record into wa_record.
write:/ sy-vline,
(10) wa_record-name1, sy-vline,
(10) wa_record-name2, sy-vline,
(10) wa_record-age, sy-vline,
(10) wa_record-age2, sy-vline.
endloop.

Gruß Chris