Excel Marko / suchen nach - inhalte als Werte einfügen

20/06/2008 - 14:47 von Gregory Fink | Report spam
Hallo zusammen,

Wir setzen Excel 2003 SP3 ein.

Ich möchte bei einem Excel Sheet dass mehrere Arbeitsmappen besitzt.. mit
einem Makro nach Formel welche den Wert "xy" enthalten suchen und nur diese
diese mit der Funktion "inhalte einfügen als Wert" versehen.

Folgenden ansatz habe ich gefunden,

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Hat jemand ein idee?

Besten Dank im Voraus,

Grüsse
Gregory
 

Lesen sie die antworten

#1 Eberhard Funke
20/06/2008 - 20:25 | Warnen spam
Am Fri, 20 Jun 2008 14:47:05 +0200 schrieb Gregory Fink:

Hallo Gregory,

Ich möchte bei einem Excel Sheet dass mehrere Arbeitsmappen besitzt..



als eine Arbeitsmappe mit mehreren Sheets

mit
einem Makro nach Formel welche den Wert "xy" enthalten suchen und nur diese
diese mit der Funktion "inhalte einfügen als Wert" versehen.



Probier's mal so (aber bitte mit einer Kopie der Mappe testen!):

Sub xy_in_Werte()
Dim Wks As Worksheet
Dim rngFound As Range
Dim StrAdr As String

For Each Wks In ActiveWorkbook.Sheets
Set rngFound = Wks.UsedRange.Find(What:="xy", _
LookIn:=xlFormulas, LookAt:=xlPart)
If Not rngFound Is Nothing Then
StrAdr = rngFound.Address
rngFound.Copy
rngFound.PasteSpecial Paste:=xlPasteValues
Do
Set rngFound = Wks.UsedRange.FindNext(rngFound)
rngFound.Copy
rngFound.PasteSpecial Paste:=xlPasteValues
Loop While rngFound.Address <> StrAdr
End If
Next
Application.CutCopyMode = False
End Sub


Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen