Guten Morgen,
ich habe von einem ehemaligen Kollegen eine Programmierung übernommen, de einwandfrei läuft. Ich habe keinerlei Erfahrung, brauche aber die Angabe anderer Werte.
Jeder Mitarbeitet hat eine Tabelle in Excel mit Projekten und Arbeitstagen pro Projekt, außerdem gibt es für jedes Projekt noch eine Tabelle, in der die Mitarbeiter mit Arbeitstagen erscheinen.
Zur Auswertung gibt es eine Matrix, in der angezeigt wird welcher Mitarbeiter in welchem Projekt tätig ist. Hier wird aber leider die Zeile in der der Mitarbeiter in der jeweiligen Projekttabelle angezeigt mit einem x hintendran. Ich bräuchte allerdings den Inhalt dieser Zelle. Es müssten die Arbeitstage erscheinen.
Vielen Dank
Viele Grüße
Sub GetMitarbeiterausProjekt()
ZMatrix = MatrixFirstZ
Do While Matrix.Cells(ZMatrix, 1) <> ""
PersID = Matrix.Cells(ZMatrix, 1)
ZProjDatei = ProjFirstZ 'Personenbezogene Daten stehen in Projekt-Dateien ab Zeile 33.
Do While InStr(Projektsheet.Range("B" & ZProjDatei - 1), "Buchhaltung") = 0
If (Projektsheet.Range("C" & ZProjDatei)) = PersID Then
Call Namensprüfung
Matrix.Cells(ZMatrix, SpalteMatrix + SonsNr) = Matrix.Cells(ZMatrix, SpalteMatrix + SonsNr) & ZProjDatei & "x"
End If
ZProjDatei = ZProjDatei + 1
Loop
ZMatrix = ZMatrix + 1
Loop
End Sub
|