Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
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

Ergebnis Filtern VBA

Ergebnis Filtern VBA
07.08.2002 12:05:31
Kurt
Hallo,
bei der Berechnung von Tabellendaten in VBA sollen nur Ergebnisse
angezeigt werden die 6 bis 12 stellen haben.
Geht das mit len(xZiffern) und wie sieht die Programmzeile aus.
Gruß Kurt

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

Betreff
Datum
Anwender
Anzeige
Re: Ergebnis Filtern VBA
07.08.2002 12:10:27
Dieter
Hallo Kurt,

warum nimmst Du nicht einfach einen Vergleich?

if ((xZiffern >=100000) and (xZiffern<=999999999999)) then ...

Gruß
Dieter

Re: Ergebnis Filtern VBA
07.08.2002 12:29:31
Kurt
Hallo Dieter,
ich habe nun die Zeile ins Programm eingebunden aber das
Ergebnis liegt noch über 6-12 stellen.
Oder habe ich da einen Fehler drin?
Gruß Kurt
Sub Zahlen()


ActiveSheet.Cells.NumberFormat = Chr(64)

xFactor = CDec("41216263440")

Dim xCol&
xCol = 135


For xi = 1014975985 To 1015999984

If xRow > Rows.Count Then
xRow = 1
xCol = xCol + 1
End If
xFactor = CDec("41216263440")
xZiffern = CStr(CDec(xi) * xFactor)
If ((xZiffern >= 100000) And (xZiffern <= 999999999999#)) Then

End If

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

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

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

Next

End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige