Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen das Person x alle vorgegebenen Eintragungen hat. VBA
21.10.2022 10:59:28 Karl
*****
NotSolved
22.10.2022 21:11:58 AlterDresdner
*****
Solved
24.10.2022 07:25:43 Karl
*****
NotSolved

Ansicht des Beitrags:
Von:
Karl
Datum:
21.10.2022 10:59:28
Views:
255
Rating: Antwort:
  Ja
Thema:
Prüfen das Person x alle vorgegebenen Eintragungen hat. VBA

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
 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen das Person x alle vorgegebenen Eintragungen hat. VBA
21.10.2022 10:59:28 Karl
*****
NotSolved
22.10.2022 21:11:58 AlterDresdner
*****
Solved
24.10.2022 07:25:43 Karl
*****
NotSolved