Mittelwert berechnen durch Anklicken der Start und Endzelle

30.11.2024 14:34:24

ChimChim

Hallo Zusammen,
Ich bin neu hier im Forum und hoffe auf Hilfe.
Ich habe eine Tabelle mit ca 30 Zeilen.
Ich habe eine Zelle unterhalb der eingetragen Werte mit einer Mittelwertformel erstellt.
Nun würde ich diese gerne so fixieren damit ich nicht jedes Mal „=mittelwert(….)“ eingeben muss sondern nur noch auf die Zelle klicke in welche diese Formel steht und danach die start und endzelle ohne schreiben oder markieren zu müssen.
Z.B.: ich klicke auf A33 (definierte Mittelwert Zelle)
Danach auf A5 (startzelle)
Danach auf A13 (Endzelle)
Und nun sollte der Mittelwert aus Zelle A5 bis A13 in Zelle A33 dargestellt werden.
Ist dies möglich?
Danke für eure Hilfe

AW: Mittelwert berechnen durch Anklicken der Start und Endzelle

30.11.2024 14:52:39

{Boris}

Hi,

z.B. so (noch ohne Fehlerbehandlung):

Option Explicit



Sub Mittelwert_einfuegen()

Dim C As Range

Dim CStart As Range

Dim CEnde As Range

Set C = Application.InputBox("Ergebniszelle auswählen", "Auswahl", Type:=8)

Set CStart = Application.InputBox("Startzelle auswählen", "Auswahl", Type:=8)

Set CEnde = Application.InputBox("Endzelle auswählen", "Auswahl", Type:=8)

C = WorksheetFunction.Average(Range(CStart.Address & ":" & CEnde.Address))

End Sub

VG, Boris

AW: Mittelwert berechnen durch Anklicken der Start und Endzelle

30.11.2024 15:18:59

ChimChim

Danke für die schnelle Antwort.
Aber ist dies auch irgendwie ohne VBA möglich?
Ich habe nämliche keine Ahnung von Programmieren.
Danke

AW: Mittelwert berechnen durch Anklicken der Start und Endzelle

30.11.2024 16:41:57

ChimChim

DANKE
Ich hab das durch kopieren mit VBA und einfügen einer Schlatfläche hin bekommen.
Ist ja gar nicht so schwer.
Kann ich die Schaltflächen auch umbenennen?

Vll muss ich mich doch in dieses VBA Thema viel mehr einarbeiten.
Vermutlich könnte meine jetzige Lösung noch viel besser automatisieren.

AW: Mittelwert berechnen durch Anklicken der Start und Endzelle

30.11.2024 17:04:27

{Boris}

Hi,

klar kannst Du die Caption (Beschriftung) der Schaltfläche umbenennen. Hast Du eine aus den ActiveX- oder Formularsteuerelementen gewählt?

VG, Boris

AW: Mittelwert berechnen durch Anklicken der Start und Endze

30.11.2024 17:31:44

ChimChim

Sorry das ich gerade erst mit VBA anfange
Natürlich hätte ich jetzt noch 100 Fragen und könnte sicherlich alles noch besser und schneller optimieren aber ich möchte dich nicht nerven DANKE {BORIS}

AW: Mittelwert berechnen durch Anklicken der Start und Endze

30.11.2024 17:41:45

ChimChim

Das habe ich gemeistert

AW: dann ist aber der thread auch nicht mehr offen owT

30.11.2024 18:22:57

neopa C

Gruß Werner
.. , - ...

Nicht nötig....

30.11.2024 17:37:00

{Boris}

Hi,

...Dich für irgendwas zu entschuldigen. Besser wäre es, wenn Du die Fragen beantworten würdest ,-)

VG, Boris

Nein, ohne VBA...

30.11.2024 15:39:56

{Boris}

Hi,

...ist Dein Vorhaben nicht realisierbar.
Du kannst nur eine fixe Ergebniszelle mit einer Formel bestücken, die z.B. Startzeile und Endzeile aus 2 Zellen bezieht.

Im Beispiel wird die Startzeile in F1 und die Endzeile in F2 vorgegeben. Dazu diese Formel mit Bezug auf Spalte A:

=MITTELWERT(INDEX(A:A;F1):INDEX(A:A;F2))

Steht in F1 z.B. 3 und in F2 z.B. 9, dann wird der Mittelwert aus A3:A9 berechnet.

Könnte man statt Zeilennummern auch mit Zelladressen machen - dann braucht man INDIREKT. Ändert aber nix daran, dass Du eine FIXE Ergebniszelle hast. Und das entspricht nicht Deinen ursprünglichen Anforderungen.

VG, Boris

Was ist denn jetzt?

30.11.2024 16:37:47

{Boris}

Hi,

Ende im Gelände oder geht VBA am Ende auch?

Hier noch mit Fehlerroutine - und es wird auch kein konstanter Mittelwert eingetragen, sondern MITTELWERT als Formel.

Füge im VBA-Editor ein allgemeines Modul ein, kopier den Code da rein, leg Dir auf Dein Tabellenblatt einen Button aus den Formularsteuerelementen und weise das Makro dem Button zu.

Option Explicit



Sub Mittelwert_einfuegen()

Dim C As Range

Dim CStart As Range

Dim CEnde As Range

Dim strBereich As String

On Error GoTo ERR_HANDLER

Set C = Application.InputBox("Ergebniszelle auswählen", "Auswahl", Default:=ActiveCell.Address, Type:=8)

Set CStart = Application.InputBox("Startzelle auswählen", "Auswahl", Type:=8)

Set CEnde = Application.InputBox("Endzelle auswählen", "Auswahl", Type:=8)

strBereich = CStart.Address(0, 0) & ":" & CEnde.Address(0, 0)

C.Formula = "=Average(" & strBereich & ")"

MsgBox C.FormulaLocal & " erfolgreich in Zelle " & C.Address(0, 0) & " eingetragen.", vbInformation, "Erledigt"

Exit Sub

ERR_HANDLER:

MsgBox "Das hat leider nicht geklappt.", vbInformation, "Hinweis"

End Sub

VG, Boris

Mittelwert berechnen durch Anklicken der Start und Endzelle

Forumthread: Mittelwert berechnen durch Anklicken der Start und Endzelle

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Mittelwert berechnen durch Anklicken der Start und Endzelle

Forumthread: Mittelwert berechnen durch Anklicken der Start und Endzelle

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread