Bug bei Button E-mail generieren

Computer: Software & Programmierung Visual Basic
#1

Hallo,

kann mir jemand helfen?
Ich bin aus der Programmierung draussen und müsste etwas schneller fixen.

Der folgende Makro des Excelsheets hat einen Fehler:

If str „J1:S1,“ Then 'Wenn der String Vorgänge enthält…
str = Left(str, Len(str) - 1) 'letzte „,“ in str bereinigen
Worksheets(„Auswertung“).Activate
Application.ScreenUpdating = False
Set rng = Range(str) 'Range-Objekt erzeugen für Rangetohtml
Call MailBodyDialog(rng) 'Mail erzeugen in MailBodyDialog- Übergabe von rng und den Name aus der 1. markierten Zeile
End If

Der Fehler taucht bei: Set rng = Range(str) '… auf.

Reicht Euch dieser Code zum Fixen oder braucht ihr auch den Range (rng) teil?

Danke
Erich

#2

Hallo Erich.

Nein, das reicht nicht wirklich. Man müsste wissen, welchen Wert die Variable „str“ hat, damit die Bedingung zum Ausführen des If-Then-Blocks erfüllt ist.

Am besten ist, du setzt in der If-Zeile einen Haltepunkt und führst den Code dann im Einzelschritt weiter aus (immer F8 drücken, die aktuelle Zeile wird farblich markiert). Wenn Du in der aktuellen Zeile mit der Maus auf die Variable „str“ zeigst, dann wird Dir deren momentaner Wert in einer Quickinfo angezeigt und Du kannst sehen, ob sie einen sinnvollen Wert hat, der als Range interpretiert werden kann.

VG
Carsten