|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.08.2022 12:39:20 |
Sam |
|
|
|
03.08.2022 13:15:49 |
Gast21501 |
|
|
|
03.08.2022 13:37:59 |
Gast39871 |
|
|
|
03.08.2022 13:40:45 |
Gast21501 |
|
|
|
03.08.2022 13:51:06 |
Gast85598 |
|
|
|
03.08.2022 13:51:55 |
Gast89156 |
|
|
 Formel in VBA einfügen |
03.08.2022 20:00:30 |
Gast54 |
|
|
Von:
Gast54 |
Datum:
03.08.2022 20:00:30 |
Views:
619 |
Rating:
|
Antwort:
|
Thema:
Formel in VBA einfügen |
|
Das Umformen sollte man als Anfänger eigentlich drauf haben.
*folgende Zeilen sind freihand getippt*
' wenn(B8=6; summe(B10:B15) / 125;
' wenn(B8=5; summe(B10:B14) / 105;
' wenn(B8=4; summe(B10:B13) / 84;
' wenn(B8=3; summe(B10:B12) / 63;
' wenn(B8=2; summe(B10:B11) / 42;
' wenn(B8=1; summe(B10/21);
' "")
Dim arg As Variant
Dim result As Variant
arg = Range("B8").Value
If arg = 6 Then
result = WorksheetFunction.Sum(Range("B10:B15")) / 125
ElseIf arg = 5 Then
result = WorksheetFunction.Sum(Range("B10:B14")) / 105
ElseIf arg = 4 Then
result = WorksheetFunction.Sum(Range("B10:B13")) / 84
ElseIf arg = 3 Then
result = WorksheetFunction.Sum(Range("B10:B12")) / 63
ElseIf arg = 2 Then
result = WorksheetFunction.Sum(Range("B10:B11")) / 42
ElseIf arg = 1 Then
result = Range("B10") / 21
Else
result = ""
End If
Beim Wert 6 müsste es meinem Verständnis nach nicht 125 lauten, sondern 126. Wenn dem so ist, scheint sich die Berechnung an der Anzahl der Werte zu orientieren; in dem Fall kann man das ganze auch noch viel kürzer / einfacher schreiben.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
03.08.2022 12:39:20 |
Sam |
|
|
|
03.08.2022 13:15:49 |
Gast21501 |
|
|
|
03.08.2022 13:37:59 |
Gast39871 |
|
|
|
03.08.2022 13:40:45 |
Gast21501 |
|
|
|
03.08.2022 13:51:06 |
Gast85598 |
|
|
|
03.08.2022 13:51:55 |
Gast89156 |
|
|
Formel in VBA einfügen |
03.08.2022 20:00:30 |
Gast54 |
|
|