ich hab vor einigen Tagen hier eine Frage gestellt, leider konnte mir niemand Helfen. Ich hab es inzwischen geschaft, mit meinen bescheidenen VBA Kenntnissen, einen Lösungsansatz zuentwickeln. Aber leider schaff ich es nicht ganz.
Hier Nochmals die Ausgangssituation:
Tabelle3 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Ich möchte nun immer der häufigsten Arbeitsplatz zu jedem Abschnitt ermittel und dann jeweils in die Summenzeile darstellen lassen.
Hab nun folgenden Code begonnen. Damit schaff ich es das die Spalte 3 mit den Arbeitsplätzen durchlaufen wird wenn das Kriterium PPPhase erfüllt ist.Und ich schaff es das Ergebnis in die jeweilige Summenzeile zu schreiben.
Eine Formel für den häufigsten Arbeitsplatz hab ich auch schon.
Aber:
ich schaff es nicht die Formel mit den richtigen werten beim schleifendurchlauf zu befüllen.
Siehe Code:
For Each rw1 In Workbooks("Mappe1.xls").Worksheets("Process").Rows
Tp = rw1.Cells(4)
Zeile = rw1.Row
If Tp = "PPManufacturingSolution" Then
Zeile = Zeile + 1
Tp = Range("D" & Zeile)
rw2 = rw1.Row
For Each rw2 In Workbooks("Mappe1.xls").Worksheets("Process").Rows
Tp = Range("D" & Zeile)
If Tp = "PPPhase" Then
Zähle = Zähle + 1
Debug.Print Zähle
test = Application.WorksheetFunction.Mode(Range("A" & Zeile & ":A" & Zeile))
Diese Formel weiss ich nicht wie ich sie befüllen muss, hier müsste immer die Zellen erfasst werden, die das Kriterium If Tp = "PPPhase" beim Schleifendurchlauf erfüllen
Zeile = Zeile + 1
ElseIf Tp "PPPhase" Then
Exit For
End If
Next rw2
Zeile = rw1.Row
With Cells(Zeile, 3)
.Value = Left(test, Len(test) - 1)
End With
End If
Tphase = ""
Zähle = 0
If Range("D" & Zeile + 1) = "" Then
Exit For
End If
Next rw1
Bitte Bitte Helft mir, ich bin am verzweifeln.
Gruß Wolfi