Thema Datum  Von Nutzer Rating
Antwort
14.02.2017 15:17:44 Andi
NotSolved
14.02.2017 16:36:48 Holger
NotSolved
15.02.2017 08:24:12 Andi
NotSolved
15.02.2017 09:02:26 Andi
Solved
15.02.2017 09:03:15 Gast15743
NotSolved
Blau Mittelwert VBA
 15.02.2017 09:53:16 Andi
NotSolved

Ansicht des Beitrags:
Von:
Andi		 Datum:
15.02.2017 09:53:16		 Views:
656		 Rating:
     
Antwort:
  Ja
Thema:
Mittelwert VBA

So hätte es wahrscheinlich auch funktioniert. Aber ich habe in meinem Code nur noch 2 Punkte vergessen.

Sub Macro1()
tabName = Array("Firma1", "Firma2", "Firma3", "Firma4", "Firma5")
For n = LBound(tabName) To UBound(tabName)
    With Worksheets(tabName(n))
         lz = .Cells(Rows.Count, 1).End(xlUp).Row
         .Cells(3, 6).Value = Application.Average(Range(.Cells(4, 2), .Cells(lz, 2)))
    End With
Next n
End Sub

So funktioniert es jetzt einwandfrei.

Andi

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
14.02.2017 15:17:44 Andi
NotSolved
14.02.2017 16:36:48 Holger
NotSolved
15.02.2017 08:24:12 Andi
NotSolved
15.02.2017 09:02:26 Andi
Solved
15.02.2017 09:03:15 Gast15743
NotSolved
Blau Mittelwert VBA
 15.02.2017 09:53:16 Andi
NotSolved