Re: Formatieren von Zahlen
10.10.2002 13:11:17
Peter
Nee, ein solches Makro existiert nicht. Unten die ganze betreffende Sub :
Vielen Dank für die Hilfe
Sub TradeDoku(j As Integer, i As Integer, Zustand As String, Optional EinstiegsMarke, Optional EinstiegsWert, Optional AusstiegsMarke, Optional AusstiegsWert)
'Sorgt für die Ausgabe im Sheet 'SystemAusgabe'
'Aktionsdatum Trade Richtung EinstiegsStopp EinstiegsWert Initial Stopp AusstiegsWert
Dim Datum As String
Dim Sh As String
Dim TabSheet As String
TabSheet = ActiveSheet.Name & "tab"
Datum = Sheets(TabSheet).Cells(i, 1).Value
Sh = "SystemAusgabe"
Sheets(Sh).Cells(j, 2).Value = Datum
If Zustand = "Neutral" Then
Zustand = "Glatt"
End If
If IsMissing(AusstiegsWert) Then
'Also Einstieg Zustand, EinstiegsMarke, EinstiegsWert, AusstiegsMarke Format(5459.4, "##,##0.00")
Sheets(Sh).Cells(j, 3).Value = Zustand
Sheets(Sh).Cells(j, 4).Value = Format(EinstiegsMarke, "##,##0.00")
Sheets(Sh).Cells(j, 5).Value = Format(EinstiegsWert, "##,##0.00")
Sheets(Sh).Cells(j, 6).Value = Format(AusstiegsMarke, "##,##0.00") 'Initial Stopp
End If
If Not IsMissing(AusstiegsWert) Then
'Also Ausstieg Zustand, AusstiegsWert, MaxDrawdown
Sheets(Sh).Cells(j, 3).Value = Format(Zustand, "##,##0.00")
Sheets(Sh).Cells(j, 7).Value = Format(AusstiegsWert, "##,##0.00")
Sheets(Sh).Cells(j, 8).Value = Format(MaxDrawdown, "##,##0.00")
Zustand = "Neutral"
End If
End Sub