AW: zählenwenn
25.04.2008 09:34:38
Wuxinese
Hallo zusammen!
@Mustafa: Deine Loesung geht nicht. Du findest den Namen, zaehlst dann solange der Name untereinandersteht und brichst dann ab. Wenn aber jetzt der 2. "Huber-Block" der groessere ist, dann kommt Deine Funktion da gar nicht erst hin.
@Benjamin: Versuch es so, wie Mustafa es vorgeschlagen hat. Oeffne den Makroeditor mit Alt-F11. Dann klickst Du im Projektexplorer (linker Bildschirmrand) Dein Projekt an, gehst auf Einfuegen-Modul. Doppelklick auf das neue Modul und dort fuegst Du dann im Editorfenster diesen Code ein:
Public Function BiggestBlock(ByVal sTerm As String, rArea As Range) As Double
Dim ctr1, ctr2, ctr3
Dim zelle As Range
ctr3 = 0
For Each zelle In rArea
If zelle = sTerm Then
ctr1 = zelle.Row
ctr2 = 0
Do While Cells(ctr1, zelle.Column) = sTerm
ctr2 = ctr2 + 1
ctr1 = ctr1 + 1
Loop
If ctr2 > ctr3 Then ctr3 = ctr2
End If
Next zelle
BiggestBlock = ctr3
End Function
Danach kannst Du im Arbeitsblatt diese Funktion ganz normal in einer Formel benutzen. Du schreibst dann einfach in die Zelle: =biggestblock(A1, A1:A30) Dann wird der Bereich von A1:A30 nach dem Begriff, der in A1 steht, durchsucht und der jeweils groesste Block dieses Begriffes ausgegeben.
Gib bitte kurz Bescheid, obs geklappt hat.
Viele Gruesse und ein schoenes Wochenende
Rainer