AW: Summewenn Ergebniss soll stehen bleiben
11.04.2008 08:46:00
Renee
Hallo Andreas,
Folgendes Makro kannst du z.B. ins personl. xls in ein Modul kopieren.
Dann kannst du dir eine Schaltfläche in den Symbolleisten definieren und das Makro zuweisen.
Damit kannst du mit diesem 'Knopf' das erreichen, was du suchst. Selektier irgendeinen (zusammenhängenden Bereich, z.B: Spalten D:G) und drück die Schaltfläche oder lass das Makro über Extras - Makros laufen.
Allerdings ist das nicht viel anders als der von Matthias vorgeschlagene Weg.
Sub NurWerte()
If Selection.Areas.Count > 1 Then
MsgBox "Makro funktioniert nur für zusammenhängende Bereiche!", _
vbCritical + vbOKOnly, "Formeln in Werte"
Exit Sub
End If
If MsgBox("Alle Zellen werden in Wert gewandelt." & vbCrLf & _
"Alle Formeln in der Auswahl gehen verloren!", _
vbExclamation + vbYesNo, "Formeln in Werte") = vbYes Then
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub
GreetZ Renée