Office: (Office 2016) Werte statt Formeln vor Emailversand

Hallo zusammen,

ich habe ein Makro, welches Tabellenblätter versendet wenn eine Mailadressen in Zelle A1 steht. Dabei wird das Tabellenblatt kopiert und zwischengespeichert.

Nun muss ein bestimmter Bereich mit Werten gespeichert werden, da diese Formeln außerhalb meiner Umgebung nichts bringen.

Wie bzw. wo gebe ich das ein? Bin in VBA nicht sonderlich bewandert und versuche mir einiges beizubringen und gefundenes zu kombinieren, das klappt leider nicht immer

Ich habe es mit

Range("F9:F20").Value = Range("F9:F20").Value

versucht, nach "sh.wb", das hat funktioniert, allerdings hat er nicht die Werte übernommen sondern den Fehler "#Name" als Wert ausgegeben. Wahrscheinlich, weil das erstellen der Kopie schon den Fehler erzeugt.

Code:

For Each sh In ThisWorkbook.Worksheets
        If sh.Range("A1").Value Like "?*@?*.?*" Then

            sh.Copy
            Set wb = ActiveWorkbook
             Range("F9:F20").Value = Range("F9:F20").Value
         
            TempFileName = "Sheet " & sh.Name & " of " _
                         & ThisWorkbook.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

            Set OutMail = OutApp.CreateItem(0)

            With wb
                
                .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum

Gruß

Cray

 

Halo Cray,

VBA Beispiele Seite Dateikopie - Hajo's Excelseiten

 

Hallo Hajo,

danke für die schnelle Antwort. Wenn ich das Beispiel richtig deute, müsste ich alles umstellen. Eigentlich ist ja fast alles in Ordnung, außer, dass nicht die eigentlichen Werte eingetragen werden sondern der Fehler, aber auch als Wert oder Text.

Also kurz, den Range-Befehl oben kann ich vergessen?

Gruß

Cray

 

Gut ich sehe nicht wasDu umstellen musst?
Die Datei gehen für alle Dateien ohne Änderung.
Ich vermute ich habe die Aufgabe falsch verstanden. Ich bin dann raus.
Viel erfolg noch.

Gruß Hajo

 

Hi,

kopiere doch einfach die Werte aus dem Ursprungsblatt:

Code:

Range("F9:F20").Value = sh.Range("F9:F20").Value

 

Hallo Helmut,

danke, so klappt es.

Schönes Wochenende und Gruß

Cray