Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel löschen aber Werte behalten

Formel löschen aber Werte behalten
01.02.2007 10:21:22
Sepp
Hallo zusammen
Hoffe jemand kann mir helfen
Hab hab ein VBA Code der schon mal funktioniert hat,
aber jetzt auf einmal nicht mehr läuft.
Das Merkwürdige darn es kommt auch kein Laufzeitfehler oder ähnliches.
Weiß nicht mehr weiter !!!
Hier der Code:

Sub Formel_löschen()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Vielleicht hat jemand eine Idee voran es liegen kann.
Danke und Gruß
Sepp

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel löschen aber Werte behalten
01.02.2007 14:07:57
Dan
Hallo Sepp, ich habe einpaar Tests in Deinen Code eingebaut. Versuch die Formeln einmal so zu loeschen. Gruss Dan, cz

Sub Formel_löschen()
On Error GoTo Err_Formel_löschen
If (ActiveSheet Is Nothing) Then
Err.Raise vbObjectError + 1, , "ActiveSheet Is Nothing"
Else
Cells.Select
End If
If (VBA.TypeName(Selection) <> "Range") Then
Err.Raise vbObjectError + 2, , "Selection ist kein Range"
Else
Dim cellsToCopy As Range
Set cellsToCopy = Selection
cellsToCopy.Copy
On Error Resume Next
Dim cellsWithFormula
Err.Clear
Set cellsWithFormula = Selection.SpecialCells(xlCellTypeFormulas)
If (Err.Number = 0) Then
VBA.MsgBox "Copy methode kopierte <" & cellsToCopy.Cells.Count & "> cells" & vbCrLf & _
"Davon mit Formel <" & cellsToCopy.SpecialCells(xlCellTypeFormulas).Count & ">", vbInformation, "Selection.Copy"
Else
VBA.MsgBox "Copy methode kopierte <" & cellsToCopy.Cells.Count & "> cells" & vbCrLf & _
"Keine davon hatte eine Formel", vbInformation, "Selection.Copy"
End If
On Error GoTo Err_Formel_löschen
End If
cellsToCopy.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Exit Sub
Err_Formel_löschen:
VBA.MsgBox Err.Description, vbCritical, "Error in <" & "

Sub Formel_löschen" & "> Error number <" & Err.Number & ">"
End Sub

Anzeige
AW: Formel löschen aber Werte behalten
01.02.2007 22:26:16
daniel Eisert
Hallo
nen direkten Fehler kann ich da auch nicht erkennen, aber CELLS.SELECT ist schwierieg, weil das sind normalerweise ganz schön viele, da kanns bei vielen Formeln auch schon mal zu Speicherproblemen kommen.
ich würde die selektierten Zellen mit USEDRANGE auf das notwendige einschränken und mit folgendem Code arbeiten:

Sub Formel_löschen()
with activesheet.usedrange
.clearformats
.formula = .value
end with
End Sub

Gruß, Daniel

19 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige