Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortierung

Sortierung
06.08.2002 16:17:57
Kurt
Hallo,
das Programm sollte nur die Berechnungsergebisse anzeigen
die 6 bis 12 stellen haben.
Bsp. 123456 =6, Bsp. 1234516=7, usw.
Wer kann mir dabei helfen?


Sub Zahlen()


ActiveSheet.Cells.NumberFormat = Chr(64)

xFactor = CDec("41216263440")

For xi = 1000639999 To 1000654998
xFactor = CDec("41216263440")
xZiffern = CStr(CDec(xi) * xFactor)

xRow = xRow + 1
ActiveSheet.Cells(xRow, 5).Value = xZiffern

xZiffern = CStr((CDec(xi) / xFactor) * CDec("100000000000000"))

ActiveSheet.Cells(xRow, 7).Value = xZiffern

Next

End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sortierung
07.08.2002 07:10:02
Harald Kapp
Hallo Kurt,
mit len(xZiffern) kannst Du die Stringlänge von xZiffern abfragen und auf >=6 bzw <=12 vergleichen.

Gruß harald

Re: Sortierung
07.08.2002 07:46:01
Kurt
Hallo Harald,
hast Du vielleicht einen Vorschlag wie das Programm dann aussehen
würde, bevor ich jetzt in die Experimentphase gehe.
VBA ist bei noch im Anfangsstadium.
Dieses Programm habe ich aus einem größeren so zusammengestellt.
Gruß Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige