Wertekopie: Erweitern
30.01.2018 07:58:51
Mirco
ich benötige eure Hilfe zur Erweiterung/Optimierung. Folgendes Makro funktioniert wunderbar und ich benötige "lediglich" eine Ergänzung:
Sub Wertkopie_DBR_DBS_Formeln()
ActiveSheet.Unprotect "Passwort"
Calculate
Dim Bereich As Range
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Endspalte = Selection.Columns(Selection.Columns.Count).Column
EndZeile = Selection.Rows(Selection.Rows.Count).Row
Startspalte = 1
Startzeile = 1
Set Bereich = Range(Cells(Startzeile, Startspalte), Cells(EndZeile, Endspalte))
For Each Z In Bereich
On Error Resume Next
If InStr(Z.Formula, "DBR") Or _
InStr(Z.Formula, "DBS") Or _
InStr(Z.Formula, "SUBNM") Or _
InStr(Z.Formula, "VIEW") Or _
InStr(Z.Formula, "DIMNM") Then
Z.Value = Z.Value
End If
Next Z
Range("A1").Select
Mldg = "Alle Formeln wurden wertkopiert"
MsgBox (Mldg)
Range("A1").Select
ActiveSheet.Protect "Passwort"
End Sub
Um Fehler "abzufangen" gibt es an zahlreichen Stellen in der Arbeitsmappe folgende Formeln: WENN(ISTNV(DBRW
Diese Formeln werden aktuell nicht wertekopiert. D.h. ich benötige eine Erweiterung der Befehle, damit auch alle o.g. Formeln im Falle Wenn(ISTNV( gleich behandelt werden. Leider habe ich nur ganz marginale Kenntnisse um benötige daher eure Unterstützung! Vielen Dank!
Mirco