Code in Add in mit Buttons verpacken
MaxKuba
koenntet ihr mir helfen den unten genannten code in ein Add In mit Buttons zu erstellen?
Ich habe mir schon saemtliche tutorials durchgelesen und bin leider irgendwie zu doof dazu. Ziel ist es das Add In auch mit anderen Makros zu fuellen und an Kollegen weiter zu geben.
Code fuer das erste Makro:
Sub NA_raus()
Dim rng As Range, cell As Range, fmla As String
Set rng = Cells.SpecialCells(xlCellTypeFormulas, 16)
For Each cell In rng
fmla = Right(cell.Formula, Len(cell.Formula) - 1)
cell.Formula = "=if(iserror(" & fmla & "), """"," & fmla & ")"
Next
End Sub
Gruesse aus Indien,
Max