Office: VBA Script zum Auslesen einer Tabelle

Hallo Zusammmen,
ich hoffe ihr könnt mir bei meinem Problem helfen, ich habe auf einem Excel Sheet Daten in drei Spalten (Tabelle1) und möchte diese auf einem extra Sheet folgendermassen zusammen fassen.

Die Abteilung soll in Spalta A aufgelistet werden, In Spalte B/C sollen die Anzahl der ".contractor/.employee" stehen und es sollen nur die "active" User betrachtet werden. (Tabelle2)

Hoff es ist einigermassen verständlich wie ich mir das vorstelle.

Dazu hab ich auch schon ein VBA Sript geschrieben, aber es tut nicht so richtig. Hat jemand eine Idee wo der Fehler liegt, oder wie man es besser machen kann??


Function AuswertungPTG()


Dim Abteilung(10000) As String
Dim Employ(10000) As Integer
Dim Contractor(10000) As Integer

AbtIndex = 1


Sheets("PTG User").Select

Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10


EndSpalte = [A65536].End(xlUp).Row


For ii = 2 To EndSpalte


If (Range("A" + CStr(ii)) = "active") Then
If ((Range("B" + CStr(ii)) = ".employee") Or (Range("B" + CStr(ii)) = ".contractor")) Then
Abteil = Range("C" + CStr(ii))

For jj = 1 To AbtIndex

If (Abteilung(jj) = Abteil) Then
AbteilungExist = 1

If (Range("B" + CStr(ii)) = ".employee") Then
Employ(jj) = Employ(jj) + 1
End If
If (Range("B" + CStr(ii)) = ".contractor") Then
Contractor(jj) = Contractor(jj) + 1
End If

Exit For
Else
AbteilungExist = 0
End If
Next
End If
If (AbteilungExist = 0) Then
Abteilung(AbtIndex) = Abteil

If (Range("B" + CStr(ii)) = ".employee") Then
Employ(AbtIndex) = Employ(AbtIndex) + 1
End If
If (Range("B" + CStr(ii)) = ".contractor") Then
Contractor(AbtIndex) = Contractor(AbtIndex) + 1
End If


AbtIndex = AbtIndex + 1

End If
End If


Next

Sheets("AuswertungPTG").Select
Offset = 4

Range("A3") = "Description user group/department"
Range("B3") = "employee Users"
Range("C3") = "contractor Users"
Range("D3") = "Users Total"

For uu = 5 To AbtIndex - 1

Range("A" + CStr(uu)) = Abteilung(uu - Offset)
Range("B" + CStr(uu)) = Employ(uu - Offset)
Range("C" + CStr(uu)) = Contractor(uu - Offset)
Range("D" + CStr(uu)) = CInt(Employ(uu - Offset)) + CInt(Contractor(uu - Offset))
Next




Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit


Range("A5:D" + CStr(AbtIndex - 1)).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


End Function

Besten Dank im voraus!!!!

 

Hallo!

Am einfachsten löst du das mit einer Pivot-Tabelle:
User ID in den Seitenbereich,
Department in den Zeilenbereich und
Employee Type einmal in den Spaltenbereich und einmal in den Datenbereich ziehen.
Fertig!

 

Danke Schatzi, für Deine schnelle Antwort,
genau so funktioniert es!!! MEGA :-D