Ecxel 2021 Frage Stunden Formel

[Andreas Killer]

Rechne die Dezimalzahlen zu einer Uhrzeit um, dann wird es ganz einfach.

  Mappe2-test.xlsx (Größe: 18,04 KB / Downloads: 9)

Andreas.

[schauan]

Hallöchen,

in E18 diese Formel:

=LET(as;VSTAPELN(E3:E15);bs;WENN(ISTZAHL(as);NOTIERUNGDEZ(as;60);0);NOTIERUNGBRU(SUMME(bs);60))

und Du bekommst die 74,30

Wenn Du zur Kontrolle auf die 372,50 kommen willst, dann wie oben mit

=(NOTIERUNGDEZ(E18;60)*5)

[ulf123]

Hallo ich wünsch allen hier ein frohes neues Jahr.
Ich bedanke mich auch für die Hilfe von euch hier im Forum.
Meine Tabelle ist jetzt fast fertig.

Ich habe nur noch ein Problem bei meiner Tabelle, bei der ich nichtmal den Ansatz einer Idee habe.

In meiner Tabelle habe ich zwei Blätter ( Name und Berechnung ).
Wenn ich in dem Tabellenblatt Berechnung in Spalte B einen Namen auswähle, würde ich gern  für die Spalten H,I und K die Summe der Zeile errechnet bekommen und diese in der Spalte B im Arbeitsblatt Namen  unter dem dazügehörigen Namen in Euro anzeigen lassen.
Dies soll auch bei mehrfachnennung des Namens im Arbeitsblatt Berechnung passieren.
  Mappe2-test8.xlsx (Größe: 18,79 KB / Downloads: 10)

[steve1da]

Dann errechne im Blatt "Berechnung" die Summe in einer neuen Spalte und hol dir die Zahlen dann per Summewenn() in das Blatt "Namen".
https://support.microsoft.com/de-de/offi...97a653039b

[ulf123]

Danke für die Hilfe leider bekomme ich das mit meinem Popup für die Namen noch nicht si ganz in meinen Kopf

[steve1da]

Was verstehst du denn unter "Popup für die Namen"?
Das Dropdown Menü? Wenn ja, wo hakt es denn grad genau?

[Egon12]

Hallo Ulf123,

wenn du in Spalte B eine DropDown Auswahl triffst und dazu die passende Summe aus H+I+K ausgeben lassen willst braucht es eine Auswertung eines Change Ereignisses der Zelle in der das DropDown steht. Das bedeutet VBA. 
Ins Modul des Tabellenblattes "Berechnung":

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim iZeile As Variant
    If Not Intersect(Target, Range("B3:B15")) Is Nothing Then
        iZeile = Application.Match(Target.Value, Tabelle1.Columns(1), 0)
        If Not IsError(iZeile) Then
            Tabelle1.Cells(iZeile, 3) = WorksheetFunction.sum(Target.Offset(, 6), Target.Offset(, 7), Target.Offset(, 9))
        End If
    End If
End Sub

Gruß Uwe

[ulf123]

Wow ich glaube das übersteigt meine Fähigkeiten.
Bei deinem Vorschlag 
ist da auch berücksichtigt 
wenn ich in meiner Tabelle den Namen öfters habe, das die Summen bei dem gleichen Name summiert werden?

[Egon12]

nein, nur das wie du beschrieben hattest, habe ich da eingerechnet.
 
nutzt du tatsächlich noch das Office 2016?
Da klappt nämlich noch nicht SumIffs. Das geht erst ab O2019. Ehe ich da was weiterbaue brauch ich erst mal diese Rückmeldung.
 
Gruß Uwe

[steve1da]

Keine Ahnung warum du nicht den Weg über Summewenn() gehst, wenn du mit dem Makro schon überfordert bist. Muss aber ja jeder selber wissen.

Und Summewenns() gibt es schon etwas länger als 2019.