VBA in Excel Inhalt mehrer Spalten als Bedingung für Berechnung

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich versuche gerade VBA Excel zu lernen. Habe das Buch Excel-VBA für Dummies durchgearbeitet und einiges umgesetzt. NUR bei folgendem Beispiel finde ich nichts:
Ivh habe in Spalte A Wochentage stehen, in Spalte B Kategorien 1-6 als Zahl, in Spalte C steht eine Uhrzeit. Die Spalten sind als Tabelle formatiert.

|  A    |   B   |     C    |
|  Sa |   1    | 12:00 |
|  Do |   2    | 07:00 |
|  Sa |   2    | 13:00 |
|  Mo |   1    | 08:00 |
…

Folgendes Aufgabe möchte ich umsetzen:

  1. Wie schaffe ich es, daß ich den Median aus den Zeiten berechnen kann die z.B. alle Sa und die Kategorie 4 beinhalten
  2. Wie kann ich alle Wochentage von Mo…Fr und einer bestimmten Kategorie den Median der Uhrzeit berechnen kann.

In meinem Buch finde ich beispielcodes für eine Spalte, oder alle möglichen Bedingungcodes

Vielleicht ist auch gar nicht möglich!?

Danke für die Hilfe!
Pipa

#2

Ivh habe in Spalte A Wochentage stehen, in Spalte B Kategorien
1-6 als Zahl, in Spalte C steht eine Uhrzeit. Die Spalten sind
als Tabelle formatiert.

  1. Wie schaffe ich es, daß ich den Median aus den Zeiten
    berechnen kann die z.B. alle Sa und die Kategorie 4 beinhalten
  2. Wie kann ich alle Wochentage von Mo…Fr und einer
    bestimmten Kategorie den Median der Uhrzeit berechnen kann.

Hallo Pipa,

kümmerst du dich bitte um deine Anfrage im Wordbrett? Danke.

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │ D │ E │ F │ G │ H │ I │ J │ K │ L │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 1 │ Krit1 │ Krit2 │ Zeit │ 1. │ │ 2. │ │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 2 │ Sa │ 1 │ 12:00 │ 11:00 │ │ Mo │ 8:00 │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 3 │ Do │ 2 │ 07:00 │ │ │ Di │ #WERT! │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 4 │ Sa │ 4 │ 13:00 │ │ │ Mi │ #WERT! │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 5 │ Mo │ 2 │ 08:00 │ │ │ Do │ 12:15 │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 6 │ Do │ 2 │ 17:30 │ │ │ Fr │ #WERT! │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 7 │ Sa │ 4 │ 09:00 │ │ │ Sa │ #WERT! │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 8 │ │ │ │ │ │ So │ #WERT! │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
 9 │ │ │ │ │ │ │ │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
10 │ │ │ │ Folgendes Aufgabe möchte ich umsetzen: │ │ │ │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
11 │ │ │ │ 1. Wie schaffe ich es, daß ich den Median aus den Zeiten berechnen kann die z.B. alle Sa und die Kategorie 4 beinhalten │ │ │ │ │ │ │ │ │
───┼───────┼───────┼───────┼─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┼───┼────┼────────┼───┼───┼───┼───┼───┤
12 │ │ │ │ 2. Wie kann ich alle Wochentage von Mo..Fr und einer bestimmten Kategorie den Median der Uhrzeit berechnen kann. │ │ │ │ │ │ │ │ │
───┴───────┴───────┴───────┴─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┴───┴────┴────────┴───┴───┴───┴───┴───┘
Benutzte Formeln:
D2 : =medi("Sa";4)
G2 : =medi(F2;2)
G3 : =medi(F3;2)
usw. in G

Zahlenformate der Zellen im gewählten Bereich:
A1:A12,B1:B12,C1,C8:C12,D1,D5:smiley:12,E1,E3:E4,E6:E12,F1:F12,G1,G9:G12,H1:H12
I1:I12,J1:J12,K1:K12,L1:L12
haben das Zahlenformat: Standard
C2:C7,D3:smiley:4,E2,E5
haben das Zahlenformat: hh:mm
D2,G2:G8
haben das Zahlenformat: h:mm

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Code in einem Standardmodul:

Option Explicit

Function Medi(Krit1, Krit2)
Dim Zei As Long, ZeiK1 As Long, ZeiK2 As Long, MediSum As Date, MediAnz As Long
For Zei = 2 To Cells(Rows.Count, "A").End(xlUp).Row
 If Cells(Zei, "A").Value = Krit1 And Cells(Zei, "B").Value = Krit2 Then
 MediSum = MediSum + Cells(Zei, "C").Value
 MediAnz = MediAnz + 1
 End If
Next Zei
Medi = MediSum / MediAnz
End Function

Gruß
Reinhard