Zellwert als Text ausgeben

Ich möchte einen Serienbrief mit Excel und VBA erstellen. Hierbei habe ich folgende Formel generiert, die soweit auch funktioniert:

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"?

Hallo zusammen,
in beiden Codeschnipseln ist die Zuweisung von Werten zu H1 doppelt gemoppelt: einmal wird der Wert direkt erhöht (Range("H1").Value = Range("H1").Value + 1), einmal wird ihm die um 1 erhöhte Variable I zugewiesen.
Ich finde, einmal reicht, und zwar an geeigneter Stelle - dann kann man letztlich auf das I völlig verzichten.
Mir stößt der Kopf der Schleife auf: hier wird eine Abfrage vorgenommen, *ohne* daß in H1 ein definierter ("bekannter") Wert ist: da kann schlimmstenfalls vom vorhergehenden Aufruf (des Makros) sonstwas drinstehen. A3 ist ja schließlich abhängig von H1.
Hier eine Variante, die beide Sachen ausbügelt:


Option Explicit
Sub Hochzaehlen()
Dim Mail_Object As Object
Range("H1").Value = 1
Do While Range("A3").Value  "0"
Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(0)
.Subject = Worksheets("Tabelle1").Range("B1")
.To = Sheets("Tabelle1").Range("H2")
.Body = Sheets("Tabelle1").Range("A3").Text & 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
Range("H1").Value = Range("H1").Value + 1
Loop
End Sub

Frrränkische Grüße,
Michael
P.S.: Du wirst kaum Geschwindigkeitsprobleme haben, aber ich bevorzuge es, so wenig Zugriffe wie möglich auf die Daten zu machen. D.h., die Litanei von Verweisen in A3 könnte man durch einen einzigen ersetzen und in VBA das Herr/Frau/Fräulein mit einer übersichtlichen Select/Case erledigen. Geschmackssache.

Forumthread: Zellwert als Text ausgeben

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial