Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 10:07:12 SandroS.
Solved
02.02.2024 10:12:19 Mase
NotSolved
Rot VBA mit Schleife und Avg etc.
02.02.2024 10:27:41 Gast50557
NotSolved
02.02.2024 11:23:47 Mase
NotSolved
02.02.2024 12:35:16 SandroS.
NotSolved
02.02.2024 12:56:41 Mase
NotSolved
02.02.2024 13:04:49 SandroS.
NotSolved
02.02.2024 13:20:33 Mase
NotSolved
02.02.2024 13:36:38 Gast38304
NotSolved
02.02.2024 13:46:56 SandroS.
NotSolved
02.02.2024 14:17:27 Mase
NotSolved
02.02.2024 15:15:57 SandroS.
NotSolved
02.02.2024 15:26:37 Mase
*****
Solved
02.02.2024 15:50:52 SandroS.
NotSolved

Ansicht des Beitrags:
Von:
Gast50557
Datum:
02.02.2024 10:27:41
Views:
176
Rating: Antwort:
  Ja
Thema:
VBA mit Schleife und Avg etc.

Hallo Marco

 

Mit dem Folgenden Code konnte ich den Mittelwert ermitteln, aber irgendwie klappt das nicht mehr indecision.

Beschäftige mich noch nicht so lange mit VBA und bin eher Vortgeschrittener Anfänger

Gruß

--------------------------------------------------------------------------------------------------------------------------------------------------

Sub BereichMittelwert()

Dim rngBereich As Range
Dim VarDat As Variant
Dim lngZeile As Long
Dim lngZeileMax As Long

With Tabelle3

lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich = .Range("A1:E" & lngZeileMax)

VarDat = rngBereich

For lngZeile = 1 To UBound(VarDat)

VarDat(lngZeile, 5) = _
Application.WorksheetFunction.Average(VarDat(lngZeile, 1), _
                                         VarDat(lngZeile, 2), _
                                         VarDat(lngZeile, 3), _
                                         VarDat(lngZeile, 4))

Next lngZeile

rngBereich.Value = VarDat

End With


End Sub

--------------------------------------------------------------------------------------------------------------------------------------------------

 

 


 


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
02.02.2024 10:07:12 SandroS.
Solved
02.02.2024 10:12:19 Mase
NotSolved
Rot VBA mit Schleife und Avg etc.
02.02.2024 10:27:41 Gast50557
NotSolved
02.02.2024 11:23:47 Mase
NotSolved
02.02.2024 12:35:16 SandroS.
NotSolved
02.02.2024 12:56:41 Mase
NotSolved
02.02.2024 13:04:49 SandroS.
NotSolved
02.02.2024 13:20:33 Mase
NotSolved
02.02.2024 13:36:38 Gast38304
NotSolved
02.02.2024 13:46:56 SandroS.
NotSolved
02.02.2024 14:17:27 Mase
NotSolved
02.02.2024 15:15:57 SandroS.
NotSolved
02.02.2024 15:26:37 Mase
*****
Solved
02.02.2024 15:50:52 SandroS.
NotSolved