Funktionsaufruf durch Makro ? wie ?
04.02.2006 20:16:32
Peter
Wie ruft man eine Funktion mit einem Makro auf
und übergibt das Ergebnis der Funktion?
Danke für die Hilfe
Peter
Sub Probe()
'Set rngBereich = Worksheets("Tabelle1").Range("A1:B20")
'Range("D1").Value = DatZell
End Sub
Function DatZell(rngBereich As Object)
Dim intCounter As Integer
Dim rngAct As Range
For Each rngAct In rngBereich
If IsDate(rngAct.Value) Then
intCounter = intCounter + 1
End If
Next rngAct
DatZell = intCounter
End Function