Euro-Betrag nur als - anzeigen lassen...
04.09.2004 18:06:33
tobstein
ich habe folgendes Problem:
Ich habe eine Datei, die sich aus mehreren anderen Dateien Werte holt.
Mit einem Makro erstelle ich aus der Datei dann eine neue Datei, die ich z.B. als PDF-Dokument veröffentliche.
In der Ursprungsdatei gibt es eine Spalte mit Euro-Werten. Ist dort kein Wert enthalten...ist die Anzeige - .
Nach dem ich die neue Datei mit dem Makro erstellt habe, steht dort aber bei allen Einträgen ohne einen Wert 0,00 . Ich möchte aber, dass dort auch nur - steht.
Was muss ich am Makro ändern?
Es handelt sich um die Spalte F, Zellen F12 bis F57.
Vielen Dank für eure Hilfe
Tobias
Sub CopyRangfolge()
Dim rngA As Range, rngB As Range
Dim sFile As String, sPath As String
sPath = ThisWorkbook.Path & "/rangfolge.xls"
Set rngA = ActiveSheet.Range("A1:L57")
sFile = Dir(sPath)
If sFile = "" Then
Workbooks.Add
Else
Workbooks.Open sPath
End If
rngA.copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats
Columns("A:A").ColumnWidth = 5.43
Columns("B:B").ColumnWidth = 5.71
Columns("C:C").ColumnWidth = 5.86
Columns("D:D").ColumnWidth = 24.71
Columns("E:E").ColumnWidth = 9
Columns("F:F").ColumnWidth = 9
Columns("G:G").ColumnWidth = 7.71
Columns("H:H").ColumnWidth = 9.29
Columns("I:I").ColumnWidth = 11
Columns("J:J").ColumnWidth = 9.14
Columns("K:K").ColumnWidth = 8.29
Columns("L:L").ColumnWidth = 10
Range("C:C").Select
Selection.NumberFormat = "0"
Range("E12:E57").Select
Selection.NumberFormat = "#,##0.00 [$-407]"
Range("F12:F57").Select
Selection.NumberFormat = "#,##0.00 [$-407]"
Range("A10:A57").Select
Selection.NumberFormat = """(""0"")"""
Application.DisplayAlerts = False
Sheets(Array("Tabelle2", "Tabelle3")).Select
Sheets("Tabelle3").Activate
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.SaveAs sPath
Application.DisplayAlerts = True
End Sub