|
Guten Tag zusammen,
ich benötige einwenig hilfe :) und währe sehr dankbar dafür.
Es geht um folgendes ich habe 2 Sheets, im ersten ist das
| Fullname |
Rolle |
Schulung |
|
|
Admin Schulung muss enthalten |
| Name1 |
Admin |
Schulung1 |
|
|
Schulung1 |
| Name1 |
Admin |
Schulung2 |
|
|
Schulung2 |
| Name1 |
Admin |
Schulung3 |
|
|
Schulung3 |
| Name2 |
Admin |
Schulung1 |
|
|
Schulung4 |
| Name2 |
Admin |
Schulung2 |
|
|
|
| Name2 |
Admin |
Schulung3 |
|
|
|
| Name2 |
Admin |
Schulung4 |
|
|
|
Jetzt soll er wenn das Makro gestartet wird, schauen das jeder mit der Rolle Admin alle Schulungen hat. Sprich 1-4, sollte eine fehlen soll er im Sheet 2
Den Fullname des Admins ausgeben und sagen welche Schulung fehlt.
Hab einwenig mit VBA probiert aber schaff es nicht :(
Über jegliche tipps/hilfe wäre ich sehr Dankbar, hier der Code
Sub test()
Dim i As Integer
Dim intLZ As Integer
With ActiveSheet
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To intLZ
If .Cells(i, 2).Value = "Admin" Then
End If
If .Cells(i, 3).Value = "Schulung1" Or Cells(i, 3).Value = "Schulung2" Or Cells(i, 3).Value = "Schulung3" Or Cells(i, 3).Value = "Schulung4" Then
.Cells(i, 4) = "Zugewiesen" 'hier soll er keine Aktion durchführen, ist nur zum prüfen
Else
.Cells(i, 6) = "Nicht Zugewiesen" ' Das auf Tabelle2 aber mit dem Fullname und inhalt der Spalte Schulung _
Also welche fehlt wenn 1-3 vorhanden, soll Schulung4 mit namen der Person auf Tabelle 2 ausgegeben werden
End If
Next i
End With
End Sub
|