Formeln in Festwerte mit VBA geht nicht?
09.06.2006 15:35:14
Torge
komm einfach nicht weiter, wer kann helfen.
Möchte gern Tabelle kopieren und nach dem kopieren die Formeln in Festwerte umwandeln lassen. Der Kopierte Bereich ist gleich dem Bereich in dem die Formeln umgewandelt werden sollen. Die Fehlermeldung erscheint immer bei dem Bereich der in Festwerte umgewandelt werden soll (Range("C2:BJ277").Select). Was mach ich falsch? Code hier:
Private Sub CommandButton7_Click()
'Kopiert Tabelle in neue Mappe
Dim bytMsg As Byte
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Sheets("Anfrage").Copy
With ActiveSheet.Range("C2:BJ277")
.Copy
End With
Application.CutCopyMode = False
bytMsg = MsgBox("Datei wurde in neue Mappe kopiert." & vbLf & _
"Soll der Bereich in Werte umgewandelt werden?", vbYesNo)
If bytMsg = vbYes Then
Range("C2:BJ2277").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2:BJ2277").Select
Application.CutCopyMode = False
Application.WindowState = xlMinimized
Application.CutCopyMode = False
End If
End Sub
Vielen Dank
Gruß Torge
Anzeige