' beinhaltet alle Zeilen des Listenfeldes mit CRLF getrennt Dim sAllRows As String ' eine Zeile, Spalten durch Tab getrennt Dim sSingleRow As String Listenfeld1.SetFocus ' Ab Zeile 1, da 0 = Spaltenüberschriften For row = 1 To Listenfeld1.ListCount - 1 sSingleRow = "" ' alle Spalten For col = 0 To Listenfeld1.ColumnCount - 1 If sSingleRow = "" Then sSingleRow = Listenfeld1.Column(col, row) Else ' Spalten durch Tab trennen sSingleRow = sSingleRow & vbTab & Listenfeld1.Column(col, row) End If Next col If sAllRows = "" Then sAllRows = sSingleRow Else ' Zeilen durch CRLF trennen sAllRows = sAllRows & vbNewLine & sSingleRow End If Next row
Kategorien
-
Neueste Beiträge
- [SAP Gateway] Implementierung einer OData-Services basierend auf CDS-Views (SADL + Annotationen)
- [SAP Fiori] Implementierung einer einfachen SAP-Fiori-Anwendung mit Hilfe von SAP UI5 und OData (CRUD)
- [ABAP] Ermittlung der Anmeldedaten incl. des Rechnernamens
- [ABAP] Doppel-Backslash in String ersetzen
- [ABAP] ABAP-Mathematik Bibliothek (cl_abap_math)
- [ABAP] Prüfen, ob Pfad auf dem Applikationsserver existiert
- [ABAP] DMS: Dokumenteninfosätze lesen (CVAPI_DOC_GETDETAIL)
- [ABAP] DMS: Dokumenteninfosätze löschen (BAPI_DOCUMENT_DELETE_DIRECT)
- [ABAP] DMS: Dateien von Dokumenteninfosätzen lesen (SCMS_DOC_READ)
- [ABAP] DMS: Verknüpfte Dokumenteninfosätze zu einem Objekt lesen (BAPI_DOCUMENT_GETOBJECTDOCS)