Formatierungsproblem
03.02.2009 21:12:19
Claudia
ich habe ein vermutlich kleines Problem:
Ich füge bestimmte Zellinhalte in eine Mail ein. Das klappt auch bestens. Allerdings habe ich ein Fortmatierungsproblem:
In Excel sieht der Inhalt der Zelle in der Bearbeitungszeile so aus: 27,9441870488094
Die Zelle selbst zeigt jedoch die gewünschten 27,94 ein.
Kopiere ich nun den Inhalt in eine Mail, so steht wieder die lange Zahl.
Was muss ich machen, dass auch in der Mail nur die 27,94 ankommen. Folgenden Code benutze ich:
Sub SendList()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim iRow As Integer
Dim sRec As String, s
Sub As String, sBody As String
iRow = 2
Set oOL = CreateObject("Outlook.Application")
Do Until IsEmpty(Cells(iRow, 12))
sRec = Cells(iRow, 12).Value
s
Sub = Range("A1").Value
's
Sub = Cells(iRow, 2).Value
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
.body = "Hallo," & vbCrLf & "nachfolgend die " & Range("A1").Value & vbCrLf & vbCrLf & _
_
_
"Ø eigener" & vbCrLf & Cells(iRow, 11).Value & vbCrLf & vbCrLf & _
"Ø Gruppe" & vbCrLf & Range("K16").Value & vbCrLf & vbCrLf & "Viele Grüße" & vbCrLf & " _
_
Claudia"
.Send
oOLRecip.Resolve
End With
iRow = iRow + 1
Loop
Set oOL = Nothing
End Sub
Vielen Dank!
Viele Grüße
Claudia