Blatt kopieren - Festwerte umwandeln - versenden
07.06.2006 17:44:29
Torge
kann jemand helfen?
Habe folgenden Code zum Kopieren eines Blattes in einen neue Mappe (Aus dem Forum).
Private Sub CommandButton7_Click()
Sheets("Fin.-Anfrage").Copy
With ActiveSheet.UsedRange
.Copy
End With
Application.CutCopyMode = False
MsgBox "Datei wurde in neue Mappe kopiert"
If Selection.Copy = vbYes Then
Range("C2:AG274").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Nachdem die Tabelle in der neuen Mappe ist, wird eine MsgBox angezeigt das Kopiert wurde. Mit dem betätigen des ok Button soll nun die 2 Prozedur laufen und die Formeln in Festwerte umgewandelt werden.
Dann soll durch eine erneute Bestätigung eines Button dieses Blatt per Mail versendet werden. Ginge dies zu realisieren oder liege ich da falsch?
Kann mir da jemand weiter helfen?
Wäre super
Vielen Dank
Gruß Torge