Tabelle auswerten

Ich habe ein große Tabelle mit Aufgaben, zugehörigen Hauptverantwortlichen, dem Status (offen, in Bearbeitung, beendet) und ob nach Abschluss des Punktes noch Folgeaufgaben, welche aber in andere Prozesse ausgelagert wurden, notwendig sind.
Jetzt brauche ich eine Liste aller Hauptverantwortlichen, die noch eine Aufgaben mit offenen Status (offen bzw. in Bearbeitung) haben oder, die noch Aufgaben haben die zwar geschlossen sind aber Folgeaktion mit Ja gekennzeichnet ist.
Beide Bedingungen sollen in einer Liste zusammengeführt werden und es sollen keine Duplikate vorhanden sein.
Eine stark vereinfachte Beispieldatei zum besseren Verständnis s.
https://www.herber.de/bbs/user/141500.xlsx
In diesem Fall wären Person ACE Personen, welche noch offene Aufgaben haben und Person B jmd mit noch einer Folgeaktion.
Ich hätte gern eine automatisierte Variante, sodass ich alle 2 Wochen die Hauptverantwortlichen auflisten kann.
Über Pivot habe ich es bisher nicht hinbekommen beide Bedingungen zu verknüpfen, vlt geht es aber auch einfacher über VBA
Wäre für Tips sehr dankbar =)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Monika
Eine vba Lösung könnte so aussehen:

Sub Auswertung()
Dim z As Integer
Dim z1 As Integer
Dim x As Integer
Dim strName As String
'Falls kein Eintrag vorhanden
If Cells(6, 3).Value = "" Then Exit Sub
'Falls nur 1 Eintrag vorhanden
If Cells(7, 3).Value = "" Then
If Cells(6, 5).Value = "Closed" And Cells(6, 6).Value = "Nein" Then
Cells(1, 12).Value = Cells(6, 4).Value
Exit Sub
Else
End If
'Falls mehrere Einträge vorhanden
For z = 6 To Cells(6, 3).End(xlDown).Row
x = 0
If Cells(z, 5).Value = "Closed" And Cells(z, 6).Value = "Nein" Then
Else
z1 = 1
strName = Cells(z, 4).Value
If Cells(z1, 12).Value = "" Then
Cells(z1, 12).Value = strName
Else
Do
If Cells(z1, 12).Value = strName Then
x = 1
Else
z1 = z1 + 1
End If
Loop Until x = 1 Or Cells(z1, 12) = ""
If x = 0 Then Cells(z1, 12).Value = strName
End If
End If
Next z
End Sub

Ich weiß ja nicht, wie genau Dein Ergebnis aussehen soll.
Bei diesem Script werden jetzt kommentarlos alle Namen die nicht Closed und Nein als Status haben in der Spalte M aufgelistet, wobei keine doppelten Einträge vorkommen.
Du wirst feststellen, dass das Script in Deiner Tabelle erstmal nicht funktioniert.
Das liegt daran, dass Du in Deiner Spalte Ja/Nein hinter NEIN ein Leerzeichen hast, hinter JA jedoch nicht.
Das Script akzeptiert jetzt nur ein Nein ohne Leerzeichen.
Deshalb solltest du entweder die Leerzeichen löschen, oder, wenn sich das nicht realisieren lässt, das Script entsprechend anpassen.
Meine vba-Kenntnisse sind eher rudimentär.
Es gibt bestimmt bessere Lösungen, aber so würde ich es machen.
Gruß
Edmund

Public Sub aaa() Dim loZeile As Long, loSpalte As Long Application.ScreenUpdating = False With Worksheets("Tabelle1") loZeile = .Columns("C").Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _ searchdirection:=xlPrevious).Row loSpalte = .Cells(5, .Columns.Count).End(xlToLeft).Offset(, 1).Column .Range(.Cells(6, loSpalte), .Cells(loZeile, loSpalte)).FormulaLocal = _ "=ODER(E:E=""in Process"";E:E=""open"";F:F=""JA"")" .Range("C5").AutoFilter field:=5, Criteria1:="WAHR" With .ListObjects("Tabelle1").AutoFilter.Range .Columns(2).Copy Worksheets("Tabelle2").Range("B1") End With .Columns(loSpalte).Delete Worksheets("Tabelle2").Columns("B").RemoveDuplicates Columns:=1, Header:=xlYes End With End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread