Makro Wertkopie
24.05.2016 12:58:54
Martin
ich habe folgendes Makro, welches mir bestimmte Formeln in einem Registerblatt wertkopiert. Nun möchte ich das Ganze erweitert haben, dass das Makro alle Register einer Arbeitsmappe durchläuft bzw. im Idealfall wäre es perfekt, wenn nach dem Starten eine Abfrage kommt, ob nur das aktuelle Register oder die gesamte Mappe bearbeitet werden soll. Könnt ihr mir weiterhelfen?
Danke im Voraus:
Sub Wertkopie_DBR_DBS_TM1()
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))
Calculate
For Each Z In Bereich
On Error Resume Next
If Z.HasFormula Then
Select Case Left(Z.Formula, 4)
Case "=DBR" ' DBRn - Funktion
Z.Value = Z.Value
Case "=DBS" ' DBSn - Funktion
Z.Value = Z.Value
Case "=SUB" ' SUBNM - Funktion
Z.Value = Z.Value
Case "=VIE" ' VIEW - Funktion
Z.Value = Z.Value
Case "=DIM" ' DIMNM - Funktion
Z.Value = Z.Value
End Select
End If
Next Z
Calculate
Mldg = "Alle TM1-Funktionen wertkopiert"
MsgBox (Mldg)
End Sub