Microsoft Excel

Herbers Excel/VBA-Archiv

Euro-Betrag nur als - € anzeigen lassen...

Betrifft: Euro-Betrag nur als - € anzeigen lassen... von: tobstein
Geschrieben am: 04.09.2004 18:06:33

Hallo,
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

  


Betrifft: AW: Euro-Betrag nur als - € anzeigen lassen... von: Tino
Geschrieben am: 04.09.2004 20:14:34

ich benutze eine engl. version:

Selection.Style = "Currency"

falls das bei der deutschen version nicht funktioniert, probier mal:

Selection.NumberFormat = "_-* #,##0.00 [$€-407]_-;-* #,##0.00 [$€-407]_-;_-* ""-""?? [$€-407]_-;_-@_-"

tino


 

Beiträge aus den Excel-Beispielen zum Thema "Euro-Betrag nur als - € anzeigen lassen..."