Formel raus Wert rein -Kommentar behalten

18/06/2011 - 15:25 von Hans Alborg | Report spam
[Excel 2007]

Hi Leute,

ich bin auf das alte Thema gestoßen in einem Excel-Blatt die Formeln durch
ihre Werte zu ersetzen.

Im Netz habe ich die 2 Methoden gefunden:

a) einen Bereich markieren und "...Selection.PasteSpecial Paste:=xlValues"

Das wàre prima für mich, wenn ich nicht die Kommentare behalten wollte, aber
die werden auch gelöscht und:

b) jede Zelle (in einem Bereich) einzeln abklappern und bearbeiten

For j = 1 To 55 ' Zeile 55 Z
For k = 1 To 29 'Spalte 29 S
If wsnew.Cells(j, k).HasFormula = True Then wsnew.Cells(j, k) =
wsnew.Cells(j, k).Value
Next k 'Spalte
Next j 'Zeile

Das ist mein jetziger Code. Problem: es dauert recht lange. Ich werd noch
eine Zelle des Blatts am Beginn rot fàrben und spàter wieder weiß, als
"Busy"- Anzeige.

Gibt es was Schnelleres (wie Punkt a) wobei die Kommentare bleiben?
Ähm, alles andere (Formate...) will ich auch behalten.

TIA,

Hans
 

Lesen sie die antworten

#1 Jörg Eisenträger
18/06/2011 - 15:52 | Warnen spam
Hi,

ich bin auf das alte Thema gestoßen in einem Excel-Blatt die Formeln durch
ihre Werte zu ersetzen.
...
Gibt es was Schnelleres (wie Punkt a) wobei die Kommentare bleiben?
Ähm, alles andere (Formate...) will ich auch behalten.



Versuch mal:

Markiere den Bereich, dann:

Dim z as Range
For Each z in Selection
z.Value = z.Value
Next

Ist vielleicht etwas schneller als b), Formatierungen und Kommentare
bleiben erhalten. [XL2003]


Gruß
Jörg
LPs auf CD brennen - so geht's: http://www.joergei.de/
E-Mail-Adresse existiert, wird aber nicht gelesen.

Ähnliche fragen