Sorry, ohne JavaScript scheint die Formatierung in diesem Forum schlcht ..
Hallo, also ein Bild ist immer total super, um seinen Code-Vorschlag zu testen ... Da hat man direkt Beispieldaten, dan denen man seine Programmlogik überprüfen kann ...
Daher ein ungetesteter Entwurf:
Sub machMittelwert()
' Achtung: Code geht davon aus, dass in der Zeile der Bank das employment nicht vorkommt!
Dim lBank As Long, lEmpl As Long
Dim colBank As Long
Dim dWert As Double
Dim lAnzahl As Long
colBank = 1 'Spaltennummer "Bank"
dWert = 0
lAnzahl = 0
For lBank = 1 To 10000
If InStr(LCase(Cells(lBank, colBank)), "bank1") > 0 Then
For lEmpl = lBank + 1 To lBank + 30
' neue Bank , ohne employment:
If InStr(LCase(Cells(lEmpl, colBank)), "bank1") > 0 Then Exit For
' Wert für Mitelwertbildung
If InStr(LCase(Cells(lEmpl, colBank + 1)), "employment") > 0 Then
dWert = dWert + Cells(lEmpl, colBank + 4)
lAnzahl = lAnzahl + 1
Exit For
End If
Next
End If
Next
MsgBox "MIttelwert Bank1 = " & dWert / lAnzahl
End Sub
Grüße, Ulrich
|