|
| |

VB.NET - Fortgeschrittene| Re: mit VB.NET in Excel sortieren | |  | | Autor: WeEf | | Datum: 15.05.04 17:18 |
| Hallo DorisM,
habe doch noch ein Problem, das ich aber später erst gemerkt hat:
Ich habe probeweise Lotto-Gewinntabellen sortiert, die Sortierung stimmt aber manchmal nicht genau.
Der folgende Code
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
xlSheet.Cells.Font.Bold = True
For x = 1 To k
xlSheet.Cells(x, 1) = Gewinn6(x)
xlSheet.Cells(x, 2) = Gewinn5Z(x)
xlSheet.Cells(x, 3) = Gewinn5(x)
xlSheet.Cells(x, 4) = Gewinn4Z(x)
xlSheet.Cells(x, 5) = Gewinn4(x)
xlSheet.Cells(x, 6) = Gewinn3Z(x)
xlSheet.Cells(x, 7) = Gewinn3(x)
xlSheet.Cells(x, 8) = Quote(x)
Prozent(x) = Quote(x) / Zahlenreihen
xlSheet.Cells(x, 9) = Format(Prozent(x), "##0.0000 %")
Next
Dim xlRange As Excel.Range = xlSheet.UsedRange
Dim xlKey As Excel.Range = xlSheet.Range("A1")
xlRange.Sort(xlKey, Excel.XlSortOrder.xlDescending, , , , , , , , , Excel.XlSortOrientation.xlSortColumns)
xlSheet.Application.Visible = True
sortiert wie folgt:
1 0 0 0 0 30
0 1 0 0 9 21
0 0 1 4 5 15
0 0 0 5 10 10
0 0 1 3 6 18
0 0 0 4 8 16
Hier müßte aber die 5. vor der 4. Reihe stehen
Hast Du hierfür auch noch eine Lösung für einen Anfänger?
Viele Grüsse
WeEf |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|