Gruppe
Matrix
Problem
Es sollen zeilenweise alle Datensätze gezählt werden, die in den Spalten D, F, G und I identisch sind. Bei den Formeln in Spalte J handelt es sich um Matrixformeln.
StandardModule: Telefonieren
Sub Kopieren()
Dim sPath As String
sPath = Application.Path & "\"
ThisWorkbook.VBProject _
.VBComponents("Telefonieren").Export sPath & "Telefonieren.bas"
Workbooks.Add
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "Telefonieren.bas"
.VBComponents("Telefonieren").Name = "Telefonieren"
End With
Kill sPath & "\Telefonieren.bas"
End Sub