Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Format-Funktion - Leerzeichen vor Zahl?

Format-Funktion - Leerzeichen vor Zahl?
15.02.2003 16:56:39
Hansruedi
Hallo

ich schreibe mittels "Print #1, Format(Variable, "#####0.000")" einzelne Variabeln in eine Textdatei. Leider funktioniert die Formatierung nicht so wie ich es erwarte.
Ziel ist es dass bei Zahlen mit weniger als 6 Vorkommastellen diese mit Leerzeichen aufgeüllt werden. Wie erreiche ich dies?

Gruss und Dank
Hansruedi

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Format-Funktion - Leerzeichen vor Zahl?
15.02.2003 17:08:49
Ramses

Hallo Hans Ruedi,

If Len(Variable) <= 5 Then
Select Case Len(Int(Variable))
Case 1
Variable = "00000" & Variable
Case 2
Variable = "0000" & Variable
Case 3
Variable = "000" & Variable
Case 4
Variable = "00" & Variable
Case 5
Variable = "0" & Variable
End Select
End If
Print #1 Variable

Gruss Rainer


Re: Format-Funktion - Leerzeichen vor Zahl?
15.02.2003 17:08:50
Ramses

Hallo Hans Ruedi,

If Len(Variable) <= 5 Then
Select Case Len(Int(Variable))
Case 1
Variable = "00000" & Variable
Case 2
Variable = "0000" & Variable
Case 3
Variable = "000" & Variable
Case 4
Variable = "00" & Variable
Case 5
Variable = "0" & Variable
End Select
End If
Print #1 Variable

Gruss Rainer


Anzeige
...nicht ganz das was ich meinte
15.02.2003 17:39:07
Hansruedi

Hallo Rainer

da hast du mich leider falsch verstanden.

Die in die Datei zu schreibenden Variabeln sind Fliesskommazahlen mit unbestimmten Nachkommastellen (z.B. 452.1252, 652632.432).

In der Textdatei sollte es nun wie folgt ausshen:

   452.125
652632.432
 45554.253

...und so sieht es leider aus:

452.125
652632.432
45554.253

Gruss und Dank
Hansruedi



Re: ...nicht ganz das was ich meinte
15.02.2003 17:56:30
Ramses

Hallo Herbert,

Du kannst die "0" durch Leerzeichen ersetzen, aber mehr ist nicht machbar, weil die CSV keine Tabulatoren mit Dezimalausrichtung untertützen.
Aber auch Leerzeichen sind Formatabhängig, eine genaue Ausrichtung wirst du nicht erreichen.

Gruss Rainer

Anzeige
Re: ...nicht ganz das was ich meinte
15.02.2003 17:56:30
Ramses

Hallo Herbert,

Du kannst die "0" durch Leerzeichen ersetzen, aber mehr ist nicht machbar, weil die CSV keine Tabulatoren mit Dezimalausrichtung untertützen.
Aber auch Leerzeichen sind Formatabhängig, eine genaue Ausrichtung wirst du nicht erreichen.

Gruss Rainer

Re: ...nicht ganz das was ich meinte
15.02.2003 17:56:31
Ramses

Hallo Herbert,

Du kannst die "0" durch Leerzeichen ersetzen, aber mehr ist nicht machbar, weil die CSV keine Tabulatoren mit Dezimalausrichtung untertützen.
Aber auch Leerzeichen sind Formatabhängig, eine genaue Ausrichtung wirst du nicht erreichen.

Gruss Rainer

Re: ...nicht ganz das was ich meinte
16.02.2003 17:23:08
Hansruedi

Danke

Hab es jetzt mit folgender Funktion gelösst:

Function Formatxy(dblZahl As Double, x As Integer, y As Integer) As String
Dim strZahl As String
Dim strFormat As String
strFormat = String(x - 1, "#") & "0." & String(y, "0")
strZahl = Format(dblZahl, strFormat)
Formatxy = Space((x + y + 1) - Len(strZahl)) & strZahl
End Function

Gruss
Hansruedi

Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige