Wertkopie
04.05.2021 11:53:56
Hilfesuchender
Ich benötige euren Support für die Anpassung eines Makros. Dieses erstellt mir eine "Wertkopie" in den Zellen, wo bestimmte Datenbankformeln stehen (alle anderen Excelformel bleiben erhalten). Das Makro läuft dabei auch prinzipiell fehlerfrei:
Private Sub DBR(Bl)
Dim Z
On Error Resume Next
For Each Z In Bl.Cells.SpecialCells(xlCellTypeFormulas)
Select Case Left(Z.Formula, 4)
Case "=DBR", "=DBS", "=SUB", "=VIE", "=DIM"
Z.Value = Z.Value
End Select
Next Z
End Sub
Jetzt gibt es aber Zellen, in denen nicht direkt die Datenbankformel (DBR, DBS usw.) steht, sondern es ist eine Formelverknüpfung vorhanden:=WENN(DBRW(Parameter...)=0;"";DBRW(Parameter...))
Wie kann das o.g. Makro verändert/erweitert werden, damit auch in solchen Fällen die Werte in die Zelle kopiert werden? Danke euch im Voraus!
Anzeige