Thema Datum  Von Nutzer Rating
Antwort
19.07.2018 10:36:37 pupps
NotSolved
Blau suchen und finden durch koordination
 20.07.2018 11:44:09 Gast13337
NotSolved
20.07.2018 11:45:49 Ulrich
NotSolved

Ansicht des Beitrags:
Von:
Gast13337		 Datum:
20.07.2018 11:44:09		 Views:
465		 Rating:
     
Antwort:
  Ja
Thema:
suchen und finden durch koordination
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: [code]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[/code] Grüße, Ulrich

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2018 10:36:37 pupps
NotSolved
Blau suchen und finden durch koordination
 20.07.2018 11:44:09 Gast13337
NotSolved
20.07.2018 11:45:49 Ulrich
NotSolved