Entschuldigung, hier ist er:
Sub Datenfeld_in_Währung_formatieren()
'
' Datenfeld_in_Währung_formatieren Makro
' Ein aus einer CSV-Datei übernommenes Feld in rechenbare Währung umsetzen
'
'
Range("E6").Select
ActiveCell.Replace What:="EUR", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="EUR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("E6").Select
Selection.NumberFormat = "#,##0.000 $;[Red]-#,##0.000 $"
End Sub
|