VBA SVERWEIS löschen
17.08.2014 08:26:58
Uwe
habe eine Tabelle mit mehreren SVERWEIS'en aus einer anderen Arbeitsmappe.
Diese Tabelle soll anderen Nutzern zugestellt werden.
In der zu übergebenden Tabelle sollen nur die Inhalte der Verweise stehen.
Zusätzlich befinden sich aber in der Tabelle einfache Formeln, welche aber bleiben sollen.
Habe folgendes Makro, welches alle Formeln löscht.
Public Sub Formeln_entfernen_Inhalt_behalten()
Dim rngZelle As Range
Dim lngAnz As Long
For Each rngZelle In ThisWorkbook.ActiveSheet.UsedRange
'prüfen ob Zelle eine Formel enthält
If rngZelle.HasFormula = True Then
rngZelle = rngZelle.Value
lngAnz = lngAnz + 1
End If
Next rngZelle
MsgBox lngAnz & " Formeln entfernt", , ""
End Sub
vielen Dank im voraus
Uwe
Anzeige