Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Tabellenblätter auf Wert überprüfen

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
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.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: