000
14.12.2011, 21:58 Uhr
Lieblingsrapper
|
Funktion:
| Visual Basic: |
Public Function Zugehörigkeitsjahre(Verein As Excel.Range)
Dim WS_Count As Integer
Dim I As Integer
Dim M As Integer
For I = 1 To (WS_Count - 1)
Set adr = Worksheets(ActiveWorkbook.Worksheets(I).Name)
MsgBox ActiveWorkbook.Worksheets(I).Name
Anz = Application.WorksheetFunction.CountIf(adr, Verein)
If Anz > 0 Then M = M + 1
Next I
Zugehörigkeitsjahre = M
End Function
|
Die Funktion soll alle Tabellenblätter (bis aufs letzte) auf einen Wert, der in einer Zelle auf dem letzten Tabellenblatt steht, untersuchen und dann einen Wert M berechnen, der sagt, in wie vielen Tabellenblättern der Wert vorkommt und dieser Wert soll am Ende ausgegeben werden.
Dieser Post wurde am 14.12.2011 um 22:00 Uhr von Lieblingsrapper editiert. |
