Sub Hochzaehlen()
Dim I As Integer
Do While Range("A3").Value "0"
Range("H1").Value = Range("H1").Value + 1
I = I + 1
Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(o)
.Subject = Worksheets("Tabelle1").Range("B1")
.To = Sheets("Tabelle1").Range("H2")
.Body = Sheets("Tabelle1").Value("A3") & Chr(13) & Sheets("Tabelle1").Range("A5") & _
_
Chr(13) & Sheets("Tabelle1").Range("A20") & Chr(13) & Sheets("Tabelle1").Range("A21") & Chr(13) _
& Sheets("Tabelle1").Range("A26") & Chr(13) & Sheets("Tabelle1").Range("A30")
'.Send
.Display
End With
If Range("A3").Value = "0" Then Exit Do
Range("H1").Value = I
Loop
End Sub
Das Problem dabei ist, daß z.B. der Zellwert A3 durch eine Formel hinterlegt ist. Dadurch wird in der Email der Wert "0" ausgegeben, statt die Anrede. Wie kann ich VBA dazu nötigen, den Text der Zelle auszugeben, statt den Wert "0"?